Jump to content

Recommended Posts

Posted

Hello everyone,

 

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?

 

Thanks

Posted

Here's the ASP code I use to display the Bible Gateway verse of the day on my local church site:

Function getXML2(feedURL) 

Dim XmlDocument
Set XmlDocument = Server.CreateObject("Msxml2.DOMDocument.6.0")
XmlDocument.setProperty "ServerHTTPRequest", true
XmlDocument.async = False
Dim Loaded
Loaded = XmlDocument.load(feedURL)
If Loaded Then
Dim Items, Item, Title, Link, Description, TitleText, DescriptionText, LinkURL, Content2, Contenttext
XmlDocument.setProperty "SelectionNamespaces","xmlns:content='http://purl.org/rss/1.0/modules/content/'"

Set Items = XmlDocument.selectNodes("//item")
Response.Write "</pre><ul>" & VbCrLf
For Each Item in Items
Set Title = Item.selectSingleNode("title/text()")
If Title Is Nothing Then
TitleText = ""
Else
TitleText = Title.data
End If
Set Link = Item.selectSingleNode("guid")
If Link Is Nothing Then
LinkURL = ""
Else
LinkURL = Trim(Link.Text)
End If
Set Content2 = Item.selectSingleNode("content:encoded/text()")
If Content2 Is Nothing Then
Contenttext = "NULL"
Else
Contenttext = Content2.Data
Contenttext = replace(ContentText,"Brought to you by BibleGateway.com. Copyright (C) NIV. All Rights Reserved.","Brought to you by BibleGateway.com. Copyright (C) NIV. All Rights Reserved.")
End If
Set Description = Item.selectSingleNode("description/text()")
If Description Is Nothing Then
DescriptionText = ""
Else
DescriptionText = Description.data
End If
Response.Write "" & TitleText & "" & VbCrLf
response.Write Contenttext
Next
Response.Write "</ul>" & VbCrLf<br>End If<br><br>End Fu

 

And it's called with:

getxml2("http://www.biblegateway.com/usage/votd/rss/votd.rdf")

 

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.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now



×
×
  • Create New...