Opdatere via dropdown.

Jeg har en række poster, hvor jeg i en dropdown box rettet flere af dem. Hvorefter jeg opdatere.
Hvordan skal dette egenligt gøres, mit virker ikke.

Jeg viser ikke hele koden, da resten ikke har noget med problemet at gøre.

MVH Stig

****************************************************************

dim gemdata
gemdata = request.querystring("action")

if gemdata = "gem" then
  SQLstmt = "SELECT * FROM tTabtVundne;"
  RS.open SQLstmt, conn, 3, 3
  intNr = 1
  if not rs.eof then
    do while not rs.eof or rs.bof
      unikS = "s" & rs("id")       
        rs("Produktgruppe") = 1
        rs.update
      rs.movenext
    loop   
  end if
  rs.close
  set rs = Nothing
end if


<form method="post" action="tv.asp?action=gem">

<TABLE>
<TR>
  <td>
  <SELECT name="s<%=rs("id")%>">
<%
        Dim produktgruppe
        produktgruppe = rs("Produktgruppe2")

        strSQL = "SELECT * FROM tProduktgruppe Where status = 0"
          Set SubRS = Conn.Execute(strSQL)            
                while not SubRS.eof
                  response.write "<option  style='width:150px;' value='" & SubRS("id") & "'"
                    ' Mark this option as selected
                      if produktgruppe = SubRS("id") then
                        response.write " selected "
                      end if
                  response.write ">" & SubRS("produktgruppe") & "</option>"
                  SubRS.movenext
                wend
                response.write "</select>"
            SubRS.close
            set SubRS = nothing

%>
    </SELECT>
  </td>   
<TR>
<TABLE>

<input type="submit" value="Update" class="buttom">
</form>

*****************************************************************