<%
Function loadXMLfile(sXml, sXsl)
'sXml is the relative path to your XML file
'sXml is the relative path to your XSL stylesheet
'Load XML
Dim xml, xsl
set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.async = false
xml.load(Server.MapPath(sXml))

'Load XSL
set xsl = Server.CreateObject("Microsoft.XMLDOM")
xsl.async = false
xsl.load(Server.MapPath(sXsl))

'Transform file
loadXMLfile = xml.transformNode(xsl)
End Function

%>