Dim @@paramID@@: @@paramID@@ = "@@paramDefault@@" If @@paramShortVal@@ <> "" Then @@paramID@@ = @@paramShortVal@@ End If <@ endloop @> Dim @@transName@@: Set @@transName@@ = new MM_XSLTransform @@transName@@.setXML "@@xmlFile@@" @@transName@@.setXSL "@@xslFile@@" <@ loop (@@paramNames@@, @@paramValues@@) @>@@transName@@.addParameter "@@paramNames@@", @@paramValues@@ <@ endloop @> Response.write @@transName@@.Transform() %>]]> \s*"" Then [^\r\n]* = [^\r\n]* End If(?:\r\n|\r(?!\n)|\n)[ \t]*)*?)Dim ([^\r\n]*?): Set [^\r\n]*? = new MM_XSLTransform(?:\r\n|\r(?!\n)|\n)[ \t]*[^\r\n]*?\.setXML "([^\r\n]*?)"(?:\r\n|\r(?!\n)|\n)[ \t]*[^\r\n]*?\.setXSL "([^\r\n]*?)"(?:\r\n|\r(?!\n)|\n)[ \t]*((?:[^\r\n]*\.addParameter "[^\r\n]*", [^\r\n]*(?:\r\n|\r(?!\n)|\n)[ \t]*)*?)Response\.write [^\r\n]*?\.Transform\(\)(?=\r\n|\r|\n|%>)/i]]> \s*"" Then [^\r\n]*? = [^\r\n]*? End If(?:\r\n|\r(?!\n)|\n)[ \t]*/i]]> .setXSL