Online User.....

Hejsa...

Jeg er ved at lave et script der kan hvis om der er over 20 online bruger for så skal de blive sendt til en adresse ellers skal de til en anden adresse.

Min kode ser sådan ud og fejlen ligger inden for de sidste 15 liner:

----KODE START----

<%
Sub LogActiveUser
Dim strActiveUserList
Dim intUserStart, intUserEnd
Dim strUser
Dim strDate

strActiveUserList = Application(\"ActiveUserList\")

If Instr(1, strActiveUserList, Session.SessionID) > 0 Then
Application.Lock
intUserStart = Instr(1, strActiveUserList, Session.SessionID)
intUserEnd = Instr(intUserStart, strActiveUserList, \"|\")
strUser = Mid(strActiveUserList, intUserStart, intUserEnd - intUserStart)
strActiveUserList = Replace(strActiveUserList, strUser, Session.SessionID & \":\" & Now())
Application(\"ActiveUserList\") = strActiveUserList
Application.UnLock
Else
Application.Lock
Application(\"ActiveUsers\") = CInt(Application(\"ActiveUsers\")) + 1
Application(\"ActiveUserList\") = Application(\"ActiveUserList\") & Session.SessionID & \":\" & Now() & \"|\"
Application.UnLock
End If

End Sub
%>

<%
Sub ActiveUserCleanup
Dim ix
Dim intUsers
Dim strActiveUserList
Dim aActiveUsers
Dim intActiveUserCleanupTime
Dim intActiveUserTimeout

intActiveUserCleanupTime = 1
intActiveUserTimeout = 20

If Application(\"ActiveUserList\") = \"\" Then Exit Sub

If DateDiff(\"n\", Application(\"ActiveUsersLastCleanup\"), Now()) > intActiveUserCleanupTime Then

    Application.Lock
    Application(\"ActiveUsersLastCleanup\") = Now()
    Application.Unlock

    intUsers = 0
    strActiveUserList = Application(\"ActiveUserList\")
    strActiveUserList = Left(strActiveUserList, Len(strActiveUserList) - 1)

    aActiveUsers = Split(strActiveUserList, \"|\")

For ix = 0 To UBound(aActiveUsers)
    If DateDiff(\"n\", Mid(aActiveUsers(ix), Instr(1, aActiveUsers(ix), \":\") + 1, Len(aActiveUsers(ix))), Now()) > intActiveUserTimeout Then
        aActiveUsers(ix) = \"XXXX\"
    Else
        intUsers = intUsers + 1
    End If
Next

strActiveUserList = Join(aActiveUsers, \"|\") & \"|\"
strActiveUserList = Replace(strActiveUserList, \"XXXX|\", \"\")

    Application.Lock
    Application(\"ActiveUserList\") = strActiveUserList
    Application(\"ActiveUsers\") = intUsers
    Application.UnLock

End If

End Sub
%>

<%

\'Det virker fint
Call LogActiveUser()
Call ActiveUserCleanup()

\'Det virker ikke
if request & Application(\"ActiveUsers\") & > 20 then
    response.redirect(\"too-many-user.asp\")
Else
response.redirect(\"ok.asp\")
End If

\'Det virker fint
Response.Write \"Der er \" & Application(\"ActiveUsers\") & \" online brugere.\"

%>

----KODE SLUT----

Hjælpe :)