Visual Basicを使用してXDocumentにXMLを挿入するにはどうすればよいですか？

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

（スタックオーバーフローは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>