objXmlHttp.send() 执行这句时出错是为什么 谢谢

Private Sub ToHtml(FromURL,FilePath)
    Response.Write("<a href=""" & FilePath & """ target=""_blank"">" & FilePath & " --> Ok</a><br>")
    FilePath = Server.MapPath(FilePath)
    Set objXmlHttp=Server.createObject("Microsoft." & "XMLHTTP")
    objXmlHttp.open "GET",FromURL,false
    objXmlHttp.send()    执行这句时出错是为什么 谢谢
    binFileData=objXmlHttp.responseBody
    Set objXmlHttp = Nothing
    Set objAdoStream=Server.createObject("ADODB." & "Stream")
    objAdoStream.Type=1
    objAdoStream.Open()
    objAdoStream.Write(binFileData)
    objAdoStream.SaveToFile FilePath,2
    objAdoStream.Close()
    Set objAdoStream = Nothing
End Sub