Sub ProcessaNodi(ByVal Listanodi As XmlNodeList, ByVal Nome As String, ByVal id_tree As Integer)

        Dim CNome As String
        CNome = ElencoFunzioni.CReplaceNome(Nome)

        Dim UltimoID As String
        UltimoID = ElencoFunzioni.LeggiUltimoID("prodotti")

        Dim ParentCategoria As String
        ParentCategoria = ElencoFunzioni.CNomeParent(id_tree) & "-" & id_tree

        For Each outerNode As XmlElement In Listanodi

            Dim Attributo As String = ""
            Attributo = outerNode.GetAttribute("description")

            If Attributo = ElencoFunzioni.CReplaceNome(ParentCategoria) Or Attributo = "Catalogo" Then

                Dim NodoAdd As XmlElement = DocXml.CreateElement("siteMapNode")

                Dim Title As XmlAttribute = DocXml.CreateAttribute("title")
                Title.Value = Nome
                NodoAdd.Attributes.Append(Title)

                Dim Description As XmlAttribute = DocXml.CreateAttribute("description")
                Description.Value = CNome & "-" & UltimoID
                NodoAdd.Attributes.Append(Description)

                Dim Url As XmlAttribute = DocXml.CreateAttribute("url")
                Url.Value = "/abbigliamento-bambini/" & CNome & "-" & UltimoID & ".aspx?x=" & Attributo
                NodoAdd.Attributes.Append(Url)

                outerNode.PrependChild(NodoAdd)

            End If


            If outerNode.HasChildNodes = True Then
                ProcessaNodi(outerNode.ChildNodes, Nome, id_tree)
            End If
        Next

        DocXml.Save(Server.MapPath("/web.sitemap"))

    End Sub