Ok, entonces te paso un pequeño script que acabo de escribir.
Priemro te digo como funciona:
1- El archivo se tiene que llamar "html2asp.asp" (si le modificás el nombre, modificá también el código porque hace referencia a él mismo)
2- Colocás el archivo en una carpeta de tu sitio:
2.1- Si el archivo HTML al que le querés hacerle un response.write de cada una de sus líneas está en la misma carpeta que el archivo "html2asp.asp", directamente ejecutás éste último (
http://misitio/carpeta1/html2asp.asp) y luego clickeás sobre el archivo en cuestión.
2.2- Si el archivo a "responsewritear" está una carpeta por encima del "html2asp.asp" (digamos, una carpeta llamada "carpeta2"), lo llamás así:
http://misitio/carpeta1/html2asp.asp...2/ejemplo.html
2.3- En el caso que esté una carpeta por debajo, lo llamás así:
http://misitio/carpeta1/html2asp.asp..../ejemplo.html
4- Finalmente copiá la salida y pegala en tu editor ASP favorito.
Acá va el código de html2asp.asp:
<%
file = Request("file")
If file = "" then
Ruta = Server.MapPath(".")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Carpeta = FSO.GetFolder(Ruta)
Set Archivos = Carpeta.Files
for each archivo in Archivos
Response.Write "<a href='html2asp.asp?file=" & archivo.Name & "'>" & archivo.Name & "</a><br>"
next
Set Archivos = Nothing
Set Carpeta = Nothing
Set FSO = Nothing
Else
file = Server.MapPath(file)
'on error resume next
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Archivo = FSO.OpenTextFile(file, 1)
Contenido = Archivo.ReadAll
Contenido = Replace(Contenido, "<", "<")
Contenido = Replace(Contenido, ">", ">")
Contenido = Replace(Contenido, " ", "&_nbsp;")
Contenido = Replace(Contenido, CHR(34), CHR(34) & " & CHR(34) & " & CHR(34))
arrContenido = Split(Contenido, VBCrLf)
Response.Write("<code>")
For i = 0 To UBound(arrContenido)
If Len(arrContenido(i)) = 0 Then
Response.Write "Response.Write VBCrLf" & "<br>"
Else
Response.Write "Response.Write " & CHR(34) & arrContenido(i) & CHR(34) & "<br>"
End if
Next
Response.Write("</code>")
Set Archivo = Nothing
Set FSO = Nothing
End if
%>
Saludos
PD: Donde dice
&_nbsp;, quitale el guión bajo entre "&" y "n"