Global.asa

Hejsa..
Hvorfor virker denne Global.asa ikke?

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/db/Hits.mdb")
set antal = conn.execute("select count(*) from Taeller where ip = '"&request.servervariables("REMOTE_ADDR")&"' and dato = #"&date()&"#")
if antal(0) = 0 then
conn.execute("Insert into Taeller (ip,dato) values ('"&request.servervariables("REMOTE_ADDR")&"',#"&date()&"#)")
end if
End Sub

Sub Session_OnEnd
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("/db/Database.mdb")
SQL = "UPDATE Brugere SET [Online] = 'Nej' WHERE Brugernavn = '" & Session("Brugernavn") & "'"
Conn.execute(strSQL)
Conn.Close
Conn = Nothing
End Sub

</SCRIPT>


Det den skal gøre er at gøre "Online" til "Nej" når man bare trykker på krydset. Den øverste del (Altså den der indsætter i databasen) virker fint.

Nogle der kan hjælpe?