Hola amigos, a ver si me pueden ayudar. Tengo en la base de datos una tabla llamada Noticias, en la que guardo el título, fecha y el desarrollo de la noticia, el cual es el nombre de un fichero de texto que contiene toda la información.
En la página asp, realizo una consulta a esa tabla extrayendo todos los noticias y colocándose cada una de ellas en una tabla. Pero a la hora de extraer el fichero de texto , sólo me lo hace bien la primera vez, las posteriores me sale el error
Error de Microsoft VBScript en tiempo de ejecución error '800a003e'
Se sobrepasó el final del archivo
Les escribo el código por si saben donde puede estar el error.He simplificado el código HTML de la tabla para que se puede leer mejor el código.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "BaseDeDatos"
Dim FSO
Dim File
sSQL = "Select * from Noticias"
set RS = Conn.execute (sSQL)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")% >
<% do while not RS.eof
Set File = FSO.OpenTextFile(Server.MapPath("noticias\") & "\" & RS("noticia"))%>
<table>
<tr>
<td><%=RS("titulo")%></td>
<td><%=File.ReadAll()%></td>-->AQUÍ MARCA EL ERROR
</tr>
</table>
<%
RS.movenext
Loop %>
Muchas gracias de antemano.