%
Set objXMLDoc = Server.CreateObject("MSXML2.DOMDocument.3.0")
objXMLDoc.async = False
objXMLDoc.load Server.MapPath("xml.xml")
Set sider = objXMLDoc.SelectNodes("//side")
For Each side in sider
by = side.SelectSingleNode("by/text()").NodeValue
Response.Write "by=" & by & "
"
Set els = side.SelectNodes("indhold/el")
For Each el in els
navn = el.SelectSingleNode("@navn").NodeValue
value = el.SelectSingleNode("value/text()").NodeValue
Response.Write "navn=" & navn & "
"
Response.Write "value=" & value & "
"
Next
Set els = Nothing
Next
Set side = Nothing
Set ObjXMLDoc = Nothing
%>