<% Set doc = CreateObject("Microsoft.XMLDOM") doc.Async = False doc.Load(Server.MapPath("importxml.xml")) Response.Write "

" For Each n in doc.SelectNodes("//GetOnActResponse/GetOnActResponse/OnAct/OnAct") Response.Write "
• " & n.SelectSingleNode("Number").Text & "
" Response.Write "
" For Each nn in n.SelectNodes("ActDays/ActDays") Response.Write "
• " & nn.SelectSingleNode("GndActCode").Text & " " & nn.SelectSingleNode("StartTime").Text & " " & nn.SelectSingleNode("EndTime").Text & "
" Next Response.Write "
" Next Response.Write "

" Set doc = Nothing %>