<% set xmlDoc=server.createObject("MSXML.DOMDocument") Response.ContentType = "text/plain" xmlDoc.load server.mapPath("raamatud1.xml") if xmlDoc.parseError.ErrorCode<>0 then response.write xmlDoc.parseError.reason response.end end if 'Lisatakse lõppu teade set uusLeht=xmlDoc.createNode(1, "Teade", "") '1 tähendab lehte uusLeht.text="Head lugemist!" & vbCrLf xmlDoc.documentElement.appendChild uusLeht 'loodud teate külge atribuut set atribuut=xmlDoc.createAttribute("tüüp") atribuut.text="soovitus" uusLeht.attributes.setNamedItem atribuut uusleht.setAttribute "Kaal", "Keskmine" uusleht.appendChild xmlDoc.createComment("Vaata siia ka ") 'Eemaldatakse teine raamat xmlDoc.documentElement.removeChild xmlDoc.documentElement.childNodes(1) response.write xmlDoc.xml ' väljastatakse xml-ina ekraanile xmlDoc.save "c:/temp/katse.xml" ' ning faili response.write "Lehel on atribuute " & _ xmlDoc.getElementsByTagName("attribute()").length & vbCrLf %>