Visual Basic

stQuery = "SELECT MAX(substring(st_bill_no from 9 for 15)) FROM sc_bill WHERE dt_bill_date BETWEEN '" & _
                   Format(FirstDayOfMonth, "yyyy-MM-dd") & "' AND '" & _
                     Format(LastDayOfMonth.AddDays(1), "yyyy-MM-dd") & "'"


Thanks In Advance

Try
                SerialPort1.Open()
                If Me.SerialPort1.IsOpen() Then

                    Dim buf(Command.Length) As Byte
                    For i As Integer = 0 To (Command.Length - 1)
                        buf(0) = Asc(Mid(Command, 1, 1))
                    Next
                    ' send to Printer
                    Me.SerialPort1.ReadExisting()
                    Me.SerialPort1.Write(buf, 0, Command.Length())

                    ' wait for response
                    Dim ReturnValue As Integer = -99999

                    Dim start_time As Integer = My.Computer.Clock.TickCount
                    Do Until (Me.SerialPort1.BytesToRead >= 8 Or DemoMode = True)
                        If My.Computer.Clock.TickCount > start_time + 1000 Then
                            DemoMode = True
                            MessageBox.Show("Printer Meter Timed Out")
                            Return ReturnValue
                            Exit Function
                        End If
                    Loop

                    Dim Results As String = Me.SerialPort1.ReadExisting()
                    Dim length = Results.Length()
                    If length < 8 Then
                        MessageBox.Show("Bad Value Sent To Printer")
                        Return True
                    End If
                End If
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try

For i = 1 To 8
    Dim Ai As Label = DirectCast(Page.FindControl("A" & i.ToString()), Label)
    Dim Si As Hyperlink = DirectCast(Page.FindControl("S" & i.ToString()), Hyperlink)

    If R1200s.Rows.Count < Slots.Rows(0)(Ri).ToString() +1 Then

       Ai.Style.Add("background-color","#000000")
       Si.ImageUrl = "images/" & i & ".png"
       Si.NavigateUrl = "step3.aspx?Time=" & i & "&Date=" & Request.QueryString("Date") & "&Day=" & Request.QueryString("Day") & "&Entry=" & Request.QueryString("Entry")
    End If
Next