Ingen fejl og der bliver ikke skrevet noget i databasen

Hejsa

Jeg har problemer!! :) Er der nogen der kan se hvad der er galt herunder, i min kode? Jeg får nemlig ingen fejl, og der bliver ikke gemt noget i databasen.

<%
'HER FØLGER REDEGERINGS FORMSNE
select case request.querystring("edit")
case ("20")

'Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../db/database.mdb")
Conn.Open DSN

strSQL = "Select * From 2_0 Where Id = " & Request.Querystring("ID")
Set rs = Conn.Execute(strSQL)

function tilSQL(inpFelt)
tilSQL=trim(replace(Request.Form(inpFelt),"'","''"))
end function

if request("mode") = "updateproducts" then
'SQL sætning opbygges
strSQL = "Update 2_0 SET "

strSQL = strSQL & "VareNr= '" & tilSQL("'VareNr") & "', "
strSQL = strSQL & "Rank= '" & tilSQL("Rank") & "', "
strSQL = strSQL & "Visning= '" & tilSQL("Visning") & "', "
strSQL = strSQL & "Type= '" & tilSQL("Type") & "', "
strSQL = strSQL & "JPG= '" & tilSQL("JPG") & "', "
strSQL = strSQL & "JPG_S= '" & tilSQL("JPG_S") & "', "
strSQL = strSQL & "Spejl_mm= '" & tilSQL("Spejl_mm") & "', "
strSQL = strSQL & "Tekst= '" & tilSQL("Tekst") & "', "
strSQL = strSQL & "Beskrivelse= '" & tilSQL("Beskrivelse") & "', "
strSQL = strSQL & "Facet_mm= '" & tilSQL("Facet_mm") & "', "
strSQL = strSQL & "Br_ho_cm= '" & tilSQL("Br_ho_cm") & "', "
strSQL = strSQL & "Pris= '" & tilSQL("Pris") & "' "
strSQL = strSQL & "WHERE ID=" & ID

'SQL sætning eksekveres
Conn.Execute(strSQL)

'Luk databaseforbindelse
Conn.Close
Set Conn = Nothing

Response.Redirect("product_editor.asp?ListProducts=20")
end if
%>