Usuarios Activos

[Torus]

Para mostrar los usuarios activos tienes que poner en el directorio RAIZ DEL SITIO un archivo llamado global.asa
que tiene esta forma:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
Session.Timeout = 20
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub

Y en la pagina deberas de incluir

<%= Application("ActiveUsers") %>
Por cierto trata de escribirlo en el bloc de notas pues yo lo he escrito en un editor y no me preguntes pero no me funciono.

Saludos