Código de ASP - Usuarios activos

'Código para el archivo Global.asa

'www.lawebdelprogramador.com

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart

	Application("Active") = 0

End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart

	Session.Timeout = 20

	Application.lock

	Application("Active") = Application("Active") + 1

	Application.unlock

End Sub

Sub Session_OnEnd

	Application.lock

	Application("Active") = Application("Active") - 1

	Application.unlock

End Sub

</SCRIPT>