Please try the following instead;
If IsObject(CreateObject("MSXML2.ServerXMLHTTP.6.0")) Then
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
... rest of code
End If
If this also fails, please see the following;
http://support.microsoft.com/kb/289481/
Ok, I've just about reach the point of pulling the hairs off the back of the dog.
I setup a test page:
http://www.bayoushopping.org/testbotscout.asp It has 4 total test connections and all are failing.
Test XML Format 1: Snippet:
Set xmlObj = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
xmlObj.async = False
xmlObj.setProperty "ServerHTTPRequest", True
xmlObj.Load("http://botscout.com/test/?multi&name=Mur&mail=Me@Me.com&ip=xxx.xxx.xxx.xxx&key=xyz&format=xml")
Test 2: Snippet:
Set Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", "http://botscout.com/test/?multi&name=" & Username & "&mail=" & emailAddress & "&ip=" & ipAddress & "&key=" & strAPIKey, False
xml.Send
Test 3: Snippet:
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://botscout.com/test/?multi&name=" & Username & "&mail=" & emailAddress & "&ip=" & ipAddress & "&key=" & strAPIKey, False
xml.Send
Test 4: Snippet:
If IsObject(CreateObject("MSXML2.ServerXMLHTTP.6.0")) Then
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP.6.0")
xml.Open "GET", "http://botscout.com/test/?multi&name=" & Username & "&mail=" & emailAddress & "&ip=" & ipAddress & "&key=" & strAPIKey, False
xml.Send
End If
The page will show the errors found during the connection process.
It will take time to load because it has to toss an error for 4 scripts attempting to connect.
If you have any ideas of what could be causing this I sure would like to read about it.
I've had the code I created when I first requested a KEY working and made no changes at all to any of my sites.
This afternoon everything attempting to connect to BotScout stopped.
I do have other XML feeds that use the same methods I have included in the test.