%@ Language=VBScript%> <% option explicit Response.Expires = 0 %> <% dim RQ, strArticleID, strXsltAlias dim objArticle, strOutput dim domDoc, domNodeList, domNode dim intNbrXslt, arrXslt(2), intLoop set RQ = Request.QueryString strArticleID = RQ("ID") strXsltAlias = RQ("xslt") if strXsltAlias = "" then strXsltAlias = "default" end if set objArticle = server.CreateObject("IRC_Web.Article") set domDoc = server.CreateObject("MSXML2.DomDocument.4.0") domDoc.load (Server.MapPath("xslt/Settings.xml")) set domNodeList = domDoc.documentElement.selectNodes("xsltFile") for intLoop = 0 to domNodeList.length - 1 set domNode = domNodeList.item(intLoop) if ucase(strXsltAlias) = ucase(domNode.selectSingleNode("FileAlias").Text) then arrXslt(0) = domNode.selectSingleNode("FileAlias").Text arrXslt(1) = domNode.selectSingleNode("FilePath").Text end if next strOutput = objArticle.Transform(cstr(arrXslt(1)),cstr(Application("ConnectionString_ConnectionString")), cstr(strArticleID)) set domDoc = nothing set domNodeList = nothing set objArticle = nothing %>