<%
' +---------------------------------------------+
' | 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 - Simple
' rename this file as "sample_code1.asp"
%>
<%
'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 "" & rss.ChannelTitle & "
"
Dim i
For Each i in rss.Results
response.write rss.Links(i) & "
"
Next
'release object
Set rss= Nothing
%>