asp script generer fejl?

er der nogle der kan se fejlen hmm



<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<%

Url1 = Request.Form("url1")
Url2 = Request.Form("url2")
Url3 = Request.Form("url3")
Url4 = Request.Form("url4")
Url5 = Request.Form("url5")
Url6 = Request.Form("url6")


strSQL = "UPDATE admin SET "
strSQL = strSQL & "Url1='" & Url1 & "', "
strSQL = strSQL & "Url2='" & Url2 & "', "
strSQL = strSQL & "Url3='" & Url3 & "', "
strSQL = strSQL & "Url4='" & Url4 & "', "
strSQL = strSQL & "Url5='" & Url5 & "', "
strSQL = strSQL & "Url6='" & Url6 & "', "
strSQL = strSQL & "WHERE id=" & session("id")
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
Response.Redirect Request.ServerVariables("HTTP_REFERER")
%>