<!-- Collection of code snippets by Arne VajhÃ¸j -->
<!-- (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) -->
<%@ Language="VBScript" %>
<%
Response.ContentType = "text/xml"
' opret DOM træ
Set doc = CreateObject("MSXML.DOMDocument")
' opret document element og 3 sub elementer
Set one1 = doc.CreateElement("one")
one1.AppendChild(doc.CreateTextNode("A"))
Set one2 = doc.CreateElement("one")
one2.appendChild(doc.CreateTextNode("BB"))
Set one3 = doc.CreateElement("one")
one3.appendChild(doc.CreateTextNode("CCC"))
Set root = doc.CreateElement("all")
root.appendChild(one1)
root.appendChild(one2)
root.appendChild(one3)
doc.appendChild(root)
' udskriv DOM træ som XML
doc.Save(Response)
' cleanup
Set one1 = Nothing
Set one2 = Nothing
Set one3 = Nothing
Set root = Nothing
Set doc = Nothing
%>