请多指教

<%
Function readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=1 then
%>
<script language="JavaScript">
alert("对不起,该新闻条数已经少于1条新闻条数!");
</script>
<%
else
end if
End Function
%>

<%
call readrss("http://www.richfree.c/")
%>

如果call readrss的地址不对的话，会出错，请高手指教

   Select Case objXMLHTTP.readyState
    Case 0
    Response.Write("对象初始化失败,估计你输入了一堆无效的字符....")
    GetXml=False
    Case 1
    Response.Write("域名分析超时/连接站点超时!也许是这个网站有问题,或许是超时设定太短,或许机器没有联网")
    GetXml=False
    Case 2   
    Response.Write("发送数据请求超时,是不是服务器出故障了?")
    GetXml=False
    Case 3
     ContentLength=objXMLHTTP.GetResponseHeader("Content-Length")
     If err.number=-2147012746 then
     Response.Write("数据下载超时/等待反馈时间超时")
     Else
     Response.Write("数据下载超时/等待反馈时间超时")
     End If
    Err.clear
    GetXml=False
    Case 4
  
   End Select 
   
  
  

End Function
%>

<%
call readrss("ghyu")
%>

麻烦看一下，是这样写吗？不过我还是出错阿，出错在 objXMLHTTP.send() 这一行

错误类型：
msxml3.dll (0x80004005)
未指定的错误