15/04/2005, 14:36
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 4 meses Puntos: 535 | |
Mmmm... no estoy seguro si esta era la versión final, pero por las dudas probala a ver si te sirve:
Código:
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Archivo = FSO.OpenTextFile("c:\inetpub\wwwroot\unArchivo.asp", 1, false)
Contenido = Archivo.ReadAll
Contenido = Split(Contenido, vbcrlf)
For i = 0 To Ubound(Contenido)
tmp = Contenido(i)
tmp = Replace(tmp, CHR(034), CHR(034) & CHR(034))
tmp = "strHTML = strHTML & """ & Server.HTMLEncode(tmp) & """ & vbcrlf" & "<br>"
tmp = Replace(tmp, " ", " ")
Response.Write tmp
Next
Archivo.Close
Set Archivo = Nothing
Set FSO = Nothing
%>
__________________
...___... |