Fejl i online script

Nogen der kan se hvorfor dette script nogen gange smider bruger af og andre gange bliver bruger hængende?

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

'timeout_sek = 60

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("brugernavn")) > 0 Then
Application.Lock
Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("brugernavn") & ",", "")
Application.UnLock
End If
   
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub

</SCRIPT>