¿Un contador de usuarios activos sin global.asa?

[macedo]

Te paso el código que te comentaba antes:

Ha de estar en un frame (en mi caso oculto) que se autorecarge cada cierto tiempo (10 seg por ejemplo)

ArrUSERS=Split(Application("USUARIOS"),& quot;|",-1)
for contador=0 to Ubound(ArrUSERS)-1
ArrACTUAL=Split(ArrUSERS(contador),"#",-1)
if (Timer-INT(ArrACTUAL(1)))>30 then
ArrUSERS(contador)=""
else
if ArrActual(0)=Session("USER") then ArrACTUAL(1)=Int(Timer): ArrUSERS(contador)=ArrACTUAL(0)&"#"& amp;ArrACTUAL(1)
end if
next

TODOS=""
for contador=0 to Ubound(ArrUSERS)-1
if ArrUSERS(contador)<>"" then TODOS=TODOS&ArrUSERS(contador)&"!&quo t;
next
Application("USUARIOS")=TODOS

Numero_de_usuarios=Ubound(Split(Application(" USUARIOS"),"|",-1))

Además tienes que hacer lo siguiente cuando el usuario loge:

Application("USUARIOS")=Application(&quo t;USUARIOS")&Session("USER")&am p;"#"&Cstr(Timer)&"|"

Espero que te sirva.

Saludos.