tags:

views:

18

answers:

1

I seem to be getting this error how can i resolve this, code below.

    Dim writer As XmlWriter = XmlWriter.Create(FileLocation + "StaticUrls3.xml")
    Dim urlList As New List(Of String)

    urlList.Add("link1")
    urlList.Add("link2")
    urlList.Add("link3")       

    writer.WriteStartDocument()
    writer.WriteStartElement("urlset")
    writer.WriteAttributeString("xmlns", "http://www.sitemaps.org/schemas/sitemap/0.9")

    For Each aUrl As String In urlList
        writer.WriteStartElement("url")
        writer.WriteElementString("loc", aUrl)
        writer.WriteEndElement()
    Next

    writer.WriteEndElement()
    writer.WriteEndDocument()
    writer.Close()
A: 

Try this:

Const siteMapNamespace As String = "http://www.sitemaps.org/schemas/sitemap/0.9"
Dim writer As XmlWriter = XmlWriter.Create(FileLocation + "StaticUrls3.xml")
Dim urlList As New List(Of String)

urlList.Add("link1")
urlList.Add("link2")
urlList.Add("link3")       

writer.WriteStartDocument()
writer.WriteStartElement("urlset", siteMapNamespace)

For Each aUrl As String In urlList
    writer.WriteStartElement("url", siteMapNamespace)
    writer.WriteElementString("loc", aUrl)
    writer.WriteEndElement()
Next

writer.WriteEndElement()
writer.WriteEndDocument()
writer.Close()
MarkisT