Hola, Desbloqueabas la aplicación y luego asignabas valores a variables de aplicación sin bloquear, aunque esto no es motivo de errores y sólo da problemas en la concurrencia de usuarios.
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
application.lock
application("visitas")=0
application("fecha")=date()
Application("ActiveUsers") = 0
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
application.UnLock
End Sub
Sub Session_OnStart
Session.Timeout = 20
Session("Start") = Now
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
If application("fecha") = Date() Then
application("visitas")=application(" ;visitas")+1
Else
application("fecha") = Date()
application("visitas") = 0
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
No he visto otra cosa así que escríbenos el error que te da y subráyanos en negrita la línea del código que te da error.
Esperamos. Un saludo, Laika.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>