Multiopdatering

På denne her side
http://www.kif-atletik.dk/testsite/opdatering_betaling.asp
vil jeg gerne kunne opdater et felt, fra nej til ja og omvendt. Jeg kan dog ikke finde ud af hvordan jeg skal få det til at fungere, eftersom jeg ikke har så meget styr på ASP/SQL.

Den først side har følgende kode:

<%
Do While Not rsData.EOF
%>

<%
'BAGGRUNDSFARVE
tal = tal + 1
dim tal
if tal MOD 2 = 0 then
%>
<tr bgcolor=#e5e5e5>
<% else %>
<tr bgcolor=#ffffff>
<% end if %>


<TD WIDTH="5%"><% Response.Write (rsData("ID")) %></TD>
<TD WIDTH="45%"><% Response.Write (rsData("fornavn")) %></TD>
<TD WIDTH="45%"><% Response.Write (rsData("efternavn")) %></TD>
<TD WIDTH="5%">
<INPUT TYPE="checkbox" NAME="betalt <% Response.Write (rsData("ID")) %>" <% if rsData("Betalt")="ja" Then Response.Write "checked" end if %> >
</TD>
</TR>

<%
rsData.MoveNext
Loop

' Lukker databaseforbindelsen
dbconnect.Close
Set dbconnect = Nothing
%>


Den side der skulle foretage opdateringen ser sådan ud:
<%
'Databaseforbindelse
Dim dbconnect
Set dbconnect = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/betalingtest.mdb")
dbconnect.Open strDSN

Dim strQ, rsData
Set rsData = Server.CreateObject("ADODB.Recordset")
Set rsData = dbconnect.execute("SELECT * FROM Resultater")

'Der skrives til databasen
strQ = "UPDATE Resultater
SET betalt = nej"

strQ = "UPDATE Resultater
SET betalt = ja
WHERE id IN ( <liste fra formen> )"
Det er i ovenstående linie jeg går kold.


'SQL sætning eksekveres
dbconnect.execute(strQ)
%>