Ayuda Urgente Alguien sabe de esto ?

[urjose]

en el archivo global.asa debes poner lo siguiente

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application.Lock
Application("Activos") = 0
Application.Unlock
End Sub

Sub Session_OnStart
Application.Lock
Application("Activos") = Application("Activos") + 1
Application.Unlock
End Sub

Sub Session_OnEnd
Application.Lock
Application("Activos") = Application("Activos") - 1
Application.Unlock
End Sub

Sub Application_OnEnd
'Cualquier código
End Sub
</SCRIPT>



Para mandar llamar los usuarios activos desde cualquier pagina usa esto

Response.Write("Hay " & Application("Activos") & " usuarios activos.")

<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true">