Salve, qualcuno puo' spiegarmi come leggere un xml generato da una pagina ASP?

Mi spiego meglio, se ho un file news.asp con il seguente codice:

codice:
<?xml version="1.0" encoding="iso-8859-1"?>
<news>
<new>
<id_new>1</id_new>
<categoria>cat1</categoria>
<titolo>titolo 1</titolo>
<data>data1</data>
<link>link1</link>
<testobreve>tb1</testobreve>
<testocompleto>tc1</testocompleto>
</new>
<new>
<id_new>2</id_new>
<categoria>cat2</categoria>
<titolo>titolo 2</titolo>
<data>data2</data>
<link>link2</link>
<testobreve>tb2</testobreve>
<testocompleto>tc2</testocompleto>
</new>
<new>
<id_new>3</id_new>
<categoria>cat3</categoria>
<titolo>titolo 3</titolo>
<data>data3</data>
<link>link3</link>
<testobreve>tb3</testobreve>
<testocompleto>tc3</testocompleto>
</new>
</news>
non ho nessun problema ha leggerlo.

se il file pero' ha questo codice:

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.ContentType = "text/xml" %>

<?xml version="1.0" encoding="iso-8859-1"?>
<news>
<new>
<id_new>1</id_new>
<categoria>cat1</categoria>
<titolo>titolo 1</titolo>
<data>data1</data>
<link>link1</link>
<testobreve>tb1</testobreve>
<testocompleto>tc1</testocompleto>
</new>
<new>
<id_new>2</id_new>
<categoria>cat2</categoria>
<titolo>titolo 2</titolo>
<data>data2</data>
<link>link2</link>
<testobreve>tb2</testobreve>
<testocompleto>tc2</testocompleto>
</new>
<new>
<id_new>3</id_new>
<categoria>cat3</categoria>
<titolo>titolo 3</titolo>
<data>data3</data>
<link>link3</link>
<testobreve>tb3</testobreve>
<testocompleto>tc3</testocompleto>
</new>
</news>
L'output rimane identico, ma non riesco a leggerlo con il codice di lettura che va' bene per il primo.

questo è il codice per la lettura:

codice:
Dim objXmlDom
Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
    objXmlDom.async = false
   
	  objXmlDom.loadXML Server.MapPath("news.asp")

	Dim id_new, categoria, titolo, data, link, testobreve, testocompleto
		Set id_new = objXmlDom.getElementsByTagName("new/id_new")
		Set categoria = objXmlDom.getElementsByTagName("new/categoria")
		Set titolo = objXmlDom.getElementsByTagName("new/titolo")
		Set data = objXmlDom.getElementsByTagName("new/data")
		Set link =  objXmlDom.getElementsByTagName("new/link")
		Set testobreve = objXmlDom.getElementsByTagName("new/testobreve") 
		Set testocompleto =  objXmlDom.getElementsByTagName("new/testocompleto")

	Dim i
	i = 0
	
	For i = 0 To id_new.length - 1
	
	
	 Vid_new = id_new(i).Text
	 Vcategoria = (categoria(i).Text)
	 Vtitolo = (titolo(i).Text)
	 Vdata= (data(i).Text)
	 Vlink = link(i).Text
	 Vtestobreve = testobreve(i).Text
	 Vtestocompleto = testocompleto(i).Text


	
	Next


Set objXmlDom = Nothing

Potete Aiutarmi?

Grazie.