Leer xml

[Zizo]

Perdonar chicos me he leido el documento, que esta muy bien , pero no acabo de sacarlo, algo me falla, os pongo el codigo

Código ASP:

Dim socios As XmlNodeList = b.GetElementsByTagName("SOCIOS")
        Dim lista As XmlNodeList = (CType(socios(0), XmlElement)).GetElementsByTagName("CLIENTE")
 
        For Each nodo As XmlElement In lista
            Dim i = 0
            Dim nId = nodo.GetElementsByTagName("NOMBRE")
 
Response.Write("NOMBRE: " & nId(i).InnerText & "<br>")
            Dim lista2 As XmlNodeList = (CType(lista(i), XmlElement)).GetElementsByTagName("PRODUCTO_CONTRATADO")
            Dim lista3 As XmlNodeList = (CType(lista2(i), XmlElement)).GetElementsByTagName("PRODUCTO")
 
 
            For Each nodo2 As XmlElement In lista3
                Dim a = 0
                Dim tipo = nodo2.GetElementsByTagName("TIPO")
                Dim trade = nodo2.GetElementsByTagName("MARCA")
                Response.Write("Nombre: " & tipo(a).InnerText & "<br>")
                Response.Write("Marca: " & trade(a).InnerText & "<br>")
 
            Next
 
 
        Next