Get remote files and save to local

<%
'****************************************************************************
' PageName:GetRemoteFiles.asp
' Function:download the files to Server
' Author:xiaotian
' Last Modified at:2003-3-19
'****************************************************************************
' Get the remote file and save it to the local
Function getremotefiels (RemotePath, LocalPath, FileName)
Dim strbody
Dim FilePath
On Error Resume Next
' Get the Flow
Strbody = GetBody (RemotePath)
' Get the saved file name
If Right (LocalPath, 1) <> "" Then LocalPath = LocalPath & ""
FilePath = LocalPath & GetFileName (RemotePath, FileName)
' Save file
If SaveToFile (strbody, FilePath) = True and err. Number = 0 Then
Getremotefiles = True
Else
Getremotefiles = False
End If
End Function
' Get content remotely
Function getbody (URL)
Dim Retrieval
' Create a XMLHTTP object
Set retrieval = CreateObject ("Microsoft.XMLHTTP")
With retrieval
. Open "Get", url, False, "", ""
. Send
GetBody =. Responsebody
End With
Set retrieval = Nothing
End Function
' Reorganize filename
Function GetFileName (RemotePath, FileName)
Dim arrtmp
Dim Strfileext
Arrtmp = Split (RemotePath, ".")
Strfileext = Arrtmp (UBound (arrtmp))
GetFileName = FileName & "." & Strfileext
End Function
' Save stream content as a file
Function SaveToFile (Stream, FilePath)
Dim objstream
On Error Resume Next
' Create a ADODB.stream object that must be ADO 2.5 version
Set objstream = Server.CreateObject ("ADODB. Stream ")
objStream.Type = 1 ' Open in binary mode
objStream.Open
Objstream.write Stream
Objstream. SaveToFile FilePath, 2
Objstream. Close ()
' Close the object and release the resource
Set objstream = Nothing
If Err. Number <> 0 Then
SaveToFile = False
Else
SaveToFile = True
End If
End Function
%>