Sembrar Digital - Hoja Diocesana de Burgos

<body> <P><CODE><SCRIPT LANGUAGE=VBScript RUNAT=Server><BR>Sub Application_OnStart<BR>Application("usr_activos") = 0<BR>End Sub </CODE></P> <P><CODE>Sub Application_OnEnd<BR>End Sub</CODE></P> <P><CODE><BR>Sub Session_OnStart<BR>Session.Timeout = 20<BR>Application.lock<BR>Application("usr_activos") = Application("usr_activos") + 1<BR>Application.unlock<BR>End Sub</CODE></P> <P><CODE>Sub Session_OnEnd<BR>Application.lock<BR>Application("usr_activos") = Application("usr_activos") - 1<BR>Application.unlock<BR>End Sub<BR></SCRIPT></CODE></P> <p>Esta página usa marcos, pero su explorador no los admite.</p> <br> <br> </body>