<%
Function XML2HTML (SXML, SXSL)
Set objxml = creteObject ("Microsoft.xmLDom")
Set objxsl = creteObject ("Microsoft.xmLDom")
Objxml.Load (Server.MAppath (SXML))
Objxsl.load (server.mappath (sxsl))
XML2HTML = Objxml.TransformNode (Objxsl)
END FUNCTION
%>
