LISTING 1: ASP Code That Uses the Microsoft XML Parser

<%
    Response.ContentType = "text/html"
   
    Const strConn = "provider=sqloledb;data source=gonewest2;database=test;User ID=sa;Password=;"

    Set conn = CreateObject("ADODB.Connection")
    Set cmd = CreateObject("ADODB.Command")
    Set xmldoc = CreateObject("MSXML2.DOMDocument")
    Set xsldoc = CreateObject("MSXML2.DOMDocument")
   
    'On Error GoTo trap

    conn.Open strConn

    Set cmd.ActiveConnection = conn
    cmd.CommandText = "select * from Composite"
    Set rs = cmd.Execute
    rs.MoveFirst
    ' Parse the XML document.
    xmldoc.loadXML (rs("xml"))
    ' Parse the XSL transformation.
    xsldoc.async = False
    xsldoc.Load (Server.MapPath("maketable.xsl"))
    ' Perform translation.
    xmldoc.transformNodeToObject xsldoc,Response
    conn.Close
%>