The way we are setup here is that there is one ASP page per screen (with barebones code) that invokes VB COM object in return. The Transform is done in the VB code. I am sending you both the ASP code and the part of VB where the command is issued

ASP
<%@ Language=VBScript %><%	Option Explicit %><%	Response.Buffer = True %><%	Response.Expires = -1 %><%	Dim objTreaty %><%	Set objTreaty = Server.CreateObject("CORE_UI.TreatyRead") %><%	objTreaty.Search() %><%	Set objTreaty = Nothing %

VB Code
Public Sub Search(

On Error GoTo ErrHandle

    Dim strXML As Strin
    Dim strPath As Strin
    Dim strVersionNumber As Strin

    Dim objTreaty As CORE.Treat
   
    Dim xmlUser As MSXML2.DOMDocumen
    Dim xmlTreatyData As MSXML2.DOMDocumen
    Dim xmlTreatyView As MSXML2.DOMDocumen
   
    Dim xmlTemp As MSXML2.DOMDocumen
    Dim xndTemp As MSXML2.IXMLDOMNod
    Dim xnlTemp As MSXML2.IXMLDOMNodeLis
    Dim xalTemp As MSXML2.IXMLDOMAttribut
    Dim xelTemp As MSXML2.IXMLDOMElemen

    Set xmlUser = New MSXML2.DOMDocumen
    Set xmlTreatyData = New MSXML2.DOMDocumen
    Set xmlTreatyView = New MSXML2.DOMDocumen
   
    xmlUser.appendChild GetUserInfo(objRequest.ServerVariables("AUTH_USER")

    xmlTreatyData.appendChild xmlCreateElement(xmlTreatyData, "TreatyQuery", ""
    If xmlUser.selectSingleNode("//SecurityLevel").text <= READ_WRITE_REA_ID The
        strVersionNumber = "0
    Els
        strVersionNumber = "MAX
    End I
       
    xmlTreatyData.lastChild.appendChild xmlCreateElement(xmlTreatyData, "Lookups", ""
    xmlTreatyData.lastChild.lastChild.appendChild GetStaticEnum(TREATY_TYPE
    xmlTreatyData.lastChild.lastChild.appendChild GetStaticEnum(TREATY_STATUS
    xmlTreatyData.lastChild.lastChild.appendChild GetStaticEnum(COMMIT_STATUS
    xmlTreatyData.lastChild.lastChild.appendChild GetAccountManagers(

    If objRequest.Form("chkAdvanced") = "on" The
        xmlTreatyData.lastChild.lastChild.appendChild GetIntOrgs(Format$(Date, "mm/dd/yyyy")
        xmlTreatyData.lastChild.lastChild.appendChild GetReinsurers(strVersionNumber
    Els
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "IntOrgs", ""
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "Reinsurers", ""
    End I

    Set xelTemp = xmlCreateElement(xmlTreatyData, "item", ""
    xelTemp.setAttribute "code", "
    xelTemp.setAttribute "Level", "1
    xelTemp.setAttribute "description", "(All)
    xmlTreatyData.selectSingleNode("//IntOrgs").insertBefore xelTemp, xmlTreatyData.selectSingleNode("//IntOrgs/item[0]"

    Set xelTemp = xmlCreateElement(xmlTreatyData, "item", ""
    xelTemp.setAttribute "code", "-1
    xelTemp.setAttribute "description", "(All)
    xmlTreatyData.selectSingleNode("//treaty_type").insertBefore xelTemp, xmlTreatyData.selectSingleNode("//treaty_type/item[0]"
   
    Set xelTemp = xmlCreateElement(xmlTreatyData, "item", ""
    xelTemp.setAttribute "code", "-1
    xelTemp.setAttribute "description", "(All)
    xmlTreatyData.selectSingleNode("//treaty_status").insertBefore xelTemp, xmlTreatyData.selectSingleNode("//treaty_status/item[0]"
   
    Set xelTemp = xmlCreateElement(xmlTreatyData, "item", ""
    xelTemp.setAttribute "code", "-1
    xelTemp.setAttribute "description", "(All)
    xmlTreatyData.selectSingleNode("//commit_status").insertBefore xelTemp, xmlTreatyData.selectSingleNode("//commit_status/item[0]"
   
    Set xelTemp = xmlCreateElement(xmlTreatyData, "AccountManager", ""
    xelTemp.appendChild xmlCreateElement(xmlTreatyData, "UserID", "-1"
    xelTemp.appendChild xmlCreateElement(xmlTreatyData, "Name", "(All)"
    xmlTreatyData.selectSingleNode("//AccountManagers").insertBefore xelTemp, xmlTreatyData.selectSingleNode("//AccountManagers/AccountManager[0]"
   
    Set xelTemp = xmlCreateElement(xmlTreatyData, "Reinsurer", ""
    xelTemp.appendChild xmlCreateElement(xmlTreatyData, "CompanyID", "-1"
    xelTemp.appendChild xmlCreateElement(xmlTreatyData, "LongName", "(All)"
    xmlTreatyData.selectSingleNode("//Reinsurers").insertBefore xelTemp, xmlTreatyData.selectSingleNode("//Reinsurers/Reinsurer[0]"
    
    xmlTreatyData.lastChild.appendChild xmlCreateElement(xmlTreatyData, "SearchCriteria", "")
    If objRequest.ServerVariables("REQUEST_METHOD") = "POST" Then
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "Name", objRequest.Form("txtTreatyName"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "ORISTreatyNumber", objRequest.Form("txtTreatyNbr"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "ReinsCoNbr", objRequest.Form("txtPIMSNbr"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "ExtAgmtNo", objRequest.Form("txtExtAgmtNo"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "BUID", Mid$(objRequest.Form("cboIntOrg"), 151, 6))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "TreatyType", objRequest.Form("cboTreatyType"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "Status", objRequest.Form("cboTreatyStatus"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "CommitStatus", objRequest.Form("cboCommitStatus"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "AcctMgrID", objRequest.Form("cboActMgr"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "CompanyID", objRequest.Form("cboReinsurer"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "EffDate", Format$(objRequest.Form("txtEffDate"), "yyyy-mm-dd"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "ExpDate", Format$(objRequest.Form("txtExpDate"), "yyyy-mm-dd"))
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "VersionNumber", strVersionNumber)
        xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "AdvancedRange", objRequest.Form("chkAdvancedRange"))
        
        Set xmlTemp = New MSXML2.DOMDocument
        
        xmlTemp.appendChild xmlCreateElement(xmlTemp, "TreatySectionSearch", "")
        Set xnlTemp = xmlTreatyData.selectSingleNode("//SearchCriteria").childNodes
        For Each xndTemp In xnlTemp
            If xndTemp.xml <> "" Then
                xmlTemp.lastChild.appendChild xmlCreateElement(xmlTemp, xndTemp.nodeName, xndTemp.text)
            End If
        Next xndTemp
        
        If objRequest.Form("txtAdvanced") = "" Then
            
            Set objTreaty = CreateObject("CORE.Treaty")
            xmlTemp.loadXML objTreaty.Search(xmlTemp.xml)
            Set objTreaty = Nothing
        
            xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "Advanced", objRequest.Form("chkAdvanced"))
        
            xmlTreatyData.lastChild.appendChild xmlCreateElement(xmlTreatyData, "SearchResults", "")
            xmlTreatyData.lastChild.lastChild.appendChild xmlTemp.selectSingleNode("//Treaties")
            Set xmlTemp = Nothing
            
            Set xnlTemp = xmlTreatyData.getElementsByTagName("Treaty")
            For Each xndTemp In xnlTemp
                xndTemp.appendChild xmlCreateElement(xmlTreatyData, "StatusDesc", GetStaticEnumDescription(TREATY_STATUS, xndTemp.selectSingleNode("Status").text))
                xndTemp.appendChild xmlCreateElement(xmlTreatyData, "CommitStatusDesc", GetStaticEnumDescription(COMMIT_STATUS, xndTemp.selectSingleNode("CommitStatus").text))
            Next xndTemp
            
        Else

            xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "Advanced", objRequest.Form("chkAdvanced"))
        
        End If
        
xmlTreatyView.async = False
    strPath = objRequest.ServerVariables("PATH_TRANSLATED")
    strPath = Left$(strPath, Len(strPath) - 3) & "xsl"
    xmlTreatyView.Load strPath

    objResponse.Write xmlTreatyData.transformNode(xmlTreatyView)

thanks,
Poornima