epa2, haciendo pruebas, llegué a la misma concusión que lo que te estoy citando aquí arriba y te había dicho hace unos días. Hacé estas pruebas para verificarlo:
En una página llamada "pagina.asp", colocá esto:
Código:
<%
Function Contenido(page) 'obtengo el contenido del archivo y lo pongo en una variable
Set objFSO2 = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO2.OpenTextFile(Server.MapPath(page))
strContents = objFile.ReadAll
objFile.Close
Set objFile = Nothing
Set objFSO2 = Nothing
Contenido = strContents
End Function
%>
<% = Replace(Server.HTMLEncode(Contenido("pagina.asp")),vbcrlf , "<br>") %>
Si te muestra el contenido, quiere decir que funciona bien.
Ahora, en la misma carpeta donde está el archivo "pagina.asp", creá un TXT completamente vacío y con el nombre "archivo.txt". En la página "pagina.asp", cambiá:
Código:
<% = Replace(Server.HTMLEncode(Contenido("pagina.asp")),vbcrlf , "<br>") %>
por:
Código:
<% = Replace(Server.HTMLEncode(Contenido("archivo.txt")),vbcrlf , "<br>") %>
Si te dice...
Cita: Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A003E)
Se sobrepasó el final del archivo
... está correcto porque el archivo "archivo.txt" está vacío.
En todo caso, en esa función no está el problema sino en alguna otra parte del código que no colocaste.