Estrarre dati da file XML

[supergeniux]

Questa è la struttura del file .xml:

<script>
   <chat>valore</chat>
   <forum>valore</forum>
   <sondaggi>valore</sondaggi>
 <categoria>
    <nome>asp</nome>
    <scripting>vbscript</scripting>
 </categoria>
</script>

Recupero i dati di chat, forum e sondaggi cosi:

<%
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false

caricoFile = objXML.Load("percorso.xml")

Set Nodo = objXML.getElementsByTagName("script")

For Each objNodi In Nodo
	For Each objNodo In objNodi.childNodes
		Select Case objNodo.nodeName
			Case "chat"
				chat= objNodo.firstChild.nodevalue
			Case "forum"
				forum= objNodo.firstChild.nodevalue
			Case "sondaggi"
				sondaggi= objNodo.firstChild.nodevalue
		End Select
	Next

response.write "Chat: "&chat &" / Forum: "&forum &" / Sondaggi: "&sondaggi&"
"

Next

set Nodo = Nothing
%>

Funge tutto perfettamente fino a quando mi limito ad estrarre i campi di chat, forum e sondaggi. Ma se volessi estrarre anche nome e scripting come dovrei fare?


Grazie