<%
Response.Expires = -1
' =========== RSS2HTML.ASP for ASP/ASP.NET ==========
' copyright 2005 (c) www.Bytescout.com
' version 1.10, 31 May 2005
' ===============================================
' =========== configuration =====================
' ##### URL to RSS Feed to display #########
URLToRSS = "http://seattletimes.nwsource.com/rss/realestate.xml"
' ##### max number of displayed items #####
MaxNumberOfItems = 20
' ##### Main template constants
MainTemplateHeader = "
"
MainTemplateFooter = "
"
' #####
' ######## FILTERING KEYWORDS#############
' for more complex filtering with complex query check RSS2HTML Scout library for ASP/ASP.NET (http://www.bytescout.com/rss2htmlscout.html)
' ######################################
Keyword1 = "" ' Keyword1 = "tech" - set non-empty keyword value to filter by this keyword
Keyword2 = "" ' Keyword1 = "win" - set non-empty keyword value to filter by this keyword
' #################################
' ##### Item template.
' ##### {LINK} will be replaced with item link
' ##### {TITLE} will be replaced with item title
' ##### {PUBDATE} will be replaced with Pub Date
' ##### {DESCRIPTION} will be replaced with item description
ItemTemplate = "
"
' ##### Error message that will be displayed if not items etc
ErrorMessage = "Error has occured while trying to process " &URLToRSS & " Please contact web-master"
' ================================================
Set xmlHttp = Server.CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", URLToRSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText
Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)
Set xmlHttp = Nothing ' clear HTTP object
Set RSSItems = xmlDOM.getElementsByTagName("item") ' collect all "items" from downloaded RSS
Set xmlDOM = Nothing ' clear XML
RSSItemsCount = RSSItems.Length-1
' writing Header
if RSSItemsCount > 0 then
Response.Write MainTemplateHeader
End If
j = -1
For i = 0 To RSSItemsCount
Set RSSItem = RSSItems.Item(i)
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
RSStitle = child.text
case "link"
RSSlink = child.text
case "pubdate"
RSSpubdate = child.text
case "description"
RSSdescription = child.text
End Select
next
' now check filter
If (InStr(RSSTitle,Keyword1)>0) or (InStr(RSSTitle,Keyword2)>0) or (InStr(RSSDescription,Keyword1)>0) or (InStr(RSSDescription,Keyword2)>0) then
j = J+1
if J 0 then
Response.Write MainTemplateFooter
else
Response.Write ErrorMessage
End If
' Response.End
%>