La copia del código es la siguiente:
<%
ifsaveFile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp") Entonces
Response.Write "Creado"
demás
Respuesta.WRITE "No generado"
endif
FunctionsaveFile (localFileName, RemoteFileUrl)
Dimads, recuperación, getremotedata
OnerrorResumEnext
SetRetrieval = server.createObject ("Microso" y "ft.xm" y "lhttp")
Withrrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Enviar
Getremotedata = .ResponseBody
Fin
SetRetrreieval = nada
Setads = server.createObject ("ADO" y "DB.STR" y "EAM")
Ronca
.Type = 1
.Abierto
.WriteGetRemotedata
.Savetofileserver.mappath (localFileName), 2
.Cancelar()
.Cerca()
Fin
Setads = nada
iferr <> 0
SaveFile = false
Err.Clear
demás
SaveFile = True
endif
Función final
%>