<%
'==================================================================
'Function name: SaveRemoteFile
'Function: Save remote files to local
'Parameter: strFileName----Save file name
'strRemoteUrl---Remote File URL
'Return value: Boolean True/False
'==================================================================
FunctionSaveRemoteFile(ByValstrFileName,ByValstrRemoteUrl)
DimoStream, Retrieval, GetRemoteData
SaveRemoteFile=False
OnErrorResumeNext
SetRetrieval=Server.CreateObject("Microsoft.XMLHTTP")
Retrieval.Open"GET",strRemoteUrl,False,"",""
Retrieval.Send
IfRetrieval.readyState<>4ThenExitFunction
IfRetrieval.Status>300ThenExitFunction
GetRemoteData=Retrieval.ResponseBody
SetRetrieval=Nothing
IfLenB(GetRemoteData)>100Then
SetoStream=Server.CreateObject("Adodb.Stream")
oStream.Type=1
oStream.Mode=3
oStream.Open
oStream.WriteGetRemoteData
oStream.SaveToFileServer.MapPath(strFileName),2
oStream.Cancel
oStream.Close
SetoStream=Nothing
Else
ExitFunction
EndIf
IfErr.Number=0Then
SaveRemoteFile=True
Else
Err.Clear
EndIf
EndFunction
%>
