Opdatering sidevis

Jeg har et lille problem, som jeg ikke kan finde ud af løse. De poster der kommer på side 1, er efterhånden så mange at siden bliver meget "tung", så jeg har delt den op. Nu er det så problemet opstår, for de sider jeg ikke opdater bliver sat til false. Så koden skal ændre til kun at opdater de poster/ID som er på den side jeg ser. Det leder mig så til sagens kerne, det kan jeg ikke finde ud af og håber du en af jer kan hjælpe mig.


Side 1
Do While Not rsData.EOF

<% Response.Write (rsData("Id")) %>


<% if rsData("Betalt")= True Then%>
<INPUT TYPE="checkbox" NAME="<% Response.Write (rsData("Id")) %>" checked value="betalt">
<%Else%>
<INPUT TYPE="checkbox" NAME="<% Response.Write (rsData("Id")) %>" value="betalt">
<%End If%>

rsData.MoveNext
Loop

dbconnect.Close
Set dbconnect = Nothing

Side 2
Dim dbconnect, dbrecord, strSQL
Set dbconnect = Server.CreateObject("ADODB.Connection")

strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(dbpath)
dbconnect.Open strDSN

Set dbrecord = dbconnect.Execute("SELECT * FROM femina")

Do While not dbrecord.EOF
If Request.Form(CStr(dbrecord("Id"))) = "betalt" Then
  strSQL = "UPDATE femina SET Betalt = True WHERE Id =" & dbrecord("Id")
Else
  strSQL = "UPDATE femina SET Betalt = False WHERE Id =" & dbrecord("Id")
End If

dbconnect.Execute(strSQL)
dbrecord.MoveNext
Loop

dbrecord.Close
dbconnect.Close
Set dbconnect = Nothing