Vad är det för fel på min Global.asa?

Jag vill räkna antalet inloggade. Jag sökte här på forumet och använde Vides enkla kod men det ville inte bli korrekt (jag fick 5-6 inloggade efter ett tag när det bara var jag). Sen testade jag denna koden och det blev 40 st helt plötsligt. Denna koden använde jag senast:

<script language=VBScript runat=Server>
Sub Application_OnStart
Application("WhoOn") = 0
End Sub

Sub Application_OnEnd
'---nothing here
End Sub

Sub Session_OnStart
Session.Timeout = 20 
'---lock Application variable before updating
Application.Lock
Application("WhoOn") = Application("WhoOn") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("WhoOn") = Application("WhoOn") - 1
Application.Unlock
End Sub
</script>

När man är inloggad så bl<script language=VBScript runat=Server>
Sub Application_OnStart
Application("WhoOn") = 0
End Sub

Sub Application_OnEnd
'---nothing here
End Sub

Sub Session_OnStart
Session.Timeout = 20
'---lock Application variable before updating
Application.Lock
Application("WhoOn") = Application("WhoOn") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("WhoOn") = Application("WhoOn") - 1
Application.Unlock
End Sub
</script>