¿Cómo generar un fich HTML con el resulatdo de una pág ASP?
Quiero grabar en formato HTML el contenido de una página ASP. En principio me da igual que sea en el servidor que en el cliente. Gracias.
Supongo que te referirás a crear un html en el servidor (porque en el cliente es imposible), yo lo hago asÃ:
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = Server.MapPath("./")& "direccion"
if (Not fso.FolderExists(ruta)) then
Set fol = fso.CreateFolder(ruta)
Set fldr = fso.CreateTextFile(ruta &"/" & "index.html")
end if
if (Not fso.FolderExists(ruta)) then
Set fol = fso.CreateFolder(ruta)
Set fldr = fso.CreateTextFile(ruta &"/" & "index.html")
end if
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = Server.MapPath("./")& "direccion"
if (Not fso.FolderExists(ruta)) then
Set fol = fso.CreateFolder(ruta)
Set fldr = fso.CreateTextFile(ruta &"/" & "index.html")
end if
if (Not fso.FolderExists(ruta)) then
Set fol = fso.CreateFolder(ruta)
Set fldr = fso.CreateTextFile(ruta &"/" & "index.html")
end if
Hola,
Necesito crear una carpeta y un fichero tal y como pones en el ejemplo pero no me funciona correctamente.
El problema es que cuando ejecuto la página, la barra de progreso del ie empieza a correr pero nunca llega hasta el final. La página no se carga ni tampoco da error.
Las demás funciones de FileSystemObject sà funcionan (FileExists, etc...).
El código que utilizo es el siguiente (tal y como lo poneis en el ejemplo):
<%
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = Server.MapPath("./")& "direccion"
if (Not fso.FolderExists(ruta)) then
Set fol = fso.CreateFolder(ruta)
Set fldr = fso.CreateTextFile(ruta &"/" & "index.html")
end if
%>
¿Sabeis cuál puede ser el problema?
Os agradecerÃa mucho vuestra ayuda.
Saludos a todos,
Mónica
Necesito crear una carpeta y un fichero tal y como pones en el ejemplo pero no me funciona correctamente.
El problema es que cuando ejecuto la página, la barra de progreso del ie empieza a correr pero nunca llega hasta el final. La página no se carga ni tampoco da error.
Las demás funciones de FileSystemObject sà funcionan (FileExists, etc...).
El código que utilizo es el siguiente (tal y como lo poneis en el ejemplo):
<%
Set fso = CreateObject("Scripting.FileSystemObject")
ruta = Server.MapPath("./")& "direccion"
if (Not fso.FolderExists(ruta)) then
Set fol = fso.CreateFolder(ruta)
Set fldr = fso.CreateTextFile(ruta &"/" & "index.html")
end if
%>
¿Sabeis cuál puede ser el problema?
Os agradecerÃa mucho vuestra ayuda.
Saludos a todos,
Mónica
