insert into access DB

jeg har overtaget en hjemmeside på mit arb. og skal lave en mindre endring. endringen består i at efter man har valgt hvilke hoteller man vil bo på og hvor mange single  og twin rum man vil have, bliver man sendt videre til en side hvor man skal skrive navnene på dem der skal bo på værelserne. jeg har fundet ud af at lave det sådan at der kommer det antal textbokse frem under det rigtige værelse og hotel. men nu skal jeg have det gemt i en database, og her er jeg lidt lost. jeg har ingen ide om hvordan jeg kan lave en løkke der kører "SQL INSERT" scripted igennem det antal gange der er tekst bokse. så jeg håber der er nogen af jer der ude der kan hjælpe mig.

koden er her under
 


<!-- #INCLUDE FILE="inc/header.inc" -->
<%

Dim strPath
strPath = Server.MapPath(".") & "/mdb/hotels.mdb"

Dim strConn
strConn = "DBQ=" & strPath & ";Driver={Microsoft Access Driver (*.mdb)};"

Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")

objConn.Open strConn

Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")

Dim strSQL
strSQL = "SELECT hotels.name, hotels.ID, tblBookings.bookingID, tblBookings.numsingle, tblBookings.numtwin, tblBookings.numsuperiorsingle, tblBookings.numsuperiortwin, prices.single, prices.twin, prices.superiorsingle, prices.superiortwin " _
        & "FROM (prices INNER JOIN hotels ON prices.ID = hotels.ID) INNER JOIN tblBookings ON hotels.ID = tblBookings.HotelID " _
        & "WHERE (((tblBookings.BookedBySessionID)=" & Session("sessionID") & "));"   

objRS.Open strSQL, objConn, adOpenForwardOnly, 1

''''''HER ER DET SQL SCRIPT DER SKL KØRES IGENNEM DET ANTAL
''''' GANGE DER ER TEKSTBOKSE
strSQL1 = "INSERT INTO guests (bookingID, BookedBySessionID, HotelID,room_type,name) VALUES ( '" & objRS("bookingID") & "', '" & Session("sessionID") & "', '" & objRS("name") & "', 'room', '4');"


If submit = "SEND" Then
objConn.Execute (strSQL1)
Response.Write("test")
End If


Dim number(4),i
%>
<form method="post" action="names.asp">       
<table cellspacing="1" cellpadding="0" border="0" bgcolor="" width="">
    <tr>
        <td>
           
            <table class="tblform" cellpadding="2" cellspacing="0" border="0" bordercolor=#000000 width="">

<%
            do until objrs.EOF

number(1) = UCase(objRS("numsingle"))
number(2) = UCase(objRS("numtwin"))
number(3) = UCase(objRS("numsuperiorsingle"))
number(4) = UCase(objRS("numsuperiorsingle"))
'For i = 1 to 4
'    If number(i) > 0 Then
'        colspan = colspan + 1
'    End If
'Next
%>

            <tr bgcolor="#FF9900">
                <td colspan="2" class="tblhead"><%=UCase(objRS("name"))%></td>
            </tr>
            <%If number(1) <> 0 Then%>
            <tr>
                <td colspan=2>Single (<%=objRS("numsingle")%>)</td>
            </tr>
            <%
            Dim s
            nr = number(1)
            For s = 1 to nr
            Response.Write "<tr><td><input name=s_"&s&"a type=test value=Single_"&s&"></td><td><input name=s_"&s&"b type=test disabled></td></tr>"
            Next
            End If
           
            If number(2) <> 0 Then%>
            <tr>
                <td colspan=2>Twin (<%=objRS("numtwin")%>)</td>
            </tr>
            <%
            Dim t
            nr = number(2)
            For t = 1 to nr
            Response.Write "<tr><td><input name=t_"&t&"a type=test value=Twin_"&t&"a></td><td><input name=t_"&t&"b type=test value=Twin_"&t&"b></td></tr>"
                Next
            End If
           
            If number(3) <> 0 Then
            %>
            <tr>
                <td colspan=2>Superior single (<%=objRS("numsuperiorsingle")%>)</td>
            </tr>
            <%
            Dim ss
            nr = number(3)
            For ss = 1 to nr
            Response.Write "<tr><td><inputname=ss_"&ss&"a type=test value=Superior_single_"&t&"></td><td><input name=ss_"&ss&"b type=test disabled></td></tr>"
            Next
            End IF
           
            If number(4) <> 0 Then%>
            <tr>
                <td colspan=2>Superior twin (<%=objRS("numsuperiortwin")%>)</td>
            </tr>
            <%
            Dim st
            number = number(4)
            For st = 1 to number
            Response.Write "<tr><td><input name=st_"&st&"a type=test value=Superior_twin_"&st&"a></td><td><inputname=st_"&st&"b type=test value=Superior_twin_"&st&"b></td></tr>"
            Next
            End If
           
            objrs.MoveNext
            loop
            objrs.close%>
            <tr>
                <td colspan=2><input class="form" name="submit" type="submit" value="SEND"></td>
            </tr>
           
            </table>
           
        </td>
    </tr>
</table>
</form>
<!-- #INCLUDE FILE="inc/footer.inc" -->