Hvorfor virker dette ikke?

Har følgende retteside:

retliste1.asp
<%
IDrequest = Request.Querystring("retID")

Dim Conn
function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName

end function

'navnet og evt. sti på din database
OpenConn("../db.mdb")

'Tjek om der skal gemmes i databasen
if Request.Servervariables("REQUEST_METHOD") = "POST" then
 
'Opdater databasen
SQL = "UPDATE liste1 SET (ID,omr,byg,hovedemne,emne,ark,ent,aftaleDato) = '"& Request.form("ID") & "','"& Request.form("omr") & "','"& Request.form("byg") & "','"& Request.form("hovedemne") & "','"& Request.form("emne") & "','"& Request.form("ark") & "','"& Request.form("ent") & "','"& Request.form("aftaleDato") & "') WHERE ID = " & Request.Form("ID")
Conn.Execute (SQL)

'udskift sideDuKomFra.asp med den side du kom fra
Response.write "Posten er opdateret<br>Klik <a href""visliste1.asp"">her</a> og vend tilbage til liste 1"

end if

' Henter data ud til en dropdown boks
sSql = "SELECT hovedemne FROM hovedemne ORDER BY ID ASC"
Set Rs = Conn.Execute(sSql)
Do while not Rs.EOF
    strHtml = strHtml & "<option value='"& Rs("hovedemne") &"'>"& Rs("hovedemne") &"</option>"
Rs.MoveNext
Loop

'Hendt fra databasen:
ID = Request.QueryString("retID")
if ID = "" then ID = Request.Form("ID")

SQL = "SELECT * FROM liste1 WHERE ID = " & ID & ""
Set rs = Conn.Execute(SQL)

'Lav formen
%>
<form method="post" action="">
<input type="hidden" name="ID" value="<%=ID%>">
<input type="text" name="omr" value="<%=rs("omr")%>"><br>
<input type="text" name="byg" value="<%=rs("byg")%>"><br>
<select name="hovedemne">
<%= strHtml %>
</select><br>
<input type="text" name="emne" value="<%=rs("emne")%>"><br>
<input type="text" name="ark" value="<%=rs("ark")%>"><br>
<input type="text" name="ent" value="<%=rs("ent")%>"><br>
<input type="text" name="aftaleDato" value="<%=rs("aftaleDato")%>"> (dd-mm-yyyy<br>
<input type="submit" name="Gem" value="Gem">
</form>

<%
Conn.Close
Set Conn = Nothing
%>