Classic ASP
Classic ASP
Move XML Subtree to Another XML Document
Demonstrates using the InsertChildTreeBefore method to move a fragment of XML from one document to another.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' Source XML is this:
' <?xml version='1.0' encoding='UTF-8'?>
' <soapenv:Envelope xmlns:"soapenv="http://schemas.xmlsoap.org/soap/envelope/">
' <soapenv:Header/>
' <soapenv:Body>
' <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws">
' <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456" >
' <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
' <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
' </CrmCustomer>
' </GetCustomerResponse>
' </soapenv:Body>
' </soapenv:Envelope>
' Build the source XML.
set srcXml = Server.CreateObject("Chilkat.Xml")
srcXml.Tag = "soapenv:Envelope"
success = srcXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
srcXml.UpdateChildContent "soapenv:Header",""
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse",1,"xmlns","http://www.midoco.de/crm")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse",1,"xmlns:tns","http://www.midoco.de/ws")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine1","Max Mustermann")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"addresseeLine2","")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer",1,"changingUser","123456")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressId","2225355")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"addressTypeId","1")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"checkStatus","O")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"city","Wien")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"countryCode","AT")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmAddress",1,"customerId","000071")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthDay","30")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthMonth","8")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthYear","1977")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthday","1977-08-30T00:00:00.000+02:00")
success = srcXml.UpdateAttrAt("soapenv:Body|GetCustomerResponse|CrmCustomer|CrmPerson",1,"birthdayNotProvided","false")
' Destination XML is this:
' <?xml version="1.0" encoding="utf-8"?>
' <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
' <SOAP-ENV:Header>
' <m:Credentials xmlns:m="http://www.midoco.de/system">
' <m:Login>User</m:Login>
' <m:Password>Pass</m:Password>
' <m:OrgUnit>ABC</m:OrgUnit>
' <m:Locale>de_DE</m:Locale>
' </m:MidocoCredentials>
' </SOAP-ENV:Header>
' <SOAP-ENV:Body>
' <SaveCustomerRequest>
' </SaveCustomerRequest>
' </SOAP-ENV:Body>
' </SOAP-ENV:Envelope>
set destXml = Server.CreateObject("Chilkat.Xml")
destXml.Tag = "SOAP-ENV:Envelope"
success = destXml.AddAttribute("xmlns:SOAP-ENV","http://schemas.xmlsoap.org/soap/envelope/")
success = destXml.AddAttribute("xmlns:SOAP-ENC","http://schemas.xmlsoap.org/soap/encoding/")
success = destXml.AddAttribute("xmlns:xsi","http://www.w3.org/2001/XMLSchema-instance")
success = destXml.AddAttribute("xmlns:xsd","http://www.w3.org/2001/XMLSchema")
success = destXml.UpdateAttrAt("SOAP-ENV:Header|m:Credentials",1,"xmlns:m","http://www.midoco.de/system")
destXml.UpdateChildContent "SOAP-ENV:Header|m:Credentials|m:Login","User"
destXml.UpdateChildContent "SOAP-ENV:Header|m:Credentials|m:Password","Pass"
destXml.UpdateChildContent "SOAP-ENV:Header|m:Credentials|m:OrgUnit","ABC"
destXml.UpdateChildContent "SOAP-ENV:Header|m:Credentials|m:Locale","de_DE"
destXml.UpdateChildContent "SOAP-ENV:Body|SaveCustomerRequest",""
' We want to move the "CrmCustomer" subtree in the source XML to inside the "SaveCustomerRequest" element in the destination.
' Navigate to CrmCustomer
' crmCust is a Chilkat.Xml
Set crmCust = srcXml.FindChild("soapenv:Body|GetCustomerResponse|CrmCustomer")
If (srcXml.LastMethodSuccess <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( "Failed to find CrmCustomer element.") & "</pre>"
Response.End
End If
' Navigate to SaveCustomerRequest
' crmSaveCust is a Chilkat.Xml
Set crmSaveCust = destXml.FindChild("SOAP-ENV:Body|SaveCustomerRequest")
If (destXml.LastMethodSuccess <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( "Failed to find SaveCustomerRequest element.") & "</pre>"
Response.End
End If
' Move CrmCustomer tree to SaveCustomerRequest.
crmSaveCust.InsertChildTreeBefore 0,crmCust
' Look at the resulting destXml. You can see the CrmCustomer subtree moved to underneath SaveCustomerRequest.
Response.Write "<pre>" & Server.HTMLEncode( destXml.GetXml()) & "</pre>"
' <?xml version="1.0" encoding="utf-8"?>
' <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
' <SOAP-ENV:Header>
' <m:Credentials xmlns:m="http://www.midoco.de/system">
' <m:Login>User</m:Login>
' <m:Password>Pass</m:Password>
' <m:OrgUnit>ABC</m:OrgUnit>
' <m:Locale>de_DE</m:Locale>
' </m:Credentials>
' </SOAP-ENV:Header>
' <SOAP-ENV:Body>
' <SaveCustomerRequest>
' <CrmCustomer addresseeLine1="Max Mustermann" addresseeLine2="" changingUser="123456">
' <CrmAddress addressId="2225355" addressTypeId="1" checkStatus="O" city="Wien" countryCode="AT" customerId="000071"/>
' <CrmPerson birthDay="30" birthMonth="8" birthYear="1977" birthday="1977-08-30T00:00:00.000+02:00" birthdayNotProvided="false"/>
' </CrmCustomer>
' </SaveCustomerRequest>
' </SOAP-ENV:Body>
' </SOAP-ENV:Envelope>
' Look at the resulting srcXml. The CrmCustomer subtree was removed.
Response.Write "<pre>" & Server.HTMLEncode( srcXml.GetXml()) & "</pre>"
' <?xml version="1.0" encoding="utf-8"?>
' <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">
' <soapenv:Header/>
' <soapenv:Body>
' <GetCustomerResponse xmlns="http://www.midoco.de/crm" xmlns:tns="http://www.midoco.de/ws"/>
' </soapenv:Body>
' </soapenv:Envelope>
%>
</body>
</html>