<% dim frsFeed 'Fire up an instance of FuzzyRSS set frsFeed = New FuzzyRSS 'Set some of the feed properties frsFeed.Title = "Sea-dreamer - sailing news and updates" frsFeed.Link = "http://www.sea-dreamer.com/" frsFeed.Description = "News about sailing, guides and information drawn from adventures in a Dehler 38 yacht in Scotland." frsFeed.ManagingEditor = "john@mackenzie.org.uk" frsFeed.LastBuildDate = Now() frsFeed.TimeZone = "GMT" Dim dataRS Set dataRS = Server.CreateObject("ADODB.RecordSet") dataSQL= "Select * FROM tblsailingnews ORDER BY ID DESC LIMIT 5;" dataRS.Open dataSQL, whtConn, 1 dataRS.MoveLast dim i,sTitle,sCreateDate,sContent,sArticleURL 'Add the first five items in the content table for i = 0 to 4 '***** 'REPLACE THIS WITH REAL CODE TO FILL THE s-VARIABLES USED BELOW sTitle = dataRS("Title") sCreateDate = dataRS("Date") sArticleURL = "http://www.sea-dreamer.com/newspage.asp?storyid=" & dataRS("ID") sText = Left(dataRS("Story"), 600) sContent = sText & "...Read More..." ' '***** frsFeed.AddItem sTitle, sCreateDate, sContent, "mail@sea-dreamer.com", sArticleURL, sArticleURL & "#comments", "", "", "", "", "", "", "" 'Cycle to the next record dataRS.MovePrevious next 'Close the database whtConn.Close set dataRS = Nothing set whtConn = Nothing 'Output the RSS frsFeed.WriteRSS set frsFeed = Nothing %>