Problem med "online brugere" script (Global.asa)

Hej hej.

Jeg har fundet et scripte (Her på E) som viser hvilke brugere der er online. Det gør den ved at læse session("username"). problemet er at brugere ikke bliver fjrnet fra listen når de forlader siden..?
Her er scriptet (global.asa):
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">


' timeout_sek = 2


Sub Application_OnStart
    ' Nulstiller antallet af brugere når applikationen (serveren) startes
   
    Application.Lock
    Application("OnlineUsers") = ","
    Application.UnLock
   
   
    Application("ActiveUsers") = 0
End Sub

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

Sub Session_OnStart
    ' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    ' Reducer antallet af brugere med 1, når en session afsluttes
   
If Len(Session("username")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("username") & ",", "")
    Application.UnLock
End If
   
   
    Application.Lock
        Application("ActiveUsers") = Application("ActiveUsers") - 1
    Application.UnLock
End Sub
</SCRIPT>

jeg skulle mene at det er heri problemet er....

HH