Hvordan tæller jeg online brugere ??

<SCRIPT LANGUAGE = VBScript RUNAT = Server>

    Sub Application_OnStart
        Application.Lock
        Application("currentUser") = 0
        Application("allUser") = 0
        Application.UnLock
    End Sub
   
    Sub session_OnStart
        Application.Lock
        Application("currentUser") = Application("currentUser") + 1
        Application("allUser") = Application("allUser") + 1
        Application.UnLock
    End Sub
   
    Sub session_OnEnd
        Application.Lock
        Application("currentUser") = Application("currentUser") - 1
        Application.UnLock
    End Sub
   
</SCRIPT>

Og jeg udskriver det her: <%=Application("currentUser")%>

Men hvorfor virker det ikke? Der er ikke nogen fejl, men der sker bare ikke noget, selvom jeg er logget ind! 
 
Når en bruger logger ind, så hedder min session, session("brugernavn"), og jeg har uploadet det, og men global.asa ligger i roden!!

Hvad er fejlen?