<% 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 %>