<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%@ Language="VBScript" %>
<%
Response.ContentType = "text/xml"
Set doc = Server.CreateObject("Microsoft.XMLDOM")
doc.Async = False
doc.Load(Server.MapPath("test.xml")) 
For Each n in doc.SelectNodes("//all/one[@tobedeleted='true']")
    n.ParentNode.RemoveChild(n)
Next
doc.Save(Response)
Set doc = Nothing
%>