% 'Function to load the xml file. Function loadXMLFile(strXMLFile, strXSLFile) Dim objXML Dim objXSL set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.async = false 'Load the xml file. objXML.load(strXMLFile) 'create XMLDOM object. set objXSL = Server.CreateObject("Microsoft.XMLDOM") objXSL.async = false 'Load the xsl file. objXSL.load(strXSLFile) Response.Write(objXML.transformNode(objXSL)) End Function %>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||