SaveRemoteFile = False On Error Resume Next Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP") Retrieval.Open "GET", strRemoteUrl, False, "", "" Retrieval.Send If Retrieval.readyState <> 4 Then Exit Function If Retrieval.Status > 300 Then Exit Function GetRemoteData = Retrieval.ResponseBody Set Retrieval = Nothing
If LenB(GetRemoteData) > 100 Then Set oStream = Server.CreateObject("Adodb.Stream") oStream.Type = 1 oStream.Mode = 3 oStream.Open oStream.Write GetRemoteData oStream.SaveToFile Server.MapPath(strFileName), 2 oStream.Cancel oStream.Close Set oStream = Nothing Else Exit Function End If
If Err.Number = 0 Then SaveRemoteFile = True Else Err.Clear End If End Function %>
