Come inserisco un po 'di XML in un XDocument usando Visual Basic?

Question

Sto cercando di creare una sitemap in un progetto ASP.NET MVC.

Questo codice nel mio controller Node ...

Function Sitemap() As ContentResult
    Dim db As New EfrDotOrgEntities
    Dim Nodes = db.Node.ToList
    Dim RequestUrl As Uri = Url.RequestContext.HttpContext.Request.Url
    Dim AbsoluteRoot As String = String.Format("{0}://{1}", RequestUrl.Scheme, RequestUrl.Authority)

    Dim map As XDocument = <?xml version="1.0" encoding="UTF-8"?>
                           <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
                           </urlset>
    For Each n As Node In Nodes
        map.Add(<url>
                    <loc><%= AbsoluteRoot + Url.RouteUrl("IdOnly", New With {.id = n.Id}) %></loc>
                </url>)
    Next
    Return Content(map.ToString, "text/xml", Encoding.UTF8)
End Function

(ecco un'immagine perché Stack Overflow non colora bene il codice VB)

... produce questo errore:

  

Questa operazione creerebbe un   documento strutturato in modo errato.

Non saprebbe dove per aggiungere quel contenuto.

Come posso dirlo per inserire quel bit di XML in <urlset>?

Answer 1

Devi aggiungerlo all'elemento di livello superiore nel documento (radice):

map.Root.Add(...)

Answer 2

Perché non riempirlo completamente con un altro foro letterale xml?

Dim map As XDocument = <?xml version="1.0" encoding="UTF-8"?>
                       <urlset xmlns="http://www.sitemaps.org/schemas/sitemap/0.9">
                           <%= From n In Nodes.Cast(Of Node)() _
                               Select <url>
                                          <loc><%= AbsoluteRoot + Url.RouteUrl("IdOnly", New With {.id = n.Id}) %></loc>
                                      </url> %>
                       </urlset>