Skal udskrive alle informationer også når dato-tid er den samme

Lige nu benytter jeg følgende til at hente data fra min db:

Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../../db/Booking.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};Password=1234 ;" & DBPath
'Find Bookninger for valgte dato
dato = sQMdr & "-" & sQDag & "-" & sQAar ' Format til DB MM-DD-YYYY
SQL = "SELECT lokalenr, tid, firma, initialer, mail, kommentar FROM booking WHERE dato = #" & dato & "#"

set rs = con.execute (SQL)

dato = sQMdr & "-" & sQDag & "-" & sQAar ' Format til DB MM-DD-YYYY
booWeekend = Weekday(datoStr) = 1 or Weekday(datoStr) = 7 'Er det lørdag/søndag
SQL = "SELECT lokalenr, tid, firma, initialer, kommentar FROM booking WHERE dato = #" & dato & "#"

<%
function CStr2(Value)
  if Value < 10 then
    CStr2 = "0" & CStr(Value)
  else
    CStr2 = CStr(Value)
  end if
end function

TCnt = 7 ' Starttid
MCnt = 0 ' Startminutter

for Cnt = 1 to 33 ' Antal linier
  strtid = CStr2(TCnt) & ":" & CStr2(MCnt)
  TTime = TCnt * 100 + MCnt ' Tiden der skal udskrives nu
 
  if not rs.EOF then
    start = rs("tid")
    RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale
  else
    RTime = 0
  end if
  If TTime = RTime And session("ID") = 4 And session("lokalenr") = 2 Then
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "Seminarrum benyttes:" & rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """  class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
      rs.movenext
  Else 
  If TTime = RTime Then
    strKommentar = rs("kommentar") & " (<a href=""mailto:" & rs("mail") & """  class=""maillink"">" & rs("initialer") & "</a>, " & rs("firma") & ")"
    rs.movenext
  Else
    ' Check for frokostpause
  If session("Id") <> 2 Then
    if not booWeekend and (TTime >= 1130 and TTime <= 1300) then
      strKommentar = "Kantinen serverer frokost"
    else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
    End If
  else
      strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
      strKommentar = "&nbsp;"
  End If
  End If
  End if
  SkrivLinie strTid, strKommentar
  ' Tiden i næste linie
  MCnt = MCnt + 30
  if (MCnt = 60) then
    MCnt = 0
    TCnt = TCnt + 1
  end if
 
%>

Mit problem er at jeg i min database godt kan have en dato og tid med flere bookninger. Men når jeg så udskriver den så udskrives kun det første bookning og ikke dem bægge. Hvordan får jeg koden til at checke for alle bookninger og hvis der er flere så udskrive kommentaren til alle bookninger?