Listar usuarios conectados

[Javier01]

Buenas tardes:

Bueno creo que podrías resolverlo así:

En la función Application_OnStart colocamos el codigo:

Código ASP:

Sub Application_OnStart
  Dim aListaAux()
  Redim aListaAux(0)
  Application("ListaUsuarios") = aListaAux
End Sub
 

En la función Session_OnStart:

Código ASP:

Sub Session_OnStart
    aLista = Application("ListaUsuarios")
    aLista(ubound(aLista))= Session.SessionID
    Redim Preserve aLista(ubound(aLista) +1)
    Application("ListaUsuarios") = aLista
End Sub
 

y luego en alguna página asp:

Código ASP:

if IsArray(Application("ListaUsuarios")) then
      aListaUsuarios = Application("ListaUsuarios")
      for i = 0 to UBound(aListaUsuarios)
          Response.Write(aListaUsuarios(i) & "<BR>")
      Next
   Else
      Response.Write("Application('aListaUsuarios') no es una matriz! <BR>")
   end if
 

Aunque falta la parte donde se elimina la sesión.
Esto se podría hacer en la función Sub Session_OnEnd
Recorriendo el array y buscando la sesión a eliminar.

Saludos!