<%
 set xmlDoc=server.createObject("Microsoft.XMLDOM")
 set uusLeht=xmlDoc.createNode("Element", "teated", "") 
 xmlDoc.appendChild uusLeht
 set uusLeht=xmlDoc.createNode(1, "teade", "") 
 uusLeht.text="Oota 20 minutit" & vbCrLf
 xmlDoc.documentElement.appendChild uusleht
 set uusLeht=xmlDoc.createNode(1, "teade", "") 
 uusLeht.text="Oota 10 minutit" & vbCrLf
 xmlDoc.documentElement.appendChild uusleht
 set uusLeht=xmlDoc.createNode(1, "teade", "") 
 uusLeht.text="Head lugemist!" & vbCrLf
 xmlDoc.documentElement.appendChild uusleht
 response.write xmlDoc.xml
%>