Un codigo, que no deja de molestar

Alejandro Lobo-Guerrero C.
30 de Octubre del 2002
En mi website, tengo un codigo que finaliza una secion de chat en asp, pero me sale un error, no se opr que? !!!!!!!Ayuda!!!!!!!!! , Porfavor.
El codigo es:

cerrar.asp
-------------------------------------------------
<% if Request.cookies("Apodo")<>"" then
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
Temporal(0)="<FONT COLOR=""#CCCCCC"">** " &Request.cookies("Apodo")&" ** Salio del chat</FONT>"
Application("Opiniones")=Temporal
Application.Unlock
response.cookies("apodo")=""
END IF%>
-------------------------------------------------

Incluir.asp
-------------------------------------------------
<%
IF Request.Cookies("Apodo")="" and request.form("opinion")<>"" THEN
if request.form("apodo")<>"" then
Response.Cookies("Apodo")=Request.Form("Apodo")
else
Response.Cookies("Apodo")="Anonimo"
end if
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
if request.form("apodo")<>"" then
Temporal(0)="<FONT COLOR=""#000000"">** " & Request.Form("Apodo") & " ** Entra en el chat</FONT>"
else
Temporal(0)="<FONT COLOR=""#000000"">** Anonimo ** Entra en el chat</FONT>"
end if
Application("Opiniones")=Temporal
Application.Unlock

END IF
IF Request.Form("Opinion")<>"" THEN
Apodo=Request.Cookies("Apodo")
Application.Lock
Temporal=Application("Opiniones")
FOR i=7 TO 0 STEP -1
Temporal(i+1)=Temporal(i)
NEXT
Temporal(0)=Apodo&": "&Request.Form("Opinion")
Application("Opiniones")=Temporal
Application.Unlock
END IF%>

<html>

<head>
<title>incluir opinion</title>
<base target="_self">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body bgcolor="#003366">
<FORM METHOD="POST" ACTION="/Chat/incluir.asp">
<% IF Request.Cookies("Apodo")="" THEN %>
<font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><strong>Callsing:</strong></font>
<INPUT TYPE="TEXT" SIZE=10 NAME="Apodo">
<input type="hidden" name="go" size="20" value="si">
<BR>
<% END IF %>
<INPUT TYPE="TEXT" SIZE=75 NAME="Opinion">
<INPUT TYPE="SUBMIT" VALUE="Enviar">
<p align="center"> <a href="/Chat/cerrar.asp" target="p"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><strong>Abandonar
Chat </strong></font></a> </p>
</FORM>
</body>

</html>
-------------------------------------------------

Vizualizacion.asp
-------------------------------------------------
<% PaginaActual="http://"&_
Request.ServerVariables("SERVER_NAME")&_
Request.ServerVariables("SCRIPT_NAME") %>
<html>

<head>
<META HTTP-EQUIV="REFRESH" CONTENT="5;<%=PaginaActual%>">
<title>Chat FAC-Fuerza Area Colombiana (Virtual)</title>
</head>

<body>
<% NEXT %>
<%
IF NOT isArray( Application("Opiniones")) THEN
Application.Lock
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar
Application.UnLock
END IF

Temporal=Application("Opiniones")
FOR Opinion=8 to 0 step -1%>
<%= Temporal(Opinion) %>
</body>

</html>
-------------------------------------------------

Global.asa
-------------------------------------------------
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Dim Auxiliar()
Redim Auxiliar(9)
Application("Opiniones")=Auxiliar

End Sub
</SCRIPT>
-------------------------------------------------

Bueno hay dejo el codigo, expuesto, el que descubra el error, porfa me ayuda, y pues un regalito al que quiera un chat en asp.

Gracias,

Alejandro Lobo-Guerrero C.
[email protected]