+---------------------------------------------+
| RSS Content Feed VBScript Class 1.0         |
| © 2004 www.tele-pro.co.uk                   |
| http://www.tele-pro.co.uk/scripts/rss/      |
+---------------------------------------------+
  
Sample VBScript Code for the RSSContentFeed Class 

You should delete everything above the line below
and rename the file as "sample_code1.asp"
+---------------------------------------------+

<!-- #INCLUDE FILE="rss_content_feed_class.1.asp" -->

<%
Set rss= New RSSContentFeed

'create object
Dim rss
Set rss= New RSSContentFeed

'get content
rss.ContentURL = "http://www.sofotex.com/download/xml/24.xml"
rss.GetRSS()

'display content
response.write "<h3>" & rss.ChannelTitle & "</h3>"

Dim i 
For Each i in rss.Results
  response.write rss.Links(i) & "<br>"
Next

'release object
Set rss= Nothing


+---------------------------------------------+

Example Code - Amazon RSS Feed 


'create object
Dim rss
Set rss= New RSSContentFeed

'set the amazon parameters
Dim assocID, DevToken, Kwd, Mode, Title
assocID = "Your-AssociateID"
DevToken = "Your-Developer-Token"
Kwd = "ASP"
Mode = "books-uk"
Title = "ASP Books"

'get amazon rss content
Call rss.GetAmazonRSS(assocID, DevToken, Kwd, Mode, Title)

'display results
Dim i 
For Each i in rss.Results
  response.write rss.ItemHTML(i) & "<br>"
Next

'release object
Set rss= Nothing


+---------------------------------------------+

Setting Properties


'set content url
rss.ContentURL = "http://freenewsfeed.newsfactor.com/rss" 
 
'set Post data
rss.PostData = "id=123&cat=news" 
 
'set content url
rss.MaxResults = 5 

'set cache
rss.Cache = "\\websites\domain.com\htdocs\rsscache\" 
 
'cache items for 2 days
rss.CacheDays = 2 
 
'from cache?
if rss.FromCache Then
  'item was returned from cache
End If 


+---------------------------------------------+

Calling Methods


'clear content
rss.Clear() 
 
'get content
rss.GetRSS() 
 
'display amazon content
rss.GetAmazonRSS(t, DevToken, kwd, mode, bcm) 
 
'Add header
rss.Addheader("Accept-Language", "en-us") 
 
'delete cached content
rss.DeleteCache() 
 
'transform xml with xsl
StrHTML = rss.Transform("style.xsl") 
 
'get xml node value
Str = rss.XMLValue("//rss/channel/copyright") 
 
'shorten string
shortStr = rss.Shorten(longStr, 10, "...") 
 

+---------------------------------------------+