A cópia do código é a seguinte:
<%
ifSaveFile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp") então
Response.write "criado"
outro
Response.Write "não gerado"
endif
funções
Dimads, recuperação, getRemotedata
OnErrorReSumenext
Setretrieval = server.createObject ("microso" & "ft.xm" e "lhttp")
Withretrieval
.Popear "Get", RemoteFileurl, False, "", ""
.Enviar
GetRemotedata = .Responsebody
ENDWITH
Setretrieval = nada
Setads = server.createObject ("ADO" & "DB.STR" & "EAM")
Withads
.Type = 1
.Abrir
.WriteGetRemotedata
.SavetoFileServer.mappath (LocalFileName), 2
.Cancelar()
.Fechar()
ENDWITH
Setads = nada
iferr <> 0then
Savefile = false
err.clear
outro
Savefile = true
endif
Função final
%>