
09/08/2005, 02:10
|
| | Fecha de Ingreso: julio-2005
Mensajes: 3
Antigüedad: 19 años, 9 meses Puntos: 0 | |
Malditos ejemplos de Application Hi!
Que no os fastidie mi pregunta de principiante!! Jeje...
Estoy trabajando con un libro de ASP 3 y un ejercicio con el Objeto Application me da error (0x800A000D) sin cesar.
--El script completo es el siguiente
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request.Form<>"" then
application.Lock
application("NumOpiniones")=(Application("NumOpini ones")+1) MOD 9
Temporal=Application("Opiniones")
Temporal(Application("NumOpiniones"))=request.Form ("Opinion")
Application("Opiniones")=Temporal
Application.UnLock
end if
%>
<html>
<head>
<title>Documento</title>
</head>
<body>
<p><strong>
Últimas opiniones registradas sobre el comercio de pieles:
</strong></p>
<p> </p>
<%
Temporal=Application("Opiniones")
for Opinion= 0 to 8 %>
<%= Temporal(Opinion) %><br />
<% next %>
</body>
</html>
--El script en Global.asa es el siguiente:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
Application("NumOpiniones")=1
END SUB
</SCRIPT)
--La línea en que detecta el error es la 8:
Temporal(Application("NumOpiniones"))=request.Form ("Opinion")
PODRIAIS AYUDARME?? Os juro que lo agradecería un montón!!! Seguro que es una tontería, pero al inicio las tonterías pueden ser auténticas pesadillas, no??
GRACIAS!!!! |