jeremy-h of Web Development
10/26/2017 - 8:34 PM

ASP Call to CMS

A reference to call our page by ID from our CMS. Data is added to the DOM based on what is written into the relative xslt file (example uses content.xslt).

cms-ref.html
content_copyfile_download
<%
    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/GetDataByPageID?PageID=782") Then
        Set xslDOM = Server.CreateObject("Microsoft.XMLDOM")
        xslDOM.async = False
        xslDOM.setProperty "ServerHTTPRequest", true
        If (xslDOM.load(Server.Mappath("content.xslt")))Then
            Response.Write(xmlDOM.transformNode(xslDOM))
        End If
    End If
%>