Кода -копия выглядит следующим образом:
<%
ifsavefile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp")
Response.write "Создан"
еще
Response.write "не сгенерирован"
эндиф
FunctionSaveFile (LocalFilename, RemoteFileurl)
Димадс, поиск, getRemotedata
OnerRorResumenext
Setretrieval = server.createObject ("microso" & "ft.xm" & "lhttp")
Безрельтивел
.Open "Get", remotefileurl, false "", "" "
.Отправлять
GetRemotedata =. -Responsebody
Энд
Setretrieval = ничего
SetAds = server.createObject ("ado" & "db.str" & "eam")
Withads
.Type = 1
.Открыть
.WriteGetRemotedata
.Savetofileserver.mappath (LocalFilename), 2
.Отмена()
.Закрывать()
Энд
Сетады = ничего
Iferr <> 0then
SaveFile = false
err.clear
еще
SaveFile = true
эндиф
Конечная функция
%>