Se sobrepasó el final del archivo

[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