<% set xmlDoc=server.createObject("MSXML.DOMDocument") Response.ContentType = "text/plain" xmlDoc.load server.mapPath("raamatud1.xml") response.write "Esimese raamatu pealkiri: " & _ xmlDoc.selectSingleNode("RAAMATUD/RAAMAT[0]/PEALKIRI").text & vbCrLf response.write "Kevade autor: " & _ xmlDoc.selectSingleNode("RAAMATUD/RAAMAT[PEALKIRI='Kevade']/AUTOR").text & vbCrLf response.write "Raamatuid kokku: " & _ xmlDoc.selectNodes("//RAAMAT").length & vbCrLf response.write "Oskar Lutsu teost sisaldavaid raamatuplokke: " & _ xmlDoc.selectNodes("//RAAMATUD[$any$ RAAMAT/AUTOR='Oskar Luts']").length & vbCrLf response.write "Pealkirjaga raamatuid: " & _ xmlDoc.selectNodes("//RAAMAT[PEALKIRI]").length & vbCrLf response.write "Aastaarvuta raamatuid: " & _ xmlDoc.selectNodes("//RAAMAT[not(AASTAARV)]").length & vbCrLf %>