<%Response.ContentType = "text/xml"%> <% ' Write out the Channel Title tag, Channel Title Link (URL) ' tag, Channel Description tag, Channel Language tag, Start ' Image Data tag, Image ALT Text tag, Image Location (URL) tag, ' Image Link (URL) tag and End Image Data tag. ' Change the information within these tags to suit your ' website. %> http://www.coloncancer.bz Colon cancer is cancer of the large intestine (colon), the lower part of your digestive system. Rectal cancer is cancer of the last 6 inches of the colon. Together, they're often referred to as colorectal cancers. en-gb http://www.coloncancer.bz/favicon.ico http://www.coloncancer.bz/ <% with response mySQL = "SELECT * FROM [Table1] ORDER BY DateSubmit DESC" set rS = recordset(rS,adUseClient,mySQL,Con,adOpenStatic) do while not rS.EOF AND ctrRec < RecToShow '===Count the records to be displayed=== ctrRec = ctrRec + 1 '======================================= If InStr(1, rS("DateSubmit"), "AM", vbTextCompare) > 0 Or InStr(1, rS("DateSubmit"), "PM", vbTextCompare) > 0 Then '===There's a valid time field in the database=== Hrs = Hour(rS("DateSubmit")) Mins = Minute(rS("DateSubmit")) Secs = Second(rS("DateSubmit")) AmPm = "" '================================================ Else '===There's no valid time field in the database, so create a virtual time=== Hrs = Create_Hour (rS("DateSubmit")) Mins = Create_Minutes (rS("DateSubmit")) Secs = Create_Seconds (rS("DateSubmit")) '=========================================================================== End If '===Show only the first 200 characters of Header field data=== mMore = "" Partition_Header = "" If Len(rS("Header")) > 100 Then mMore = "..." Partition_Header = Mid(rS("Header"), 1, 200) & mMore '============================================================= .write "" & vbcrlf .write "" & vbcrlf .write "http://www.coloncancer.bz/contentrss.asp?ID=" & rS("ID") & "" & vbcrlf .write "" & ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(Partition_Header, "-", "_"), "&", "&"), vbcrlf, "<br />"), "'", "'"), "--", "<&<"), "/", "2F"), "^", "'"), "?", "_"), "
", ""), "http://", ""), "www.", ""), ".com", ""), "�", "a"), "�", "a"), "�", "a"), "�", "e"), "�", "e"), "�", "e"), "�", "n"), "�", "i"), "�", "i"), "�", "i"), "�", "i"), "�", "I"), "�", "'"), "�", ""), "�", "a"), "�", ""), "�", "_"), "<", ""), ">", ""), "�", "'"), "�", "'"), "�", "'"), "�", "..."), "�", "_"), "�", ""), "�", "p"), "�", "p"), "�", "E"), "�", "l"), "�", "i"), "�", "i"), "�", "o"), "�", "o"), "�", "_"), "�", "_"), "�", ".5"), "�", "O"), "�", "o"), "�", "o"), "�", "c"), "�", "a"), "�", "a"), "�", "a"), "�", "o"), "�", "y"), "�", "y"), "�", "y"), "�", "pound"), "http:", ""), "�", "'"), "�", ""), "�", "u"), "�", "u"), "�", "'"), "�", ""), "�", "b"), "�", "O"), "�", "'"), "�", ""), "�", "O"), "�", "'"), "�", "a"), "�", ""), "�", ""), "�", "'"), "�", ""), "�", "C"), "�", "a"), "�", "x"), "�", "e"), "�", ""), "_ ", ""), "�", ""), "�", ","), "�", "U") & "" & vbcrlf .write "" & FormatDT(Day(rS("DateSubmit"))) & " " & MonthName(Month(rS("DateSubmit")), True) & " " & Year(rS("DateSubmit")) & " " & FormatDT(Hrs) & ":" & FormatDT(Mins) & ":" & FormatDT(Secs) & " " & AmPm & "" & vbcrlf .write "" & ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(ReplaceChar(rS("Author"), "-", "_"), "&", "&"), vbcrlf, "<br />"), "'", "'"), "--", "<&<"), "/", "2F"), "^", "'"), "?", "_"), "
", ""), "http://", ""), "www.", ""), ".com", ""), "�", "a"), "�", "a"), "�", "a"), "�", "e"), "�", "e"), "�", "e"), "�", "n"), "�", "i"), "�", "i"), "�", "i"), "�", "i"), "�", "I"), "�", "'"), "�", ""), "�", "a"), "�", ""), "�", "_"), "<", ""), ">", ""), "�", "'"), "�", "'"), "�", "'"), "�", "..."), "�", "_"), "�", ""), "�", "p"), "�", "p"), "�", "E"), "�", "l"), "�", "i"), "�", "i"), "�", "o"), "�", "o"), "�", "_"), "�", "_"), "�", ".5"), "�", "O"), "�", "o"), "�", "o"), "�", "c"), "�", "a"), "�", "a"), "�", "a"), "�", "o"), "�", "y"), "�", "y"), "�", "y"), "�", "pound"), "http:", ""), "�", "'"), "�", ""), "�", "u"), "�", "u"), "�", "'"), "�", ""), "�", "b"), "�", "O"), "�", "'"), "�", ""), "�", "O"), "�", "'"), "�", "a"), "�", ""), "�", ""), "�", "'"), "�", ""), "�", "C"), "�", "a"), "�", "x"), "�", "e"), "�", ""), "_ ", ""), "�", ""), "�", ","), "�", "U") & "" & vbcrlf .write "" & vbcrlf rS.MoveNext loop end with set rS = nothing %>