%
Set doc = Server.CreateObject("Microsoft.XMLDOM")
doc.Async = False
doc.Load(Server.MapPath("fisk.xml"))
Set rates = doc.SelectNodes("//Fragtrater/*/*")
Response.Write "
"
For Each r In rates
Response.Write "- " & r.nodeName & "
"
Response.Write ""
Set attrs = r.attributes
For Each a in attrs
Response.Write "- " & a.name & "=" & a.value & "
"
Next
Response.Write "
"
Next
Response.Write "
"
Set doc = Nothing
%>