VBScript runtime error '800a01fb'

[handle87]

Hi,
I have ahd this script running without problem for a while now and just yesterday it started to fail every time it is run... the error message I am getting is:

Microsoft VBScript runtime error '800a01fb'

An exception occurred: 'xml.Send'

/includes/functionList.inc, line 38

basically the code is:

	Dim objXMLHTTP, xml

	Set xml = Server.CreateObject("Microsoft.XMLHTTP")

	xml.Open "GET", "[URL unfurl="true"]http://finance.yahoo.com/q?s=USDCAD=X",[/URL] False

	' Pull the data from the web page
	xml.Send

I teste the 'xml' object with IsObject and it returns true... I have tried differnt web pages to no avail... anyone have any ideas?
When I Goolge the runtime error, there is a lot of talk about not closing record set objects... could this error have something to o with another area of the code maybe?

Any suggestions?

 

[DotNetGnat]

have you done any latest security updates or service packs??

-DNG

 

[handle87]

Thanks for the post..
I have checked with our network admin and says there have been no updates. I have also tried to restart the IIS service and that did not work... I am going to try and get the server rebooted but that will not solve the problem, maybe only temporarily fix it... any other suggestions?

 

[DotNetGnat]

how about updating your code and using this:

(for MSXML 3)
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
Or for MSXML 4:
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")

the error you are getting is nothing to do with the XML part, may be its because of the other section of the code...

try a sample code with just XMLHTTP functionality and nothing else...

-DNG

 

[handle87]

Thanks, I will give that a try. I have rebooted the server and of course it is working again... the network admin seems to think it does not have to do with my program.

Thanks for the input!