<%@ Language="VBScript" %> Show i VBS demo <% ' opret DOM træ Set doc = CreateObject("MSXML.DOMDocument") ' indlæs XML fil i DOM træ doc.Async = False doc.Load(Server.MapPath("test.xml")) ' find alle medlem elementer Set medlemmer = doc.GetElementsByTagName("medlem") For Each medlem in medlemmer Response.Write "" & vbCrLf ' find og udskriv attribut no Response.Write "" & vbCrLf ' find alle under elementer For Each elm in medlem.ChildNodes ' find under element navn If(elm.NodeName = "navn") Then navn = elm.FirstChild.NodeValue ' find under element adresse If(elm.NodeName = "adresse") Then adresse = elm.FirstChild.NodeValue Next ' udskriv de fundne under elementer Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write "" & vbCrLf Next ' cleanup Set medlemmer = Nothing Set doc = Nothing %>
No Navn Adresse
" & medlem.Attributes.GetNamedItem("no").NodeValue & "" & navn & "" & adresse & "