online users med global.asa

Jeg har fundet et script på activedeveloper.dk som giver mig mulighed for at få antallet af brugere online, samt en liste over brugernavnene på dem.

Men jeg kan ikke få det til at virke, jeg får en "type mismatch" fejl.

Min global.asa fil....

<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



' --- procedure til at tilføje en online bruger ---
Sub AddOnlineUser()
  Application.Lock
  Application("OnlineUsers") = Application("Onlineusers") & session("brugernavn") & ","
  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

</SCRIPT>

Når jeg så forsøger at hente en af oplsyningeren ud, gør jeg sådan <%Call CountOnlineUsers()%>

Når en bruger logger ind, oprettes der en session("brugernavn"), scriptet jeg bruger kan ses her http://activedeveloper.dk/artikler/default.asp?articleid=173