Fejl ved klik på knap?

Jeg har en kode som først opdater siden nogle gange efter man har valgt nogle ting i select bokse, men når man har valgt 3. ting og trykker Flyt, så sker der ikke andet end den trejde oplysning ændres tilbage til default værdi og ikke som scriptet siger at den skal gå til stedet hvor mode=flyt?


<form name="form1" action="<%=request.serverVariables("SCRIPT_NAME")%>" method="post">
<font size="6"></font>Type : &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<select onChange="document.form1.submit()" name="varetingen" size="1">
<option>V&aelig;lg Type</option>
<%
strSQL2x = "SELECT Tabelnavn FROM Tabeller"
Set database2x = con.Execute(strSQL2x)
while not database2x.eof
    if request("varetingen") = database2x("Tabelnavn") then
        response.write "<option value='" & database2x("Tabelnavn") & "' selected>" & database2x("Tabelnavn") & "</option>" & vbcrlf
      else
        response.write "<option value='" & database2x("Tabelnavn") & "'>" & database2x("Tabelnavn") & "</option>" & vbcrlf
    end if
    database2x.movenext
wend
%>
</select><br>

<%
if (request("varetingen") <> "" AND request.querystring("mode") <> "flyt") then
    Response.write "<form name='form1' action='" & request.serverVariables("SCRIPT_NAME") & "' method='post'>"

    Response.write "Vare nr. : "
    response.write "<select onChange='document.form1.submit()' name='varenrvalgt' size='1'>"
    Response.write "<option>V&aelig;lg vare nr.</option>"
    SQL = "SELECT * FROM " & request("varetingen") & " ORDER BY varenr"
    set database = con.execute(SQL)
    while not database.eof
        if not(isnull(database("varenr"))) then
            response.write "<option value='" & database("varenr") & "'"
            if request("varenrvalgt") = database("varenr") then response.write "selected"
              response.write ">" & konverter(database("varenr")) & "</option>"
          else
            response.write "<option value='" & database("varenr") & "'"
            if request("varenrvalgt") = database("varenr") then response.write "selected"
              response.write ">" & konverter(database("varenr")) & "</option>"
            end if
    database.movenext
    wend
    Response.write "</select><br>"

    if (request("varenrvalgt") <> "" AND request("varenrvalgt") <> "Vælg varenr") then
    SQL = "SELECT * FROM " & request.form("varetingen") & " WHERE '" & request.form("varenrvalgt") & "'=" & request.form("varetingen") & ".Varenr"
    set database2 = con.execute(SQL)
      response.write "<BR>Ønsker du at flytte varen : " & database2("beskriv100") & " <br>Til pris. " & database2("pris") & "<BR>"
strSQL2z = "SELECT Tabelnavn FROM Tabeller"
Set database2z = con.Execute(strSQL2z)
Response.write "<select name='nytabelnavn' size='1'>"
while not database2z.eof
    response.write "<option value='" & database2z("Tabelnavn") & "'>" & database2z("Tabelnavn") & "</option>" & vbcrlf
    database2z.movenext
wend
      response.write "</form><form name='form' action='vareflyt.asp?mode=flyt&varenrvalgt=" & request("varenrvalgt") & "&tabelnavn=" & request("varetingen") & "&nytabelnavn=" & request("nytabelnavn") & "' method='post'>"

      response.write "<INPUT TYPE='submit' VALUE='Flyt vare'>"
      response.write "</form>"
      response.write "<BR>(Vælg tabbel varen skal flyttes til.)<BR>"
    end if

end if

if request.form("mode")= "flyt" then
Response.write "Vi er på"
end if