On session end køres ikke?

Hej..

Jeg har en global.asa til mit online bruger system, men den vil ikke slette brugeren fra listen når man logger af. Er der nogen som kan se fejlen?

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    ' Skriv kode som skal køres når applikationen (serveren) starter
   
    Application.Lock
      Application("OnlineUsers") = ","
    Application.UnLock
End Sub

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

Sub Session_OnStart
    ' Skriv kode som skal køres når en session starter
    Application.Lock
        if session("login") = "SES"&date() then
            Application("OnlineUsers") = Application("Onlineusers") & session("user") & ","
        else
            Application("OnlineUsers") = Application("Onlineusers") & "Gæst" & ","
        end if
    Application.UnLock
End Sub

Sub Session_OnEnd
    ' Skriv kode som skal køres når en session afsluttes
   
    If Len(Session("User")) > 0 Then
      Application.Lock
      Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("User") & ",", "")
      Application.UnLock
    End If
 
End Sub
</SCRIPT>

Den ser slet ikke ud til at køre Session_OnEnd for har prøvet at indsætte:

        Application.Lock
      Application("OnlineUsers") = ","
    Application.UnLock

Men den står stadig på 2 online.. Det er kun hvis jeg uploader global.asa igen at den begynder forfra og så tæller op når der kommer en på siden. Men den sletter ikke igen..