xmlTreatyData.transformNode(xmlTreatyView, objResponse) - errors ou
because transformNode accepts one parm only (the sylesheet). Are you asking to use transformNodeToObject instead

oXMLDOMNode.transformNodeToObject(stylesheet, outputObject

Poornim
    
     ----- Julian F. Reschke wrote: ----
    
     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 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)
     
     Don't do that. Use
     
     xmlTreatyData.transformNode(xmlTreatyView, objResponse)
     
     instead.