<%
Function XML2HTML(sXML,sXSL)
Set objXML = CreateObject("Microsoft.XMLDOM")
Set objXSL = CreateObject("Microsoft.XMLDOM")
objXML.Load(Server.MapPath(sXML))
objXSL.Load(Server.MapPath(sXSL))
XML2HTML = objXML.transformNode(objXSL)
End Function
%>
Function XML2HTML(sXML,sXSL)
Set objXML = CreateObject("Microsoft.XMLDOM")
Set objXSL = CreateObject("Microsoft.XMLDOM")
objXML.Load(Server.MapPath(sXML))
objXSL.Load(Server.MapPath(sXSL))
XML2HTML = objXML.transformNode(objXSL)
End Function
%>