Antal brugere online?

En søgning på "online" i asp kategorien:
http://www.eksperten.dk/spm/Programmering/Script/ASP/?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=&spm_part=&spm_answer=&find=online&engine=exp

Ellers:
http://activedeveloper.dk/artikler/default.asp?articleid=173

<%
timeout_sek = 70    ' timeout i sekunder
max_users = "500"    ' max antal brugere der skal tælles
cookies_check = "no"    ' skal der tjekkes om browseren accepterer cookies ["yes" / "no"]
Session.Timeout = 2

if session("usernumber") <> "" then
    application("usersonline_" & session("usernumber")) = now
else
    if InStr(1, request.servervariables("HTTP_COOKIE"),"ASPSESSIONID", 1) <> 0 or cookies_check = "no" then
        'Browseren understøtter cookies (eller der tjekkes ikke for om browseren acceptere cookies)
        For i = 1 to max_users
            if IsDate(application("usersonline_"&i)) or application("usersonline_"&i) = "" then
                if application("usersonline_"&i) = "" then
                    session("usernumber") = i
                    i = max_users
                elseif DateDiff("s",application("usersonline_"&i),Now) > timeout_sek then
                    session("usernumber") = i
                    i = max_users
                end if
            end if
        next
        application("usersonline_"&session("usernumber")) = now
        application("userinfo_" & session("usernumber")) = "[" & Request.ServerVariables("REMOTE_HOST") & "]</td><td nowrap>[" & Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") & "]</td><td nowrap>[" & now & "]"
        if application("usersonline") < session("usernumber") then
            application("usersonline") = session("usernumber")
        end if
    elseif request("mode") <> "check" then
        response.redirect Request.ServerVariables("SCRIPT_NAME") & "?mode=check"
    else
        'Browseren understøtter ikke cookies
        response.write "Din browser understøtter ikke cookies"
    end if
end if

if application("usersonline") = "" then
    application("usersonline") = 1
end if

For i = 1 to application("usersonline")
    if len(application("usersonline_"&i)) then
        if DateDiff("s",application("usersonline_"&i),Now) > timeout_sek then
            application("usersonline_"&i) = ""
            application("userinfo_"&i) = ""
        else
            usersonline = usersonline+1
        end if
        max_i = i
    end if
next

application("usersonline") = max_i

response.write "online: " & usersonline & "<br>"
%>