Dim xmlReader As New XmlTextReader(Server.MapPath( "XMLFile1.xml" ))
            xmlReader.WhitespaceHandling = WhitespaceHandling.None

            While xmlReader.Read

                If xmlReader.NodeType = XmlNodeType.Element AndAlso xmlReader.Name =  "item"  Then

                    xmlReader.MoveToAttribute( "name" )

                    Dim hl As New HyperLink

                    If xmlReader.Value.Length <>  0  Then
                        hl.Text = xmlReader.Value
                    Else
                        hl.Text =  "["  &  "name is empty"  &  "]" 
                    End If

                    xmlReader.Read()

                    If xmlReader.NodeType = XmlNodeType.Element AndAlso xmlReader.Name =  "action"  Then
                        xmlReader.MoveToAttribute( "url" )

                        If xmlReader.Value.Length <>  0  Then
                            hl.NavigateUrl =  "/"  & xmlReader.Value
                        Else
                            hl.NavigateUrl =  "#" 
                        End If

                    End If

                    panel1.Controls.Add(hl)
                    panel1.Controls.Add(New LiteralControl( "<br>" ))

                End If
            End While

            xmlReader.Close()