<% 
Dim xml, nodes, node, i
Set xml = Server.CreateObject("Msxml2.DOMDocument")
xml.async = False
xml.load("veriler.xml")
Set nodes = xml.selectNodes("//parser ")

For i = 0 To nodes.length - 1
    Set node = nodes(i)
    Response.Write("<p>" & node.selectSingleNode("cihaz ").text & "</p>")
    Response.Write("<hr>")
Next
Set xml = Nothing
%>