Contador de usuarios activos sin global.asa

[toniquio]

Gracias por la corrección Macedo, de todas formas más abajo vuelvo a pegar el nuevo logon.asp.
Esa corrección es muy oportuna, ya que de la forma erronea no funciona correctamente y a veces muestra "-1 usuarios activos" o se conectan dos y sigue mostrando un uno.

Ahi va:

logon.asp

Código:

 <%@LANGUAGE="VBSCRIPT"%> 
<%
randomize
Session("USER")=Cstr(Int(rnd(1)*100000000+1))
ArrUSERS=Split(Application("USUARIOS"),"#",-1)
for contador=0 to Ubound(ArrUSERS)-1
ArrACTUAL=Split(ArrUSERS(contador),"|",-1)
if ArrActual(0)=Session("USER") And conta<>1 then ArrACTUAL(1)=Int(Timer): ArrUSERS(contador)=ArrACTUAL(0)&"|"&ArrACTUAL(1) :conta=1
next
if conta<>1 then Application("USUARIOS")=Application("USUARIOS")&Session("USER")&"|"&Timer&"#"
Response.Redirect("entrada.asp")
%>

Ale a disfrutarlo.