XML Problem - Urgent

[paulnamroud]

Dear Sir,

I have a problem while parsing my XML file. I can read all nodes except the one called "Color".
I have a node called "Color" with an attribute "l" to determine the language is frensh or english.

Can anyone help me ?
Thank you.

Paul

Here's my code in VB.Net

            Dim doc As XmlDocument = New XmlDocument
            Dim v_nodelist As XmlNodeList

            doc.Load(Server.MapPath("book5.xml"))

            'Create an XmlNamespaceManager for resolving namespaces.
            Dim v_expression As String = String.Format("//{0}:Books", "ns1")
            Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable)
            nsmgr.AddNamespace("ns1", "http://www.starstandards.org/STAR")
            nsmgr.AddNamespace("oa", "http://www.openapplications.org/oagis")
            nsmgr.AddNamespace("xsi", "http://www.w3.org/2001/XMLSchema-instance")
            nsmgr.AddNamespace("schemaLocation", "http://www.starstandards.org/STAR/STAR/Rev1.1/BODs/ListVehicleInventory.xsd")

            'Create a new XmlDocument for the specified source file and load it.
            'v_nodelist = v_xmld.SelectNodes("/ListVehicleInventory/DataArea/VehicleInventory/Invoice/Vehicle")
            v_nodelist = doc.SelectNodes(v_expression, nsmgr)

            'Select the book node with the matching attribute value.
            Dim v_color_fr As String
            Dim v_color_en As String
            Dim v_id As String
            Dim v_title As String
            Dim v_node As XmlNode
            Dim root As XmlElement = doc.DocumentElement
            Dim v_nodelistColor As XmlNodeList


            'Loop through the nodes
            For Each v_node In v_nodelist

                ' ID
                If v_node.Item("ID") Is Nothing Then
                    v_id = "" 
                Else
                    v_id = v_node.Item("ID").InnerText
                End If

                ' Title
                If v_node.Item("Title") Is Nothing Then
                    v_title = ""
                Else
                    v_title = v_node.Item("Title").InnerText
                End If


                v_nodelistColor = v_root.SelectNodes("//ns1:List/Books/Color", nsmgr)

                For Each v_nodeS In v_nodelistColor

                    ' Color Fr
                    v_nodeS = v_root.SelectSingleNode("//ns1:Color[@l='fr']", nsmgr)
                    If Not v_nodeS Is Nothing Then
                        v_color_fr = CType(v_nodeS.InnerText, String)
                    Else
                        v_color_fr = ""
                    End If

                    ' Color En
                    v_nodeS = v_root.SelectSingleNode("//ns1:Color[@l='en']", nsmgr)
                    If Not v_nodeS Is Nothing Then
                        v_color_en = CType(v_nodeS.InnerText, String)
                    Else
                        v_color_en = ""
                    End If

                Next

                Response.Write("ID : " & v_id & " - Title : " & v_titre & " - Color Fr : " & v_color_fr & " - Color En : " & v_color_en & "<BR>")
                v_color_fr = ""
                v_color_en = ""

            Next

XML Data File

<?xml version="1.0"?>
<bookstore  xmlns="http://www.starstandards.org/STAR" 
			xmlns:oa="http://www.openapplications.org/oagis" 
			xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
			xsi:schemaLocation="http://www.starstandards.org/STAR/STAR/Rev1.1/BODs/ListVehicleInventory.xsd">
	<List>
		<Books>
			<ID>BK10001</ID>
			<Title>Harry Potter</Title>
			<Color l="fr">Blanc</Color>
			<Color l="en">White</Color>
		</Books>
		<Books>
			<ID>BK20002</ID>
			<Title>Manuella</Title>
			<Color l="fr">Jaune</Color>
			<Color l="en">Yellow</Color>
		</Books>
		<Books>
			<ID>BK30003</ID>
			<Title>Charlie's angels</Title>
			<Color l="fr">Noir</Color>
			<Color l="en">Black</Color>
		</Books>
		<Books>
			<ID>BK30004</ID>
			<Title>Charlie's angels</Title>
			<Color l="en">Green</Color>
		</Books>
	</List>
</bookstore>