Global.asa (?)

Hvorfor virker dette ikke?

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application.Lock
Application("OnlineUsers") = ","
Application("OnlineUsersId") = ","
Application("Guest") = ","
Application.UnLock
End Sub

Sub Application_OnEnd
End Sub

Sub Session_OnStart
End Sub

Sub Session_OnEnd

If Len(Session("Brugernavn")) > 0 Then
    Application.Lock
    Application("OnlineUsers") = Replace(Application("OnlineUsers"), Session("Brugernavn") & ",", "")
    Application("OnlineUsersID") = Replace(Application("OnlineUsersID"), Session("ID") & ",", "")
    Application.UnLock       
End If
If Len(Session("Guest")) > 0 Then
    Application.Lock
    Application("Guest") = Replace(Application("Guest"), Session("Guest") & ",", "")
    Application.UnLock
        End If
End Sub
</SCRIPT>


Det er meningen at den så skal gemme "Session("Guest")", så man kan tælle den med:

Function CountOnLineUsers()
    Dim arrUsers
    arrUsers = Split(Application("Onlineusers"), ",")
    CountOnLineUsers = UBound(arrUsers) - 1
End Function



Jeg har lavet Session("Guest") i en include fil, og den sætning jeg laver den i ser sådan ud:

<% Session("Guest") = "Guest: " & request.servervariables("REMOTE_ADDR") %>

og den bliver fint gemt, og kan ses med Response.Write !

Hvorfor skriver den så bare at der er 0 sessions ???