<% PageHeader = "" & _ "" & _ "" & _ "" & _ "

" & _ "

" %> <% 'Look to see if any archived News flgArchived = false sqltext = "SELECT * FROM News WHERE Archive = 1" rs.open sqltext,conn if not rs.bof then if request.querystring("type") = "news" then Archived = "" else Archived = "" end if flgArchived = true end if rs.close 'Look to see if any archived Features sqltext = "SELECT * FROM Features WHERE Archive = 1" rs.open sqltext,conn if not rs.bof then if flgArchived = true then Archived = Archived & "" end if if request.querystring("type") = "news" then Archived = Archived & "

" else Archived = Archived & "

" end if end if rs.close if request.querystring("type") = "news" then 'Get News sqltext = "SELECT * FROM News WHERE Archive = 1 ORDER BY theDate DESC" rs.Open sqltext, Conn,2,2 if not rs.bof then PageData = PageData & "Archived News

" & vbCrLf Do While not rs.eof Headline = trim(rs("Headline")) Intro = rs("theDate") ' Intro = trim(rs("BodyText")) ' if Intro <> "" then ' Intro = left(Intro,250) & "....." ' Intro = replace(Intro,vbCrLf,"
") ' end if PageData = PageData & "" & Headline & "
" & Intro & "

" & vbCrLf rs.MoveNext Loop end if rs.close else 'Get Features sqltext = "SELECT * FROM Features LEFT JOIN Feature_Categories ON Features.CategoryId = Feature_Categories.AreaId WHERE Archive = 1 ORDER BY CategoryId,FeatureDate Desc" rs.Open sqltext, Conn,2,2 if not rs.bof then PageData = PageData & "Archived Features
" & vbCrLf Do While not rs.eof AreaName = trim(rs("AreaName")) if AreaName <> LastArea then AreaTitle = "
" & AreaName & "

" else AreaTitle = "" end if Headline = trim(rs("Headline")) Intro = trim(rs("Intro")) FileType = trim(rs("FileType")) theDate = rs("FeatureDate") imagetag = "" if FileType <> "" then if lcase(FileType) = "pdf" then imagetag = "
Download pdf document" end if id = rs("id") if Intro <> "" then Intro = replace(Intro,vbCrLf,"
") end if PageData = PageData & AreaTitle & "" & Headline & _ "
" & theDate & "" & imagetag & _ "

" & vbCrLf LastArea = AreaName rs.MoveNext Loop else PageData = "Sorry, there are currently no archived features." end if rs.close end if conn.close %>

<%= Archived %>

News  |  Events <%= PageData %>