<!-- 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")
' indlæs XML fil i DOM træ
doc.Async = False
doc.Load(Server.MapPath("test.xml"))
' søg efter medlem med no 2
Set medlem = doc.SelectSingleNode("//medlemmer/medlem[@no=2]")
' fjern medlem
medlem.ParentNode.RemoveChild(medlem)
' tilføj medlem
Set navn = doc.CreateElement("navn")
navn.AppendChild(doc.CreateTextNode("Lars Larsen"))
Set adresse = doc.CreateElement("adresse")
adresse.AppendChild(doc.CreateTextNode("Ledvej 14"))
Set nytmedlem = doc.CreateElement("medlem")
call nytmedlem.SetAttribute("no", "4")
nytmedlem.AppendChild(navn)
nytmedlem.AppendChild(adresse)
doc.DocumentElement.AppendChild(nytmedlem)
' udskriv DOM træ som XML
doc.Save(Response)
' cleanup
Set navn = Nothing
Set adresse = Nothing
Set nytmedlem = Nothing
Set medlem = Nothing
Set doc = Nothing
%>