<% Response.Buffer = true Response.ContentType = "text/xml" Function ApplyXMLFormatting(strInput) strInput = Replace(strInput,"&", "&") strInput = Replace(strInput,"'", "'") strInput = Replace(strInput,"&#39;", "'") strInput = Replace(strInput,"""", """) strInput = Replace(strInput, ">", ">") strInput = Replace(strInput,"<","<") strInput = Replace(strInput,"&#34;","") ApplyXMLFormatting = strInput End Function Function return_RFC822_Date(myDate, offset) Dim myDay, myDays, myMonth, myYear Dim myHours, myMonths, mySeconds myDate = CDate(myDate) myDay = WeekdayName(Weekday(myDate),true) myDays = Day(myDate) myMonth = MonthName(Month(myDate), true) myYear = Year(myDate) myHours = zeroPad(Hour(myDate), 2) myMinutes = zeroPad(Minute(myDate), 2) mySeconds = zeroPad(Second(myDate), 2) return_RFC822_Date = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&" "& _ offset End Function Function zeroPad(m, t) zeroPad = String(t-Len(m),"0")&m End Function %> " rel="self" type="application/rss+xml" /> http://<% =Request.ServerVariables("SERVER_NAME") & Replace(lcase(Request.ServerVariables("SCRIPT_NAME")),"newsfeed.xml","default.asp") %> <% =WebMasterEmail %> <% strSQL = "SELECT * FROM " & DatabasePrefix & "News WHERE (NewsStatus = 1) ORDER BY NewsDate DESC, NewsTitle ASC" set Rs = RsExecSQL(strSQL) If Not Rs.EOF Then WHILE NOT Rs.EOF if rs("newsPDF") <> "" then href = rs("newsPDF") fileType = right(rs("newsPDF"), 3) select case fileType case "pdf" icon = "images/dir_pdf.gif" case "jpg", "gif" icon = "images/dir_img.gif" case "asp" icon = "images/dir_asp.gif" case "doc" icon = "images/dir_doc.gif" case "mov" icon = "images/dir_mov.gif" case "xls" icon = "images/dir_xls.gif" case "zip" icon = "images/dir_zip.gif" case "ppt" icon = "images/dir_ppt.gif" case else icon = "images/dir_misc.gif" end select s = rs("newsPDFSize") / 1024 size = "(" & formatNumber(s) & "K)" elseif rs("newsLink") <> "" then href = rs("newsLink") icon = "images/dir_htm.gif" else href = "news/newsView.asp?NewsId=40968" & rs("newsId") icon = "images/bul01.gif" end if %> http://<% =Request.ServerVariables("SERVER_NAME") & Replace(lcase(Request.ServerVariables("SCRIPT_NAME")),lcase(ModuleFolderName & "/newsfeed.xml"),"") & href %> <%=ApplyXMLFormatting(Rs("NewsBrief"))%> <%=return_RFC822_Date(Rs("NewsDate"),"GMT")%> http://<% =Request.ServerVariables("SERVER_NAME") & Replace(lcase(Request.ServerVariables("SCRIPT_NAME")),lcase(ModuleFolderName & "/newsfeed.xml"),"") & href %> <% Rs.MoveNext WEND End If %>