<% Dim xmlDOM Dim xslDOM Set xmlDOM = Server.CreateObject("Microsoft.XMLDOM") xmlDOM.async = False xmlDOM.setProperty "ServerHTTPRequest", true If xmlDOM.load("http://ws.capitoltechsolutions.com/getcontent.asmx/GetDataByPageDataID?PageDataID=" + Request("NewsID")) Then Set xslDOM = Server.CreateObject("Microsoft.XMLDOM") xslDOM.async = False xslDOM.setProperty "ServerHTTPRequest", true If (xslDOM.load(Server.Mappath("newsnext.xslt"))) Then Response.Write(xmlDOM.transformNode(xslDOM)) End If End If %>