I have a piece of code that updates my rss feed only it puts each new entry at the bottom of the file instead of the top.
How might I correct this?
If checkbox1.Checked = True Then
Dim XMLd As New XmlDocument
XMLd.Load("D:\Hosting\xxx\html\App_data\sitemap.xml")
Dim ns As String = XMLd.DocumentElement.NamespaceURI
Dim xmlEl As XmlElement = XMLd.CreateElement("URL", ns)
xmlEl.InnerXml = "<loc></loc><lastmod></lastmod><changefreq></changefreq><priority></priority>"
xmlEl.Item("loc").InnerText = "http://www.xxx.com/blogview.aspx?blogno=" + System.Convert.ToString(newblog)
xmlEl.Item("lastmod").InnerText = "now()"
xmlEl.Item("changefreq").InnerText = "weekly"
xmlEl.Item("priority").InnerText = "0.8"
XMLd.DocumentElement.AppendChild(xmlEl)
XMLd.Save("D:\Hosting\xxx\html\App_data\sitemap.xml")
Dim xDoc As XDocument = XDocument.Load("D:\Hosting\xxx\html\feed\rss-feed.xml")
Dim xItem As New XElement("item")
Dim xTitle As New XElement("title", e.Command.Parameters("@title").Value)
Dim xPub As New XElement("pubDate", Now.ToUniversalTime())
Dim xLink As New XElement("link", "http://www.xxx.com/blogview.aspx?blogno=" + System.Convert.ToString(newblog))
Dim xDesc As New XElement("description", e.Command.Parameters("@post").Value)
'Lets insert the nodes in reverse case
xItem.Add(xTitle)
'Add the child node in the Item node
xItem.Add(xPub)
xItem.Add(xLink)
xItem.Add(xDesc)
'Add the item Node in Channel node
xDoc.Root.Element("channel").Add(xItem)
xDoc.Save("D:\Hosting\xxx\html\feed\rss-feed.xml")
End If
acidtrash
Member
124 Points
158 Posts
Updating an RSS feed
Aug 08, 2012 09:46 AM|LINK
I have a piece of code that updates my rss feed only it puts each new entry at the bottom of the file instead of the top.
How might I correct this?
If checkbox1.Checked = True Then Dim XMLd As New XmlDocument XMLd.Load("D:\Hosting\xxx\html\App_data\sitemap.xml") Dim ns As String = XMLd.DocumentElement.NamespaceURI Dim xmlEl As XmlElement = XMLd.CreateElement("URL", ns) xmlEl.InnerXml = "<loc></loc><lastmod></lastmod><changefreq></changefreq><priority></priority>" xmlEl.Item("loc").InnerText = "http://www.xxx.com/blogview.aspx?blogno=" + System.Convert.ToString(newblog) xmlEl.Item("lastmod").InnerText = "now()" xmlEl.Item("changefreq").InnerText = "weekly" xmlEl.Item("priority").InnerText = "0.8" XMLd.DocumentElement.AppendChild(xmlEl) XMLd.Save("D:\Hosting\xxx\html\App_data\sitemap.xml") Dim xDoc As XDocument = XDocument.Load("D:\Hosting\xxx\html\feed\rss-feed.xml") Dim xItem As New XElement("item") Dim xTitle As New XElement("title", e.Command.Parameters("@title").Value) Dim xPub As New XElement("pubDate", Now.ToUniversalTime()) Dim xLink As New XElement("link", "http://www.xxx.com/blogview.aspx?blogno=" + System.Convert.ToString(newblog)) Dim xDesc As New XElement("description", e.Command.Parameters("@post").Value) 'Lets insert the nodes in reverse case xItem.Add(xTitle) 'Add the child node in the Item node xItem.Add(xPub) xItem.Add(xLink) xItem.Add(xDesc) 'Add the item Node in Channel node xDoc.Root.Element("channel").Add(xItem) xDoc.Save("D:\Hosting\xxx\html\feed\rss-feed.xml") End Ifbcanonica
Contributor
3082 Points
595 Posts
Re: Updating an RSS feed
Aug 08, 2012 11:04 AM|LINK
Loop through the nodelist like in several the answers in this thread below.
http://www.dreamincode.net/forums/topic/171982-add-an-element-to-xml-file-at-specific-location/
Thanks,
BC
Blog Void Impossible
acidtrash
Member
124 Points
158 Posts
Re: Updating an RSS feed
Aug 09, 2012 01:05 PM|LINK
Found the answer...
xDoc.Root.Element("channel").AddFirst(xItem)jitendramory...
Member
2 Points
1 Post
Re: Updating an RSS feed
Aug 13, 2012 11:38 AM|LINK
Nice.