This is what I use for my Footer Sitemap.
I create a data table then fill it with the links from my sitemap.xml page.
(I create my Data Table in a seperate function as it is used in more than one place.)
Then return the Data Table and bind it to a Repeater to display the links.
'CREATE THE NEW DATATABLE OBJECT
Dim dt As DataTable = New DataTable()
'DECLARE DATACOLUMN AND DATAROW VARIABLS
Dim row As DataRow
Dim column As DataColumn
'CREATE THE NEW DATACOLUMNS, SET THE DATATYPE, COLUMNNAME AND ADD IT TO THE DATATABLE
column = New DataColumn()
column.DataType = System.Type.GetType("System.String")
column.ColumnName = "LinkText"
dt.Columns.Add(column)
'CREATE THE SECOND COLUMN
column = New DataColumn()
column.DataType = Type.GetType("System.String")
column.ColumnName = "LinkURL"
dt.Columns.Add(column)
'DECLARE SITE LINK VARIABLES
Dim linkUrl As String = ""
Dim linkText As String = ""
Dim displayinfooter As String = ""
'CREATE REFERENCE TO MY DATA ACCESS LAYER WHERE THE STREAM IS CREATED
Dim dal as MYDATAACCESSLAYER = NEW MYDATAACCESSLAYER
'READ THE sitemap.xml STREAM, ADDING THE SITE LINKS TO THE DATATABLE
Using reader As XmlTextReader = New XmlTextReader(dal.STREAM)
'READ THROUGH ALL THE NODES
While (reader.Read())
'THE NODES I WANT ARE THE URL NODES
If (reader.Name = "url") Then
While (reader.Read())
'THE LOC NODE HOLDS THE URL FOR THE LINK
If (reader.Name = "loc") Then linkUrl = reader.ReadString()
'THIS NODE HAS THE TEXT FOR THE LINK
If (reader.Name = "linktext") Then linkText = reader.ReadString()
'IF FOOTERLINK IS DISPLAY THEN THIS IS A LINK WE WANT DO DIPLAY IN THE FOOTER
If (reader.Name = "sitemaplink") Then
'CHECK IF THIS ONE IS TO DISPLAY IN THE FOOTER
If reader.ReadString() = "display" Then
'ADD THIS LINK TO THE DATATABLE TO BIND TO THE FOOTER REPEATER
row = dt.NewRow
row("LinkText") = linkText
row("LinkURL") = linkUrl
dt.Rows.Add(row)
End If
End If
End While
End If
End While
End Using
'RETURN THE DATATABLE AND BIND IT TO A REPEATER
'FOR DISPLAYING THE FOOTER SITEMAP LINKS
Return dt