Die Codekopie lautet wie folgt:
<%
ifSaveFile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp") dann
Response.write "erstellt"
anders
Response.write "nicht generiert"
Endif
FunktionsaveFile (LocalFileName, RemoteFileurl)
Dimads, Abruf, GetRemotedata
OnErrorresumeNext
SetRevalal = server.createObject ("microso" & "ft.xm" & "lhttp"))
Withrieval
.Open "Get", remoteFileurl, falsch, "," "," "
.Schicken
GetRemotedata = .ResponseBody
Endwith
SetReval = nichts
SetAds = server.createObject ("ado" & "db.str" & "eam")
Withads
.Type = 1
.Offen
.WriteGetRemotedata
.SavetoFileServer.Mappath (LocalFileName), 2
.Stornieren()
.Schließen()
Endwith
SetAds = nichts
ISTERR <> 0Then
SaveFile = false
err.clear
anders
SaveFile = true
Endif
Endfunktion
%>