Copiar los codigos y pegar

<script language=vbscript runat=server> Sub Application_OnStart Application("Activos") = 0 End Sub Sub Application_OnEnd 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 </script>

Para que la gente los pueda ver pon este codigo donde quieras de la web

<P>En este momento hay <%=Application("Activos")%> usuario/s en nuestro sitio</P>