opdatere flere felter i db hvor værdien er hentet fra et rs

opdatere flere felter i db hvor værdien er hentet fra et rs med et klik



har følgende på indsaet.asp

<%

strSQL="Select * from vagtplan ORDER BY dato"
set rs = conn.execute(strSQL)


%>

<form name="form1" method="post" action="indsaet_opdat.asp">
     
    <%
do until rs.eof
%>
<tr valign="middle">
        <td class="tekst5" width="7%"><%=rs("dato")%>
<input type="hidden" name="id" value="<%=rs("id")%>"></td>
        <td width="11%">
          <select name="vagttype" class="tekst5sort">
            <option>-vælg-
            <option value="aften" class="tekst5rod">aften</option>
            <option value="nat" class="tekst5rod">nat</option>
            <option value="dag" class="tekst5rod">dag</option>
          </select>
        </td>
       
            <%

rs.movenext
loop
%>
<tr valign="middle">
      <td class="tekst5" width="7%">&nbsp;</td>
      <td width="11%">&nbsp;</td>
      <td width="16%">&nbsp;</td>
      <td width="13%">&nbsp;</td>
      <td width="18%">&nbsp;</td>
      <td width="17%">
          <input type="submit" name="Submit" value="Submit">
        </td>
      <td width="18%">&nbsp;</td>
    </tr>
    </form>




og derefter følgende indsaet_opdate.asp

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="connect.asp"-->
<%
if Request.Form("submit").Count > 0 then
strID = Request.Form("id")
strvagttype = Request.Form("vagttype")

strSQL="Update vagtplan set vagttype = '"& strvagttype &"' where id = " & strID
conn.execute(strSQL)
end if
%>

og her gå den jo helt galt....

hvad gør jeg ??????

til orientering kan felterne i indsaet.asp variere