if objDOMDoc.loadXML( s ) then 
		set objNodeList = objDOMDoc.documentElement.selectNodes("//item")
		
		'Response.write objDOMDoc.xml
		'Response.write "Amount of nodes: " & objNodes.length
		
		for i = 0 to (objNodeList.length - 1)			
			thisNodeLength = objNodeList.Item(i).childNodes.length
			set thisNodeChildrenList = objNodeList.Item(i).childNodes

			strValue = thisNodeChildrenList.selectSingleNode("//name").nodeValue
			
			Response.Write "Value of item " & i & " is " & strValue & "<br />" & vbNewLine
		next
end if