Global.asa driller

Hej

Jeg prøver at lave et online/offline system
Så vil jeg have når man lukker browseren ned så retter den databasen  til offline

Min kode ser såadn her ud

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
//Kode der udføres når applikationen starte
End Sub
Sub Application_OnEnd

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/code/db/system.mdb")
Conn.Open DSN


strSQL = "Update Bruger set "
strSQL = strSQL & "Online= 'Nej' "
strSQL = strSQL & " Where Id = " & session("UserID")
Conn.Execute(strSQL)

End Sub
Sub Session_OnStart
//Kode der køres når en session starter
End Sub
Sub Session_OnEnd
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("/code/db/system.mdb")
Conn.Open DSN


strSQL = "Update Bruger set "
strSQL = strSQL & "Online= 'Nej' "
strSQL = strSQL & " Where Id = " & session("UserID")
Conn.Execute(strSQL)
End Sub
</SCRIPT>