%
 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
%>