%
set xmlDoc=server.createObject("Microsoft.XMLDOM")
xmlDoc.load server.mapPath("raamatud1.xml")
response.write "Teise raamatu pealkiri: " & _
xmlDoc.documentElement.childNodes(1).childNodes(0).text
set teineRaamat=xmlDoc.documentElement.childNodes(1)
set esimeneRaamat=teineRaamat.previousSibling
set esimeseRaamatuAutor=esimeneRaamat.childNodes(1)
response.write "
Esimese autor: " & esimeseRaamatuAutor.text & _
"
Raamatuid kokku: " & esimeneRaamat.parentNode.childNodes.length
set autorid=xmlDoc.getElementsByTagName("AUTOR")
response.write "
Autoreid on " & autorid.length & ", neist esimene " & autorid(0).text
response.write "
Kokku on elemente " & xmlDoc.getElementsByTagName("*").length
response.write "
Teise raamatu autor on " & teineRaamat.selectSingleNode("AUTOR").text
%>