Как вставить немного XML в XDocument с помощью Visual Basic?

Question

Я пытаюсь создать карту сайта в проекте ASP.NET MVC.

Этот код в моем контроллере узла...

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

(вот изображение, потому что Stack Overflow плохо окрашивает код VB)

...выдает эту ошибку:

Эта операция создаст неправильно структурированный документ.

Оно бы не знало где чтобы добавить этот контент.

Как мне приказать ему вставить этот бит XML в файл? <urlset>?

Answer 1

Вам нужно добавить его в элемент верхнего уровня документа (корень):

map.Root.Add(...)

Answer 2

Почему бы не заполнить его полностью еще одним буквальным отверстием в 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>