Problem med online users - global.asa

Hej...

Jeg har på en side en visning af brugere online som engang har virket korrekt.. :/

Nu begynder der at opstå et problem med at den brugeren ikke bliver slettet, når vedkommende forlader siden igen. Den bliver bare ved med at forhøje tallet med brugere online.

Jeg fatter det ikke og det virkede så sent som i går og har virket det sidste halve år... :/

Har jeg en fejl i min 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
End Sub

Sub Session_OnStart
    ' så er timeout'en på en session 3 minutter - kan ændres...
    Session.Timeout = 3
    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

</SCRIPT>
-----------------------------------------

Her er koden hvor jeg viser hvor mange der er online.
------------------
Response.Write "<CENTER>" & Application("ActiveUsers") & " bruger(er) online</CENTER>"
------------------------