Classic ASP
Demonstrate the XML "I" Property

Demonstrates the XML "I" property. The properties I, J, and K can be used in paths to access the I'th, J'th, or K'th child in a path. Three indexing properties are provided to allow for triple-nested loops using this feature.
Note: This example requires Chilkat v9.5.0.64 or later.
Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP
Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

' This example uses the XML document at https://www.chilkatsoft.com/exampleData/xero_accounts.xml
' The data is a download of the Xero accounts for the sandbox company test data (it's not real data).

' We'll use Chilkat HTTP to download the XML.
' This example assumes the Chilkat HTTP API to have been previously unlocked.
' See Global Unlock Sample for sample code.

set sbXml = Server.CreateObject("Chilkat.StringBuilder")

' Download the XML from https://www.chilkatsoft.com/exampleData/xero_accounts.xml
' into sbXml
url = "https://www.chilkatsoft.com/exampleData/xero_accounts.xml"
set http = Server.CreateObject("Chilkat.Http")
success = http.QuickGetSb(url,sbXml)
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
    Response.End
End If

bAutoTrim = 0
set xml = Server.CreateObject("Chilkat.Xml")
success = xml.LoadSb(sbXml,bAutoTrim)

' How many accounts exist?
numAccounts = xml.NumChildrenAt("Accounts")
Response.Write "<pre>" & Server.HTMLEncode( "numAccounts = " & numAccounts) & "</pre>"

i = 0
Do While i < numAccounts
    xml.I = i
    Response.Write "<pre>" & Server.HTMLEncode( "AccountID: " & xml.GetChildContent("Accounts|Account[i]|AccountID")) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Name: " & xml.GetChildContent("Accounts|Account[i]|Name")) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "Code: " & xml.GetChildIntValue("Accounts|Account[i]|Code")) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "EnablePaymentsToAccount: " & xml.GetChildBoolValue("Accounts|Account[i]|EnablePaymentsToAccount")) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"
    i = i + 1
Loop

' The output looks like this:

' 	numAccounts = 69
' 	AccountID: ceef66a5-a545-413b-9312-78a53caadbc4
' 	Name: Checking Account
' 	Code: 90
' 	EnablePaymentsToAccount: False
' 	----
' 	AccountID: 3d09fd49-434d-4c18-a57b-831663ab70d2
' 	Name: Savings Account
' 	Code: 91
' 	EnablePaymentsToAccount: False
' 	----
' 	AccountID: 5f5e1b00-5331-4ee5-bc84-39dbd9a27db3
' 	Name: Accounts Receivable
' 	Code: 120
' 	EnablePaymentsToAccount: False
' 	----
' 	AccountID: b0a23f8d-1b6d-4209-96f9-8046f794e1f4
' 	Name: Prepayments
' 	Code: 130
' 	EnablePaymentsToAccount: False
' 	----
' 	...

' The xero_accounts.xml file contains data that looks like this:

' 	<Response xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
' 	  <Id>409d062b-d3c2-4062-99a6-31b7c1c14662</Id>
' 	  <Status>OK</Status>
' 	  <ProviderName>ChilkatPrivate</ProviderName>
' 	  <DateTimeUTC>2016-11-01T22:30:13.3606258Z</DateTimeUTC>
' 	  <Accounts>
' 	    <Account>
' 	      <AccountID>ceef66a5-a545-413b-9312-78a53caadbc4</AccountID>
' 	      <Code>090</Code>
' 	      <Name>Checking Account</Name>
' 	      <Status>ACTIVE</Status>
' 	      <Type>BANK</Type>
' 	      <TaxType>NONE</TaxType>
' 	      <Class>ASSET</Class>
' 	      <EnablePaymentsToAccount>false</EnablePaymentsToAccount>
' 	      <ShowInExpenseClaims>false</ShowInExpenseClaims>
' 	      <BankAccountNumber>132435465</BankAccountNumber>
' 	      <BankAccountType>BANK</BankAccountType>
' 	      <CurrencyCode>USD</CurrencyCode>
' 	      <ReportingCode>ASS</ReportingCode>
' 	      <ReportingCodeName>Assets</ReportingCodeName>
' 	      <HasAttachments>false</HasAttachments>
' 	      <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC>
' 	    </Account>
' 	    <Account>
' 	      <AccountID>3d09fd49-434d-4c18-a57b-831663ab70d2</AccountID>
' 	      <Code>091</Code>
' 	      <Name>Savings Account</Name>
' 	      <Status>ACTIVE</Status>
' 	      <Type>BANK</Type>
' 	      <TaxType>NONE</TaxType>
' 	      <Class>ASSET</Class>
' 	      <EnablePaymentsToAccount>false</EnablePaymentsToAccount>
' 	      <ShowInExpenseClaims>false</ShowInExpenseClaims>
' 	      <BankAccountNumber>987654321</BankAccountNumber>
' 	      <BankAccountType>BANK</BankAccountType>
' 	      <CurrencyCode>USD</CurrencyCode>
' 	      <ReportingCode>ASS</ReportingCode>
' 	      <HasAttachments>false</HasAttachments>
' 	      <UpdatedDateUTC>2016-10-15T22:22:44.53</UpdatedDateUTC>
' 	    </Account>
' 	    ...
' 

%>
</body>
</html>