Josuke

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Application_OnStart
	Application("visitas") = 0
	Application("Active") = 0
End Sub 

Sub Application_OnEnd
End Sub

Sub Session_OnStart
	Session.Timeout = 20
	Session("Start") = Now
	Session("Debug") = 1
	Session("Conn") = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.mappath("/db/datos.mdb") & ";"
	
	Application.lock
	Application("visitas") = Application("visitas") + 1
	intTotal_visitas = Application("visitas")
	Application.unlock
	Session("VisitorID") = intTotal_visitas
	
	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>