RE: [xsl] passing params using asp into wml

["Chris Bayes" <Chris at Bayes dot co dot uk>]

Andrew,
<% Response.Buffer=True %>
<%
stop
   Dim xml
   Dim xsl
   Dim template
   Dim processor

   Set xml = Server.CreateObject("MSXML2.DOMDocument.3.0")
   xml.async = false
   xml.load (Server.MapPath("test.xml"))

   Set xsl = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
   xsl.async = false
   xsl.load (Server.MapPath("test.xsl"))

   Set template = Server.CreateObject("MSXML2.XSLTemplate")
   template.stylesheet = xsl
   set processor = template.createProcessor  ' <-********************line 18

   processor.input = xml
   processor.addParameter "param1",Request.QueryString("param1").item
   processor.transform()

   Response.ContentType = "text/vnd.wap.wml"
   Response.Write "<?xml version=""1.0"" ?>"
   Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD " & _
                  "WML
1.1//EN""""http://www.wapforum.org/DTD/wml_1.1.xml"";>"

   Response.write (processor.output)
%>

XML/XSL Portal
http://www.bayes.co.uk/xml


 XSL-List info and archive:  http://www.mulberrytech.com/xsl/xsl-list