<%
PageHeader = "" & _
"" & _
" | " & _
"
" & _
" " & _
" |
"
%>
<%
'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 & "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 & "Las Vegas Review Journal - Ex-Hilton Workers Award Slash
3/19/1992
"
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
conn.close
%>
Morris Pickering Law Firm, Litigation Attorneys at Law
News | Events
News
<%= PageData %>