descarga de URL

[jfadelphi]

No sale el código que he puesto.
ver ahora.

<%
sub get_html (up_http, down_http)
dim xmlhttp
set xmlhttp = createobject("msxml2.xmlhttp.3.0")

xmlhttp.open "get", up_http, false
xmlhttp.send
dim fso
set fso = createobject ("Scripting.FileSystemObject")
dim newfile
set newfile = fso.CreateTextFile("c:\tmp\pepe.htm", true)

newfile.write (xmlhttp.responseText)
newfile.close

set newfile = nothing
set xmlhttp = nothing
end sub
get_html "http://www.midominio.com/pruebas/prueba.htm", "c:\tmp\pepe.htm"
%>