<% Set xmldoc = CreateObject("Msxml.DOMDocument") xmldoc.Async = false xmldoc.LoadXML("1Navn12Navn23Navn3") Set articles = xmldoc.SelectNodes("//ArticleTypes/ArticleType") For Each entry In articles id = Trim(entry.SelectSingleNode("ID").Text) name = Trim(entry.SelectSingleNode("Name").Text) Response.write "#" & id & name & "
" Next Set Articles = Nothing Set xmlDoc = Nothing %>