Sessions

Hej
Jeg har et problem med at registrere hvor mange brugere der er online på mit system. Jeg bruger sub'erne: Session_OnStart og Session_OnEnd til at tælle en applikationsvariabel = Activeusers op og ned.

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStar
    Application("ActiveUSers")=0
End Sub

Sub Session_OnStart
    Session.Timeout = 60
    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
End Sub

Problemet er bare at Session_OnEnd ikke bliver kaldt hvis en bruger lukker siden ned ved f.eks at trykke på X i højre hjørne, men kun når sessionens timeout kommer. Er det min kode det er galt med eller lader det sig bare ikke gøre at angive brugere online præcist?