Hvorfor virker dette ikke ???

<%
Id = Request.QueryString(\"Id\")

If request.cookies(\"TotalTop\")(Id) <> \"true\" And request.form(\"point\") < 11 And request.form(\"point\") >= 0 then

Set PollConn = Server.CreateObject(\"ADODB.Connection\")
PollConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"mdb/websites.mdb\")
sql = \"SELECT TOP 1 * FROM websites Where Id = \" & Id
set rs = PollConn.execute(sql)

SQLstmt = \"UPDATE websites SET AntalStemmer =\'\" & rs(\"AntalStemmer\") + 1 & \"\' WHERE Id=\" & Id

PollConn.Execute (SQLstmt)

SQLstmt = \"UPDATE websites SET Rating =\'\" & request.form(\"point\") + rs(\"Rating\") & \"\' WHERE Id=\" & Id

PollConn.Execute (SQLstmt)

AntalDage(1) = 31
AntalDage(2) = 28
AntalDage(3) = 31
AntalDage(4) = 30
AntalDage(5) = 31
AntalDage(6) = 30
AntalDage(7) = 31
AntalDage(8) = 31
AntalDage(9) = 30
AntalDage(10) = 31
AntalDage(11) = 30
AntalDage(12) = 31

response.cookies(\"TotalTop\")(Id) = \"true\"
response.cookies(\"TotalTop\").expires = Date + AntalDage(month(Date)) + 1 - day(Date)

PollConn.close

response.redirect(\"stemt.asp\")

Else

response.redirect(\"snyd.asp\")

End If

%>

PLEZZZ HELP!