<%
dim xmldoc, xsldoc
set xmldoc = Server.CreateObject("MSXML2.DOMDOCUMENT")
xmldoc.async = false
xmldoc.load server.mappath("myxml.xml")
set xsldoc = Server.CreateObject("MSXML2.DOMDOCUMENT")
xsldoc.async = false
if request("choose")=1 then
xsldoc.load server.mappath("myxsl1.xsl")
else
xsldoc.load server.mappath("myxsl2.xsl")
end if
response.write xmldoc.transformnode(xsldoc)
%>