[vb.net e XML] lettura da file xml remoto

[kobe83]

Ciao!
La mia intenzione sarebbe quella di legegre i campi "currency=USD" ed il relativo rate del file xml presente a questo URL: http://www.ecb.europa.eu/stats/eurof...xref-daily.xml

Ho elaborato il seguente codice, ma sembra che non legga niente.

Private Sub GetXMLContent()
        
        Try
            Dim doc As XmlDocument = New XmlDocument()
            Dim pagine, menu As XmlNode
            doc.Load("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml")
            Dim element As XmlElement = doc.DocumentElement
            
            For Each pagine In element.ChildNodes
                For Each menu In pagine.ChildNodes
                   
                    If menu.Name = "Cube" Then
                        
                        Response.Write("helloooooooooooooo")
                        Response.Write(menu.Attributes.ItemOf(0).Value)
                        Response.Write(menu.Attributes.ItemOf(1).Value)
                    End If
                                    
                Next
            Next
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
           
    End Sub

Sbaglio qualcosa? Io ho controllato e sinceramente non mi sembra... ma di sicuro sarà così..

Vi ringrazio in anticipo della disponibilità.

[kobe83]

Ho risolto!

Posto il codice per i posteri:

Private Sub GetXMLContent() 'legge il campo relativo al valore USD ottenendo il tasso di conversione dal file xml esterno        
        Try
            Dim doc As XmlDocument = New XmlDocument()
            Dim pagine, menu, sottom As XmlNode
            doc.Load("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml")
            Dim element As XmlElement = doc.DocumentElement
            
            For Each pagine In element.ChildNodes        'entra nel primo figlio di gesmes:Envelope
                For Each menu In pagine.ChildNodes       'entra nel figlio del figlio di gesmes:Envelope ovvero Cube
                    For Each sottom In menu.ChildNodes   'entra nel figlio del figlio del figlio di gesmes:Envelope ovvero il campo che mi ineteressa leggere
                        If sottom.Name = "Cube" Then
                        
                            If sottom.Attributes.ItemOf(0).Value = "USD" Then              'se il primo attributo del figlio è "USD"
                                conversione = (sottom.Attributes.ItemOf(1).Value) / 10000  'allora il mio tasso di conversione sarà il secondo elemento di quel figlio
                                valore.Text = conversione
                            End If
                            
                        End If
                    Next
                Next
            Next
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub