updater mdb med loop

Hejsa...

Jeg hiver en liste ned fra en database og ud for hver record er der en listbox.. Det er det databasefelt som denne listbox er "connected" til der skal opdateres for alle records på listen...

Er der en der ved hvordan dette gøres??

Jeg hiver database informationerne ud på denne måde hvis det kan hjælpe...

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/kknet.mdb")
    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "SELECT * FROM voksen WHERE jdato LIKE #"&request.QueryString("jobdato")&"# ORDER BY CPR"
    rs.Open strSQL, myConn, 1, 3
    session("cpr") = rs("cpr")
    session("modt") = rs("modt")
    do while not (rs.BOF or rs.EOF) %>
  <tr>
  <td height="30"><div align="center"> <font face="Arial, Helvetica, sans-serif">
        <%response.Write(rs("center"))%>
        </font></div></td>
      <td bgcolor="#CCCCCC"><font face="Arial, Helvetica, sans-serif">
       
        <input name="cpr3" readonly="readonly" type="text" id="cpr3" value="<%response.Write(rs("Cpr"))%>">
        </font></td>
    <td bgcolor="#CCCCCC"><font face="Arial, Helvetica, sans-serif">
    <%response.Write("&nbsp;"&rs("navn"))%>
      </font></td>
  <td bgcolor="#CCCCCC"><select name="modt3" id="modt3">
          <option selected><%response.Write(rs("modt"))%></option>
    <option>M&oslash;dt</option>
  <option>Ikke m&oslash;dt</option>
    </select></td>
</tr>
<%
        rs.movenext
        Loop
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
end if%></table>  <input type="submit" name="Submit" value="Send">
</form></p>


'bramsing'