<% dim frsFeed 'Fire up an instance of FuzzyRSS set frsFeed = New FuzzyRSS 'Set some of the feed properties frsFeed.Title = "The reluctant sailor" frsFeed.Link = "http://www.sea-dreamer.com/reluctant.asp" frsFeed.Description = "The trials and tribulations of a non-sailor, married to a sailing fanatic" frsFeed.ManagingEditor = "john@mackenzie.org.uk" frsFeed.LastBuildDate = Now() frsFeed.TimeZone = "GMT" Dim relRS Set relRS = Server.CreateObject("ADODB.RecordSet") relpageID = Chr(34) & "reluctant" & Chr(34) relSQL= "Select * FROM tblSailingPages WHERE active=-1 AND subjectname = " & relpageID & " ORDER BY ID DESC LIMIT 5;" relRS.Open relSQL, whtConn, 1 relRS.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 = relRS("Title") sCreateDate = relRS("pagename") sArticleURL = "http://www.sea-dreamer.com/page.asp?pagename=" & relRS("pagename") sText = Left(relRS("Content1"), 600) sContent = sText & "...Read More..." ' '***** frsFeed.AddItem sTitle, sCreateDate, sContent, "mail@sea-dreamer.com", sArticleURL, sArticleURL & "#comments", "", "", "", "", "", "", "" 'Cycle to the next record relRS.MovePrevious next 'Close the database whtConn.Close set relRS = Nothing set whtConn = Nothing 'Output the RSS frsFeed.WriteRSS set frsFeed = Nothing %>