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

" & _ "

" %> <% Set File = Server.CreateObject("SoftArtisans.File") SAFile = File.Size 'Get News sqltext = "SELECT * FROM News WHERE Archive = 0 ORDER BY theDate DESC" rs.Open sqltext, Conn,2,2 if not rs.bof then PageData = PageData & "News
Click on a headline to read the article.

" & 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 PageData = PageData & "" & vbCrLF PageData = PageData & "" & vbCrLF PageData = PageData & "" & vbCrLF '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 Archived = "" 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 Archived = Archived & "

" end if rs.close 'Get Features LastArea = "" sqltext = "SELECT * FROM Features LEFT JOIN Feature_Categories ON Features.CategoryId = Feature_Categories.AreaId WHERE Archive = 0 ORDER BY CategoryId,FeatureDate Desc" rs.Open sqltext, Conn,2,2 if not rs.bof then PageData = PageData & "
Features
Click on a headline to read a summary of the feature.
" & vbCrLf Do While not rs.eof AreaName = trim(rs("AreaName")) if AreaName <> LastArea then AreaTitle = "
" & AreaName & "

" else AreaTitle = "" end if theDate = rs("FeatureDate") Headline = trim(rs("Headline")) Intro = trim(rs("Intro")) FileType = trim(rs("FileType")) 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 end if rs.close conn.close %>

<%= Archived %>            Download Adobe      Acrobat Reader

<%= PageData %>