<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Set doc = Server.CreateObject("Microsoft.XMLDOM")
doc.Async = False
doc.Load(Server.MapPath("nyhed.xml")) 
doc.Save(Response)
Response.Write doc.SelectSingleNode("//nyhed2/Overskrift").FirstChild.NodeValue & vbCrLf
doc.SelectSingleNode("//nyhed2/Overskrift").FirstChild.NodeValue = "noget andet"
doc.Save(Response)
%>