Global.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
    ' viser at vi starter fra 0 - kan ændres for evt snyd(!) ;o)
    Application("ActiveUsers") = 0
    Session.TimeOut = 10
End Sub

Sub Session_OnStart
    ' så er timeout'en på en session 3 minutter - kan ændres...
    Session.Timeout = 10
    Session("Start") = Now
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.UnLock

End Sub

Sub Session_OnEnd
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") - 1
    Application.UnLock
   
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" & server.mappath("/db.mdb") & "; pwd=;"
   
    Conn.Execute("UPDATE users SET Logout = #" & Now() & "#, Online = false WHERE Online = true AND id = " & Session("ID") & "")
    Set Rs = Conn.Execute("SELECT * FROM users WHERE id = " & Session("ID") & "")
    strTime = datediff("n", Rs("Login"), Rs("Logout"))
    strTime = Rs("OnlineTid") + strTime
    Conn.Execute("UPDATE users SET OnlineTid = '" & strTime & "', OnlineOpdater = '', OnlinePage = '' WHERE id = " & Session("ID") & "")
   
    Session.Abandon
   
    Alert("Du er hermed logget ud!")
End Sub

</SCRIPT>

-------------
Det er så min Global.asa som ligger i roden af min Pub_html mappe. Men jeg har så det problem at det er somom at Session_OnEnd ikke bliver udviklet.

Er der nogen der kan se hvorfor??