ASP Script for XML In-Document Zip Compression

ASP script showing how to Zip compress sub-trees within an XML document.

<%@ LANGUAGE="VBSCRIPT" %>

<%
    response.ContentType = "text/xml"
	
    ' Create an ASP XML parser object
    set xml0 = Server.CreateObject("Chilkat_9_5_0.Xml")

    ' Returns the XML page as a Variant
    set xml = xml0.HttpGet("http://www.xml-parser.com/companies.xml")

    ' Navigate to the first company record.
    b = xml.FirstChild2()
    While (b)
        ' Save the company name as an attribute.
        xml.AddAttribute "name", xml.GetChildContent("name")

        ' Zip compress the sub-tree.
        xml.CompressSubtree

        b = xml.NextSibling2()
    Wend

    ' Navigate back to the XML Document root.
    xml.GetRoot2

    response.write xml.GetXml()
%>

Relevant keywords: ASP Tutorial, ASP Script, ASP Application, ASP Software, ASP Code, ASP Programming, ASP Component, Free ASP Script, ASP Email, ASP Help, ASP Example, ASP Source Code, ASP Developer, ASP Mail, ASP XML, ASP Sample