Global.asa sänker server

Hej,
Försöker räkna antalet aktiva användare med detta script i Global.asa.

<Script Language="VBScript" Runat="Server">

Sub Application_OnStart
Application("online") = 0
End Sub

Sub Session_OnStart
Session.Timeout = 1
Application.Lock
Application("online") = Application("online") + 1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("online") = Application("online") - 1
Application.UnLock
End Sub

</Script>

Jag får problem när jag testkör detta, både lokalt och på mitt webbhotell. Om jag uppdaterar sidan 2-3 ggr så hänger den sig direkt.. Någon som stött på detta problem tidigare?

Cheers / Foppa