<% ' +---------------------------------------------+ ' | 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 ' Example Code - Setting Properties ' rename this file as "sample_code_properties.asp" %> <% 'create object Dim rss Set rss= New RSSContentFeed '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 = "D:\tele-pro.co.uk\wwwroot\test\rsscache\" 'cache items for 2 days rss.CacheDays = 2 'from cache? if rss.FromCache Then 'item was returned from cache End If 'display properties Response.Write "
rss.MaxResults: " & rss.MaxResults Response.Write "
rss.ContentURL: " & rss.ContentURL Response.Write "
rss.PostData: " & rss.PostData Response.Write "
rss.CacheDays: " & rss.CacheDays 'release object Set rss= Nothing %>