sub getnodes(node) dim i,j 'on error resume next response.write("<p><b>NodeName:</b>"&node.nodename&"<br><b>NodeTypeString:</b>"&node.nodetypestring&"<br><b>NodeValue:</b>"&node.nodevalue&"<br><b>Text:</b>"&node.text&"<br><b>node.childnodes.length:</b>"&node.childnodes.length&"<p><b>node.attributes:</b><br>") if node.childnodes.length<>0then for i=0to node.childnodes.length-1 if node.childnodes(i).nodetypeString="element"Then if node.childnodes(i).attributes.length<>0Then for j=0to node.childnodes(i).attributes.length-1 response.Write(""&node.childnodes(i).attributes(j).nodename&":"&node.childnodes(i).attributes(j).text&"<br>") next endif Endif getnodes(node.childnodes(i)) next endif end sub