Global.asa virker ikke

Hej

Jeg har lige fået et "online bruger" system men kan ikke få det til at virke..

Min global.asa ser således ud:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
Session.Timeout = 25
Application.Lock
Application("OnlineUsers") = ","
Application.UnLock
End Sub

Sub Session_OnEnd
If Len(session("brugernavn")) > 0 Then
  Application.Lock
  Application("OnlineUsers") = Replace(Application("OnlineUsers"), session("brugernavn") & ",", "")
  Application.UnLock
End If
End Sub

</SCRIPT>

Og så bruger jeg følgende til at hente oplysninger med:

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

<%response.write CountOnlineUsers()%>

Så har jeg følgende til at tilføje brugere til online listen:

Sub AddOnlineUser()
        Application.Lock
        if session("login") = "SES"&date() then
        Application("OnlineUsers") = Application("Onlineusers") & session("userid") & ","
        else
        Application("OnlineUsers") = Application("Onlineusers") & "Gæst" & ","
        end if
        Application.UnLock
        End Sub

Men den skriver bare 0 lige meget hvad jeg gør..