Se sobrepasó el final del archivo

[marcoanb]

Error de Microsoft VBScript en tiempo de ejecución error '800a003e'

Se sobrepasó el final del archivo

/upload/prueba2.asp, line 135
tengo el siguiente error al leer un archivo texto, alguien sabe que pasa y como solucionrlo


saludos

[legolas]

puedes publicar el código de la línea en que te da el error.

En todo caso
pregunta por el tuconsulta.eof, esto te indica si está al final de la consulta sql ;)

[marcoanb]

Set rstienda = Server.CreateObject ("ADODB.Recordset")
rstienda.Cursortype=1
rstienda.locktype=3
sqltxt="select m.de,m.asunto,m.para,m.codigo,d.codigo_memo,d.tien da,d.fecha_envio,d.revisado,m.detalle from detalle_memo d, memos m where m.codigo = d.codigo_memo and d.tienda ='"&tienda&"' and d.revisado='0'"
'response.write (sqltxt)

rstienda.open sqltxt, "DSN=memos"
response.write ("sale 6")
While Not rstienda.EOF
response.write ("entra 7")
detalle=rstienda("detalle")
asunto=rstienda("asunto")
de = rstienda("de")
para = rstienda("para")
response.write ("<BR> <font color=Red> ASUNTO: </font>"&rstienda("asunto")&am p;"<br>")
response.write (" <font color=Red> ENVIADO POR: </font>"&rstienda("de")&&q uot;<br>")
response.write ("<font color=Red> FECHA DE ENVIO: </font>"&rstienda("fecha_envio&quot ;)&"<br>")
response.write ("estaq entrando a leer los memos")
Dim fso, elArchivo, cadenadev
path= ""
path=cstr(detalle)
path=Server.MapPath("/memos/"&path)
response.write ("este es el path: "&path&" ....")
Set fso = CreateObject("Scripting.FileSystemObject&quot ;)
Set elArchivo = fso.OpenTextFile(path, 1,1)
cadenacom =""
cadenadev=""
Do While elArchivo.AtEndOfStream <> True
response.write ("entra a leer el archivo!!!!!!!!!!!")
leelinea = elArchivo.readline
cadenacom=cadenacom & chr(13) & chr(10) & leelinea
cadenadev = elArchivo.readline
response.write ("<font color=Red> DETALLE: </FONT> <BR>"&cadenadev&"<br&gt ;")
Loop
elArchivo.Close
set elarchivo=nothing
response.write ("sale 7")
fso.close
set fso = nothing
response.write ("---------------------------------------------------------------------------------<BR><BR>")
'cadenatotal=cadenatotal+chr(13)+chr(10)+"Asu nto: "+as

saludos

[marcoanb]

El error me da el momento que entra a leer la segunda vez el archivo txt

saludos