Classic ASP
Find XML Element where Attribute = Value

Finds an XML element at a particular location where an attribute has a specified value.
Chilkat Classic ASP Downloads

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

' We have the following XML and wish to find the value of the time attribute where msg = "alert-from".

' <cdr id="4e5d3e7f41bf6201ad81000c29703270" e164="6207">
'     <user>
'         <grp name="wfln" mode="active"/>
'     </user>
'     <event msg="setup-to" time="287069" e164="5034"/>
'     <event msg="alert-from" time="287069" e164="5034"/>
'     <event msg="rel-to" time="287079" e164="5034"/>
' </cdr>

' First, build the above XML:

set xml = Server.CreateObject("Chilkat.Xml")
xml.Tag = "cdr"
success = xml.AddAttribute("id","4e5d3e7f41bf6201ad81000c29703270")
success = xml.AddAttribute("e164","6207")
success = xml.UpdateAttrAt("user|grp",1,"name","wfln")
success = xml.UpdateAttrAt("user|grp",1,"mode","active")
success = xml.UpdateAttrAt("event",1,"msg","setup-to")
success = xml.UpdateAttrAt("event",1,"time","287069")
success = xml.UpdateAttrAt("event",1,"e164","5034")
success = xml.UpdateAttrAt("event[1]",1,"msg","alert-from")
success = xml.UpdateAttrAt("event[1]",1,"time","287069")
success = xml.UpdateAttrAt("event[1]",1,"e164","5034")
success = xml.UpdateAttrAt("event[2]",1,"msg","rel-to")
success = xml.UpdateAttrAt("event[2]",1,"time","287079")
success = xml.UpdateAttrAt("event[2]",1,"e164","5034")

' Show that we have the above XML
Response.Write "<pre>" & Server.HTMLEncode( xml.GetXml()) & "</pre>"

' Find the element where msg = "alert-from"
' This updates the xml object's reference to the found element (if successful).
notUsed = xml.ChilkatPath("/A/event,msg,alert-from|$")
If (xml.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Not found.") & "</pre>"
    Response.End
End If

' Get the value of the "time" attribute.
Response.Write "<pre>" & Server.HTMLEncode( "time = " & xml.GetAttrValue("time")) & "</pre>"

' Restore the xml object's internal reference to the root of the XML document
xml.GetRoot2 

%>
</body>
</html>