Es asi de sencillo, pon esto en tu pagina donde quieres que aparezcan los usuarios activos:
<font size="2" color="#FFFFFF" face="Arial">HAY <%= Application("ActiveUsers") %> VISITAS ACTIVAS </font>
Y esto va en el global.asa en los apartados que se mencionan:
Sub Application_OnStart
' Contador usuarios
Application("ActiveUsers") = 0
Sub Session_OnStart
' Contador usuarios
Session.Timeout = 20
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
Sub Session_OnEnd
' Contador usuarios
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
Puedes ver una muestra de este mismo codigo en la parte inferior derecha de mi sitio web
Jose Maria Fernandez
<a href="mailto:
[email protected]">Webmaster @expansionweb.net</a>
<a target="_blank" href="Http://www.expansionweb.net">Http://www.expansionweb.net</a>