<% SQL = "SELECT TOP 6 * FROM tnews WHERE archived=0 ORDER BY date_created ASC" Set rsNews = Conn.Execute(SQL) 'Grab the last date (this will act as our LastBuildDate) arrDate = Split(rsNews("date_created"),"/") SQL = "SELECT TOP 6 * FROM tnews WHERE archived=0 ORDER BY date_created DESC" Set rsNews = Conn.Execute(SQL) Response.ContentType = "application/xml" %> http://<%= Request.ServerVariables("SERVER_NAME") %>/offshore-news/sovereign-news/latest-news.htm The Sovereign Group - Latest News - RSS Feed en-gb <% strDate = WeekdayName(WeekDay(arrDate(0) & "/" & arrDate(1) & "/" & arrDate(2)),True) & ", " strDate = strDate & arrDate(1) & " " & MonthName(arrDate(0)) & " " & arrDate(2) Response.Write(strDate & " GMT") %> <% While (Not(rsNews.EOF)) Set objNews = Server.CreateObject("Scripting.Dictionary") For Each Item In rsNews.Fields strData = "" strData = StringContentToXHTML(CStr(Item)) strData = Replace(strData,"''","'") strData = Server.HTMLEncode(strData) strData = Replace(strData,VBCRLF, "
" & VBCRLF) objNews.Add Item.Name, CStr(strData) Next %> <% arrYear = Split(objNews("date_created"),"/") Response.Write(arrYear(1) & "-" & MonthName(arrYear(0),True) & "-" & Left(arrYear(2),4)) %> http://<%= Request.ServerVariables("SERVER_NAME") %>/offshore-news/sovereign-news/<%= rsNews("id") %>/0/<%= Server.URLEncode(objNews("header")) %>.html <%= GetParagraph(Replace(objNews("body"),"Â",""),512) %> <% strDate = WeekdayName(WeekDay(arrYear(0) & "/" & arrYear(1) & "/" & arrYear(2)),True) & ", " strDate = strDate & arrYear(1) & " " & MonthName(arrYear(0)) & " " & arrYear(2) Response.Write(strDate & " GMT") %> <% rsNews.MoveNext Wend %>