Global.asa

Sådan ser min global.asa ud
de to variabler jeg erklære under "Sub Session_OnStart" kan jeg sagten skrive ud fra en af mine asp sider.

men koden i "Sub Session_OnEnd" eksekveres ikke, jeg får ingen fejlm. og databasen bliver ikke opdateret med logout-tiden.

Er jeg helt forkert på den, hvis jeg siger at koden gerne skulle eksekveres når jeg lukke vinduet.
(dette skulle gerne virke så at man får skrevet logout-tiden ind i db'en selv om man kommer til at lukke vinduet og glemmer at trykke på logout.

Er der nogle der kan hjælpe en forvirret...??


<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    ' Skriv kode som skal køres når applikationen (serveren) starter
End Sub

Sub Application_OnEnd
    ' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    application("ses_id") = session.SessionID
    application("ip") = request.servervariables("REMOTE_ADDR")
End Sub

Sub Session_OnEnd
  Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("db/Fiskeri.mdb")&";"

            dato = Year(Date) & "-" & month(Date) & "-" & Day(Date) & " " & FormatDateTime(Time, 3)
           
            SQLstmt = "Update log set "
            SQLstmt = SQLstmt1 & "logout= #" & dato &"#"
            SQLstmt = SQLstmt1 & "Where ip='" & cstr(application("ip")) & "' AND ses_id='"& cstr(application("ses_id")) & "' AND logout IS NULL"
              myConn.Execute(SQLstmt)
                       
myConn.Close
Set myConn = nothing
Set SQLstmt = nothing
End Sub
</SCRIPT>