Dim oXML, oXMLError, ReturnValue, x
Set oXML = Server.CreateObject("MSXML2.DOMDocument")
oXML.async = false
oxml.setProperty "ServerHTTPRequest", true
ReturnValue = oXML.load(Server.MapPath("d.xml"))
Set objNode = oXML.getElementsByTagName("Name")
For x=objNode.length-1 To 0 Step -1
Response.Write objNode.item(x).Text&" "
next
Set objNode = oXML.selectNodes("/Persons/Person[@name='sale']/Name")
For each x in objNode
Response.Write x.Text&" "
next
Set oXML = Nothing
