Ha sido al trascribir en el fichero esta bien.
He hecho una prueba. He cambiado el nombre del control de visitantes activos por "prueba" y no va cuando lo cambio... Obviamente en el documento también lo cambio... Activos = <%=Application("prueba")%> y no funciona. Ejemplo
<script language="VBScript" runat="Server">
Sub Application_OnStart
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Application.Lock
Application("prueba")=Application("prueba")+1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("prueba")=Application("prueba")-1
Application.UnLock
End Sub
</script>
Sólo va con visitante. No puedo usar otro nombre...