Poornima wrote:

>      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 ErrHandler
> 
>     Dim strXML As String
>     Dim strPath As String
>     Dim strVersionNumber As String
> 
>     Dim objTreaty As CORE.Treaty
>     
>     Dim xmlUser As MSXML2.DOMDocument
>     Dim xmlTreatyData As MSXML2.DOMDocument
>     Dim xmlTreatyView As MSXML2.DOMDocument
>     
>     Dim xmlTemp As MSXML2.DOMDocument
>     Dim xndTemp As MSXML2.IXMLDOMNode
>     Dim xnlTemp As MSXML2.IXMLDOMNodeList
>     Dim xalTemp As MSXML2.IXMLDOMAttribute
>     Dim xelTemp As MSXML2.IXMLDOMElement
> 
>     Set xmlUser = New MSXML2.DOMDocument
>     Set xmlTreatyData = New MSXML2.DOMDocument
>     Set xmlTreatyView = New MSXML2.DOMDocument
>     
>     xmlUser.appendChild GetUserInfo(objRequest.ServerVariables("AUTH_USER"))
> 
>     xmlTreatyData.appendChild xmlCreateElement(xmlTreatyData, "TreatyQuery", "")
>     If xmlUser.selectSingleNode("//SecurityLevel").text <= READ_WRITE_REA_ID Then
>         strVersionNumber = "0"
>     Else
>         strVersionNumber = "MAX"
>     End If
>         
>     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" Then
>         xmlTreatyData.lastChild.lastChild.appendChild GetIntOrgs(Format$(Date, "mm/dd/yyyy"))
>         xmlTreatyData.lastChild.lastChild.appendChild GetReinsurers(strVersionNumber)
>     Else
>         xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "IntOrgs", "")
>         xmlTreatyData.lastChild.lastChild.appendChild xmlCreateElement(xmlTreatyData, "Reinsurers", "")
>     End If
> 
>     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)

Don't do that. Use

xmlTreatyData.transformNode(xmlTreatyView, objResponse)

instead.