Hvad går galt.. select value request.form("select")

Hejsa..

Jeg har en select som henter sine options fra en database...

Jeg skal så have den til at gemme den valgte option i en anden database... Men den sender kun blank afsted....

<snip>

<select name="gruppen" size="4" id="gruppen">
<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/master.mdb")
Conn.Open DSN
strSQL1 = "SELECT * FROM gruppe ORDER BY gruppe ASC"
Set rs1 = Conn.Execute(strSQL1)
do while not rs1.eof%>
<option value="<%=rs1("gruppe")%>"><%=rs1("gruppe")%></option>
<%rs1.movenext
loop%>
</select>

</snip>

<snip>

if mode = "upload" then
'session("grupper") = Request.Form("gruppen")
    if session("tr") <> "ok" then
    response.Redirect("default.asp")
    else
        Set Upload = server.CreateObject("Persits.Upload")
        Upload.SetMaxSize 61000, True
        On Error Resume Next
        Upload.save
        For Each File in Upload.Files
        File.SaveAsVirtual "../db/images/" & File.FileName
        Next
        If Err.Number = 8 Then
          Response.Write "Your file is too large. Please try again."
        Else
        If Err <> 0 Then
          Response.Write "An error occurred: " & Err.Description
        else
session("filnavn") = File.FileName
Const saadOpenKeyset1 = 1
Const saadLockOptimistic1 = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/master.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From billede"
rs.Open strSQL, Conn, saadOpenKeyset1, saadLockOptimistic1
rs.AddNew
rs("gruppe") = request.Form("gruppen")' session("grupper")
rs("sti") = "db/images/" & session("filnavn")
rs.update
session("grupper") = ""
session("filnavn") = ""
response.Redirect("default.asp?mode=logget_in")

</snip>