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

" & _ "

" %> <% id = request.querystring("id") '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 'Get existing data if id <> "" then sqltext = "SELECT * FROM News WHERE id = " & id rs.Open sqltext, Conn,2,2 if not rs.bof then Headline = trim(rs("Headline")) theDate = rs("theDate") theTime = rs("theTime") 'response.write theDate Location = trim(rs("Location")) BodyText = trim(rs("BodyText")) if BodyText <> "" then BodyText = replace(BodyText,vbCrLf,"
") end if PageData = PageData & "" & Headline & "" & "
" if Location <> "" then PageData = PageData & Location & "
" if theDate <> "" then PageData = PageData & theDate if theTime <> "" then PageData = PageData & ", " & theTime & "
" else PageData = PageData & "
" end if PageData = PageData & "
" PageData = PageData & BodyText else PageData = "Article not found!" end if rs.close else PageData = "Article not found!" end if conn.close %>

<%= Archived %>

News  |  Events <%= PageData %>  Back to News Intro Page