Ver Mensaje Individual
  #1 (permalink)  
Antiguo 09/08/2005, 02:10
Ihesu
 
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>&nbsp;</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!!!!