Online users med Global.asa

Jeg har følgende i min Global.asa :

<Script Language=VBScript Runat=Server>


Sub Session_OnStart

End Sub


Sub Session_OnEnd

If Len(Session("bruger")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("bruger") & ",", "")
    Application.UnLock
End If

End Sub


Sub Application_OnStart

    Application.Lock
    Application("OnlineUsers") = ","
    Application.UnLock
   
End Sub


Sub Application_OnEnd

End Sub


</SCRIPT>

som ligger i roden på min webserver !


Følgende skulle så bruges til at udksrive hvem og hvor mange der er logget ind ! :

<%
' --- procedure til at tilføje en online bruger ---
Sub AddOnlineUser()
    Application.Lock
    Application("OnlineUsers") = Application("Onlineusers") & Session("bruger") & ","
    Application.UnLock
End Sub
' --- funktion som retunerer antallet af online brugere ---
Function CountOnLineUsers()
    Dim arrUsers
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- antallet af online brugere er altid størrelsen på arrayet -1 ---
    CountOnLineUsers = UBound(arrUsers) - 1
End Function

' --- procedure til at udskrive online brugere ---
Sub WriteOnLineUsers()
    Dim arrUsers
    Dim n
    ' --- lav et array med online brugere ---
    arrUsers = Split(Application("Onlineusers"), ",")
    ' --- udskriv liste ---
    For n = 1 To UBound(arrUsers) -1
        Response.Write(arrUsers(n) & "<br>")
    Next
End Sub
%>

<% writeonlineusers %><br>
<%= CountOnLineUsers %>

men det virker ikke ! den skriver bare "0" selvom jeg er logget ind ! Hvad har jeg gjort galt ?!