<% Response.Write "

" & vbCrLf Set doc = CreateObject("MSXML.DOMDocument") doc.Async = False doc.Load(Server.MapPath("xml.xml")) Set allitem2 = doc.SelectNodes("//m_Item2") For Each item2 In allitem2 Response.Write "
• Item2:
  " & vbCrLf Set allorderline = item2.SelectNodes("a:OrderLine") For Each orderline in allorderline id = orderline.SelectSingleNode("a:OrderLine_Id/text()").NodeValue name = orderline.SelectSingleNode("a:OrderLine_name/text()").NodeValue Response.Write "
  • OrderLine:" & id & " " & name & "
  " & vbCrLf Next Set allorderline = Nothing Response.Write "
" & vbCrLf Next Set allitem2 = Nothing Set doc = Nothing Response.Write "

" & vbCrLf %>