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

Microsoft VBScript 运行时错误 错误 '800a01fb'   出现一个意外错误: 'send'   /123548965/HtmlSave.asp，行 90  

解决方法是增加延时，请教下要怎么增加