Global.asa

jeg vil gerne have information om online brugere på min side, så har jeg prøvet at lave Global.asa fil, som desværre fungere ikke.
Oplysninger om brugeren er i Access DB og jeg vil gerne at Global.asa filen opdatere databasen sådan at onStart indskrive en "ja" i online feltet i databasen, og onEnd indskrive en "nej". Min Global.asa filen ser sådan ud:

<script language="vbscript" runat="server">
Sub Session_OnStart
 
  Dim objSecurity
  Session.Timeout = 100
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("clanovi.mdb") & ";"
Conn.Open DSN

strSQL = "UPDATE profil SET online = 'ja' WHERE kime = '"& Session("kime")&"'"
    Conn.Execute(strSQL)

End Sub

sub Session_OnEnd
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("clanovi.mdb") & ";"
Conn.Open DSN


    strSQL = "UPDATE profil SET online = 'nej' WHERE kime = '"& Session("kime")&"'"
    Conn.Execute(strSQL)
end sub
</script>

Hvad mangler der?