ASP读取XML出错？高手请进。。。

[xiaobo080]

Function GetJdList(PageIndex,PageSizes,Id1,Id2,Keyword,code)
Dim Intface,http,tmNote
Intface = Url&"GetZmrPiaosPrice.aspx?username="&Username&"&password="&Pwd&"&Pageindex="&Pageindex&"&Pagesize="&Pagesizes&"&ProvinceID="&id1&"&Cityid="&id2&"&keyword="&keyword&"&code="&code&"&DATATIME="&now
set http= CreateObject("Microsoft.XMLHTTP")
http.open "GET",Urls,false '打开网页
http.send()
if http.readystate=4 then
tmNote=http.responsetext
else
response.write("ERROR:DATA IS SHUTDOWN!")
exit function
end if
GetJdList = tmNote
End function

Xmls = GetJdList(1,10,0,0,"","") '调取XML
Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
objXML.Load(xmls)
Set objNode=objXML.documentElement
a= objNode.ChildNodes.length
运行后，会提示：Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象
。紧急求助！！！！！

[stlsm]

提示哪一行出错呢?