Dim xml, xsl

Set xml = Server.CreateObject("MSXML2.DOMDocument")

Set xsl = Server.CreateObject("MSXML2.DOMDocument")
xml.async = False
xsl.async = False
xml.load Server.MapPath("xmldata.xml")
xsl.load Server.MapPath("stylesheet.xsl")
xsl.selectSingleNode("//xsl:param[@name='browser']").text = "ie"
Response.Writexml.transformNode(xsl)

Set xml = Nothing

Set xsl = Nothing