<!-- Collection of code snippets by Arne Vajhøj -->
<!-- (likely posted to comp.os.vms/INFO-VAX, INFO-TPU, MACRO32, eksperten.dk, newz.dk, LinkedIn or other place sometime between 1990 and now) -->
<%
Response.ContentType = "text/xml"
Set doc = Server.CreateObject("Microsoft.XMLDOM")
doc.AppendChild(doc.CreateProcessingInstruction("xml", "version='1.0'"))
doc.AppendChild(doc.CreateElement("all"))
Set elm = doc.CreateElement("one")
elm.AppendChild(doc.CreateTextNode("A"))
doc.DocumentElement.AppendChild(elm)
Set elm = doc.CreateElement("one")
elm.AppendChild(doc.CreateTextNode("BB"))
doc.DocumentElement.AppendChild(elm)
Set elm = doc.CreateElement("one")
elm.AppendChild(doc.CreateTextNode("CCC"))
doc.DocumentElement.AppendChild(elm)
doc.Save(Response)
Set doc = Nothing
%>