runtime error '800a01f5

truskyvb · #1 (**permalink**) 02/01/2009, 04:44

Antes de nada, Feliz Año!!! Mi consulta es la siguiente: Tengo un libro de firmas que unas
veces funciona y otras no.
El error que da es:

Microsoft VBScript runtime error '800a01f5'

Illegal assignment: 'FileObject'

/truskyl/Libro.asp, line 83

El error lo da en esta parte del código:

<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim ThisLine, PrintLine
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
GuestBookFile = Server.MapPath("guestbook.txt")
Set InputStream = FileObject.OpenTextFile(GuestBookFile, ForReading, False)
Do While Not InputStream.AtEndOfStream
ThisLine = split(InputStream.ReadLine, "vbCrLf ")
PrintLine = "<hr>" + PrintLine

PrintLine = " " + PrintLine

For x = LBound(ThisLine) To UBound(ThisLine)

If x = UBound(ThisLine) + 1 Then
PrintLint = ThisLine(x) + " " + PrintLine
Else
PrintLine = ThisLine(x) + " " + PrintLine
End If

Next

PrintLine = " " + PrintLine

Loop

InputStream.Close
Set OutputStream = Nothing
Set FileObject = Nothing

Response.Write replace(PrintLine, "//vbReturn//", " ")

%>
---------------------------

Si podeis darme alguna idea os lo agradezco.

Un saludo

Adler · #2 (**permalink**) 02/01/2009, 08:12

Hola

Cita:

Iniciado por truskyvb

Tengo un libro de firmas que unas
veces funciona y otras no.

¿Qué condiciones se dan cuando falla?

Suerte

truskyvb · #3 (**permalink**) 02/01/2009, 08:59

No entiendo muy bien la pregunta. Yo accedo al libro como cualquier usuario, para ver que no has spam o algún comentario que no proceda. Utilizo IE 6, y a veces me carga bien la página mostrando los mensajes que hay y otras no. Espero haber contestado a tu pregunta, si no es así, indicamelo por favor.

Adler · #4 (**permalink**) 02/01/2009, 15:25

Hola

El código en principio parece correcto, tienes declarado el objeto

Suerte

truskyvb · #5 (**permalink**) 02/01/2009, 16:02

Gracias, pero peor me lo pones, porque a veces da ese error desde hace 4 años que lo he colgado.
Un saludo

carlinhos1976 · #6 (**permalink**) 02/01/2009, 16:46

Prueba a declarar la variable/objeto FileObject. VB es un poco traicionero y, aunque no es obligatorio declarar las variables a no ser que se emplee "option explicit", a veces no hacerlo da errores aleatorios.

Código PHP:

  Dim FileObject

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

Yo siempre recomiendo "option explicit" para que obligue a declararlo absolutamente todo y me avise de qué está declarado y qué no.

Prueba y nos dices qué tal te fue (no lo he probado en mi sistema, hace años que no toco ASP clásico ni VB, me pasé a .Net+C# y PHP

)

truskyvb · #7 (**permalink**) 03/01/2009, 05:58

He seguido tu consejo. Tengo que observar la página unos días, a ver como responde. Ya os digo si funciona o no.
Gracias por todo.

truskyvb · #8 (**permalink**) 03/01/2009, 06:10

Creo que no pongo Option Explicit en el sitio adecuado. Me da este error:
Microsoft VBScript compilation error '800a0400'

Expected statement

/truskyl/Libro.asp, line 1

OPTION EXPLICIT
----------

Lo he puesto al principio de la página:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<% OPTION EXPLICIT %>
<HTML><HEAD>
<TITLE>Truskylandia - El Libro de visitas de Trusky</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta http-equiv="Page-Enter" content="blendTrans(Duration=0.9)">
<meta http-equiv="Page-Exit" content="blendTrans(Duration=0.9)">
<meta name="Microsoft Border" content="none, default">
<META content="MSHTML 6.00.2900.2722" name=GENERATOR>
<link rel="meta" href="http://www.truskylandia.com/labels.rdf" type="application/rdf+xml" title="ICRA labels" />
<script language="JavaScript">

Adler · #9 (**permalink**) 03/01/2009, 06:51

Hola

Prueba con esto

Cita:

<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

Suerte

truskyvb · #10 (**permalink**) 03/01/2009, 07:01

Ahora si va. Gracias. La tendré en observación y con lo que ocurra os digo. Un saludo y gracias.

truskyvb · #11 (**permalink**) 03/01/2009, 12:13

He probado la página hasta cansar y no falla. Gracias a los dos por la ayuda. Después de tanto tiempo lo he resuelto.

Un saludo y muchas gracias.