<%@ Language=VBScript %> <% ' prevent page caching Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 msggroup = Request.QueryString("msggroup") xslpath = Server.mappath("viewmessagelist.xsl") '"d:\InetPub\wwwroot\XMLmessageboard\messageboard.xsl" xmlpath = Application("xmlpath") set xdoc = Application("xdoc") set xsldoc = Server.CreateObject("MSXML2.FreeThreadedDOMDocument") xsldoc.async = false xsldoc.load(xslpath) set xsltemp = Server.createObject("MSXML2.XSLTemplate") xsltemp.stylesheet=xsldoc set xslproc = xsltemp.createProcessor xslproc.input=xdoc xslproc.output=Response ' parameter for message group xslproc.addParameter "msggroup",msggroup xslproc.transform Response.End %>