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