Howdy, Y'all

Description

This website is to keep our friends and relatives informed of what we are up to. Visit our Gallery to view Pictures of trips and events. 

What has been going on

<% ' =========== RSS2HTML.ASP for ASP/ASP.NET ========== ' copyright 2005 (c) www.Bytescout.com ' =============================================== ' =========== configuration ===================== ' ##### URL to RSS Feed to display ######### URLToRSS = "http://blog.faithandtom.com/rss2.aspx" ' ##### max number of displayed items ##### MaxNumberOfItems = 7 ' ##### Main template constants MainTemplateHeader = "

" MainTemplateFooter = "" ' ##### ' ##### Item template. ' ##### {LINK} will be replaced with item link ' ##### {TITLE} will be replaced with item title ' ##### {PUBDATE} will be replaced with item pubDate ' ##### {DESCRIPTION} will be replaced with item description ItemTemplate = "{TITLE} {PUBDATE} {DESCRIPTION}" ' ##### 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 "description" RSSdescription = left(child.text,200) & " ..." case "pubdate" RSSpublishdate = child.text End Select next j = J+1 if J 0 then Response.Write "

" & MainTemplateFooter & "

" else Response.Write ErrorMessage End If ' Response.End ' uncomment this line if you need to finalize output %>

Stay Tuned

Things on the horizon