Access XML>>>>>>>>>>>>>>>>>
<bookstore>
<book>
<title published="2001">book1</title>
<author>author1</author>
</book>
<book>
<title published="2002">book2</title>
<author>author2</author>
</book>
<book>
<title published="2003">book3</title>
<author>author3</author>
</book>
</bookstore>
<book>
<title published="2001">book1</title>
<author>author1</author>
</book>
<book>
<title published="2002">book2</title>
<author>author2</author>
</book>
<book>
<title published="2003">book3</title>
<author>author3</author>
</book>
</bookstore>
Set ObjXML=CreateObject("Microsoft.XMLDOM")
ObjXML.Async=False
ObjXML.Load("C:\Users\SATHISH\Desktop\test01.xml")
Set ObjNodes=ObjXML.SelectNodes("bookstore/book/title[../author = 'author3']/text()")
MsgBox "Total books : "&ObjNodes.Length
For i=0 to (ObjNodes.Length-1)
MsgBox ObjNodes(i).NodeValue
Next
ObjXML.Async=False
ObjXML.Load("C:\Users\SATHISH\Desktop\test01.xml")
Set ObjNodes=ObjXML.SelectNodes("bookstore/book/title[../author = 'author3']/text()")
MsgBox "Total books : "&ObjNodes.Length
For i=0 to (ObjNodes.Length-1)
MsgBox ObjNodes(i).NodeValue
Next