Help - script stopped working

[garethharvey]

Hello, I am new here, but read many posts over the past year or so which has helped my business.

We have a dedicated server running a script to call a remote XML file using the following code:

 strXSLFile=server.MapPath("comparison.xsl") 
remote_file_name="theadvisory-p.xml"
response.ContentType="text/html"
dim objXML, objXSL
set objXML=server.CreateObject("MSXML2.DOMDocument")
set objXSL=server.CreateObject("MSXML2.DOMDocument")
objXML.async=False
objXSL.async=False
objXML.setProperty "ServerHTTPRequest",true
objXML.load "http://www.domain.co.uk/xmlfeed/XMLdata/"&remote_file_name
objXSL.load (strXSLFile)
response.write objXML.transformNode(objXSL)
set objXML=nothing
set objXSL=nothing

The code has been running fine until this morning when it suddenly stopped, I have uploaded it to our shared server where it runs fine, but just wont work on our dedicated server.

Could anyone please shed some light on what could be the issue?

This is the dedicated server: http://www.compareandconvey.co.uk/test-remote-read.asp

This is the shared server: http://www.web-conveyancing.co.uk/te...emote-read.asp

Any help would be appreciated

[garethharvey]

Problem solved, I think it was caused by the new IP addresses that we added yesterday