(Classic ASP) XML NewChildAfter

Demonstrates the Chilkat.NewChildAfter method.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml")
set xml = Server.CreateObject("Chilkat.Xml")

xml.Tag = "order"
xml.NewChild2 "order_billing_info|price_list","Listino Italia"
xml.NewChild2 "order_billing_info|price_list_id","1"
xml.NewChild2 "order_billing_info|first_name","Francesco"

Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

' We now have the following XML:

' <?xml version="1.0" encoding="utf-8"?>
' <order>
'     <order_billing_info>
'         <price_list>Listino Italia</price_list>
'         <price_list_id>1</price_list_id>
'         <first_name>Francesco</first_name>
'     </order_billing_info>
' </order>

' Get the "order_billing_info" element
' orderBillingInfo is a Chilkat.Xml
Set orderBillingInfo = xml.FindChild("order_billing_info")

' Call NewChildAfter to add an XML element <customer_id> after <price_list_id>
' First get the index of the element price_list_id
index = orderBillingInfo.TagIndex("price_list_id")
Response.Write "<pre>" & Server.HTMLEncode( "index = " & index) & "</pre>"

' Add the "customer_id" element just after specified index.
' xCustId is a Chilkat.Xml
Set xCustId = orderBillingInfo.NewChildAfter(index,"customer_id","1234")

Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

' We now have:

' <?xml version="1.0" encoding="utf-8"?>
' <order>
'     <order_billing_info>
'         <price_list>Listino Italia</price_list>
'         <price_list_id>1</price_list_id>
'         <customer_id>1234</customer_id>
'         <first_name>Francesco</first_name>
'     </order_billing_info>
' </order>

%>
</body>
</html>