Lille problem

Hejsa

Jeg har følgende kode:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

SQL = "SELECT Lokaler.Id, Lokaler.lokale, Booking.bookid as bId, Booking.lokalenr, Booking.Dato, Booking.initialer, Booking.firma, Booking.tid, Booking.kommentar, Booking.samletpris, Booking.andet, Booking.sagsnr, Booking.antal, Booking.tlf, Booking.foldevæg, Booking.projektør, Booking.KaffeThe, Booking.kaffekande, Booking.tekande, Booking.rundstykker, Booking.ost, Booking.eftermiddagskage, Booking.småkager, Booking.frugt, Booking.isvandkande, Booking.opdækning_uden_dug, Booking.opdækning_med_dug, Booking.buffet, Booking.buffetantal, Booking.bordopstilling FROM booking INNER JOIN Lokaler ON Booking.lokalenr = Lokaler.id WHERE Booking.initialer = '" & Session("auth_Initial") & "'  AND dato >= Date() ORDER BY Booking.bookid"

rs.Open SQL, Conn

If rs.BOF AND rs.EOF then
  Response.Write "Du har ingen fremtidige reservationer."
  Response.write "<br>"

Else
Response.write "Tyk på et af reservationsnavnene for at få flere oplysninger om reservationen."
Response.write "<br><br>"
   
Response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber1'>"
Response.write "<tr>"
Response.write "<td width='5%'>Nr</td>"
Response.write "<td width='15%'>Dato</td>"
Response.write "<td width='10%'>Tid</td>"
Response.write "<td width='20%'>Reservation</td>"
Response.write "<td width='20%'>Lokale</td>"
Response.write "<td width='10%'>Antal</td>"
Response.write "<td width='20%'>Kantineydelser</td>"
Response.write "</tr>"
Response.write "</table>"

        x = 0
        For x = 1 to 999999
        If rs.eof then
        Exit For
        Else

Tid = Left(rs("tid"),5)

  'URL Convert
  kommentar = "<A HREF=""#"" TARGET=""_new"" Onclick=""window.open('info.asp?Id=" & rs("bid") & "', 'Info','width=600,height=570'); return false"">" & rs("kommentar") & "</A>"
  'End URL Convert

response.write "<table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' bordercolor='#111111' width='100%' id='AutoNumber1'>"
response.write "<tr>"
response.write "<td width='5%'>"& rs("bid")& "</td>"
response.write "<td width='15%'>"& rs("dato")& "</td>"
response.write "<td width='10%'>"& tid & "</td>"
response.write "<td width='20%'>"
response.write kommentar
response.write "</td>"
response.write "<td width='20%'>"& rs("Lokale")& "</td>"
response.write "<td width='10%'>"& rs("antal")& "</td>"
response.write "<td width='20%'>"

str = Trim(" " & rs("KaffeThe") & rs("kaffekande") & rs("tekande") & rs("Rundstykker") & rs("ost") & rs("Eftermiddagskage") & rs("Småkager") & rs("Frugt") & rs("isvandkande") & rs("opdækning_uden_dug") & rs("opdækning_med_dug") & rs("buffet") & rs("andet"))
if Len(str) = 0 then
Response.Write "Nej"
Else
Response.Write "Ja"
End if

response.write"</td>"
response.write "</tr>"
response.write "</table>"

rs.MoveNext
End If
Next
End If
%>

Hvad skal jeg ændre for kun at få den til vise hver bookid en gang. Pt. viser den alle felterne med det rigtige navn ... den skal kun vis felter med samme bookid en gang!