xml| problem |xml xmlfile = "Http://myserver/catalog.xml"
Xslfile = "Catalog.xsl"
' Create related objects
Set xsldoc = server. CreateObject ("MSXML2.") Freethreadeddomdocument ")
Set xmldoc = server. CreateObject ("MSXML2.") DOMDocument ")
' Read the XSL file
Xsldoc.async = False
Xsldoc.resolveexternals = True
Xsldoc.load server. MapPath (Xslfile)
' Read XML file
Xmldoc.setproperty ' ServerHTTPRequest ', true ' set ServerHTTPRequest property to True to load an XML document through the HTTP protocol
Xmldoc.async = False ' Sets the Async property to False to turn off the asynchronous call
Xmldoc.resolveexternals = True ' Set Resolveexternals to True open external DTD analysis
Xmldoc.validateonparse = False ' sets Validateonparse to False allows document validation
Xmldoc.load xmlfile ' Read XML document
Do while (xmldoc). ReadyState < 4) ' Check ReadyState status value is 4 ' specific numeric definition see MSXML SDK document
Xmldoc.waitforresponse 10 ' Wait for the document to complete read through the waitForResponse method ' if read completed, System paused for 10 milliseconds
Loop
' Convert XML-> HTML and output document
Xmldoc.transformnodetoobject Xsldoc,response
' Empty object
Set XSLT = Nothing
Set Xsldoc = Nothing
Set xmldoc = Nothing
