Tælle online brugere med global.asa

Jeg har dette script liggende i men global.asa

<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!