<% Dim nodeCount, ndx, nodePath, category nodeCount = Request.QueryString("category").count if (nodeCount > 0) then for ndx = 1 to nodeCount category = Request.QueryString("category")(ndx) gen_path "xml/outline.xml", "xsl/genlink.xsl", "category", category nodePath = "//category[@name = " & Chr(34) & category & Chr(34) & "]/*" xml_styleoutnode "xml/outline.xml", "xsl/outline.xsl", nodePath, Request.QueryString, "", "" next else xml_styleout "xml/outline.xml", "xsl/outline.xsl", Request.QueryString, "", "" end if %>