brugere online (global.asa)

hej har lagt denne global.asa fil i roden af sitet:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
    \' Set our user count to 0 when we start the server
    Application(\"ActiveUsers\") = 0
End Sub

Sub Session_OnStart
    \' Change Session Timeout to 3 minutes (if you need to)
    Session.Timeout = 3
    \' Set a Session Start Time
    \' This is only important to assure we start a session
    Session(\"Start\") = Now
    \' Increase the active visitors count when we start the session
    Application.Lock
        Application(\"ActiveUsers\") = Application(\"ActiveUsers\") + 1
    Application.UnLock

End Sub

Sub Session_OnEnd
    \' Decrease the active visitors count when the session ends.
    Application.Lock
        Application(\"ActiveUsers\") = Application(\"ActiveUsers\") - 1
    Application.UnLock
End Sub

</SCRIPT>

og derefter lagt følgende på index-siden:
<%
Response.Write \"<left>Der er \" & Application(\"ActiveUsers\") & \" online!</CENTER>\"
%>

Problemet er bare at det ikke virker!!