Create an RSS Feed
I have been looking into building an RSS feed for our school. We would like to take an RSS feed from another site ( Bible Gateway's Verse of the Day ) and combine it with a feed we wish to build at our own site.
I would like to be able to take the feed and covert it to HTML as well as have it as a normal RSS Feed.
I have found a lot of web services, such as yahoo pipes (Pipes: Redlands College / Bible Gateway) and dapper ( Verse of the Day Dapp ) that work, but I am concerned about the possibility of the services crashing and not showing the results at our end.
I then thought.... "Well someone must make some software to do the same thing???"
I would like some software that:
1) Can take another RSS Feed, allow you to swap items in it, to other fields (E.g. Move Content to Description ).
2) Can take a web page and filter out the elements I wish to add to the RSS feed.
3) Publish the RSS feed.
4) Convert the RSS feed to a HTML output
I might be asking for a bit to much from what I have seen out there, but I thought perhaps someone else may have come across something that might fit the bill?
tried playing with magpie?
Magpie RSS - PHP RSS Parser
No... But I will. Anyone know any windows based software as well? (I have my linuc PC Here, but my laptop is windows.. *Sniff*)
Originally Posted by kesomir
you can run php & apache (&mysql) on windows using wamp.
Here's the ASP code I use to display the Bible Gateway verse of the day on my local church site:
And it's called with:
Set XmlDocument = Server.CreateObject("Msxml2.DOMDocument.6.0")
XmlDocument.setProperty "ServerHTTPRequest", true
XmlDocument.async = False
Loaded = XmlDocument.load(feedURL)
If Loaded Then
Dim Items, Item, Title, Link, Description, TitleText, DescriptionText, LinkURL, Content2, Contenttext
Set Items = XmlDocument.selectNodes("//item")
Response.Write "<ul>" & VbCrLf
For Each Item in Items
Set Title = Item.selectSingleNode("title/text()")
If Title Is Nothing Then
TitleText = ""
TitleText = Title.data
Set Link = Item.selectSingleNode("guid")
If Link Is Nothing Then
LinkURL = ""
LinkURL = Trim(Link.Text)
Set Content2 = Item.selectSingleNode("content:encoded/text()")
If Content2 Is Nothing Then
Contenttext = "NULL"
Contenttext = Content2.Data
Contenttext = replace(ContentText,"Brought to you by <a href="http://www.edugeek.net/forums/web-development/"http://www.biblegateway.com"">BibleGateway.com</a>. Copyright (C) NIV. All Rights Reserved.","<span class=""biblegateway""><i>Brought to you by <a href="http://www.edugeek.net/forums/web-development/"http://www.biblegateway.com"">BibleGateway.com</a>. Copyright (C) NIV. All Rights Reserved.</i></span>")
Set Description = Item.selectSingleNode("description/text()")
If Description Is Nothing Then
DescriptionText = ""
DescriptionText = Description.data
Response.Write "<li><a href="http://www.edugeek.net/forums/web-development/"" & LinkURL & """>" & TitleText & "</a></li>" & VbCrLf
Response.Write "</ul>" & VbCrLf
I forget where I got the original function from, and I've tweaked it a bit (with my crude replace function to italicise the "From Bible Gateway" message.)
I also have some ASP to generate an RSS feed from an access database if you're interested.
It shouldn't be too much work to combine them.