<% mTitle = mTitle & "News and Events" id = "12" newsid = TRIM(Request("newsid")) If NOT ISNumeric(newsid) or len(trim(newsid)) = 0 Then newsid = 0 End If ErrorTrap(Top() & "

" & ViewNews() & Bottom()) Function ViewNews() If newsid = 0 Then sql = "SELECT TOP 50 ID, Title, Summary, URL, Content, Date, Author FROM news ORDER BY Date DESC;" Else sql = "SELECT ID, Title, Summary, URL, Content, Date, Author FROM news WHERE ID=" & newsid & " ORDER BY Date DESC;" End If Set RS = dba.Execute(sql, RecAffect, 1) If NOT RS.EOF Then Str=Str & "" Do While NOT RS.EOF mmmTemp = "" If newsid = 0 Then mmmTemp = mmmTemp & RS(2) Str=Str & "" Else mmmTemp = mmmTemp & RS(4) Str=Str & "" sql = "SELECT TOP 50 ID, Title, Summary, URL, Content, Date FROM news WHERE ID<>" & RS(0) & " ORDER BY Date DESC;" Set RSS = dba.Execute(sql, RecAffect, 1) If NOT RSS.EOF Then Str=Str & "" Str=Str & "" Do While NOT RSS.EOF Str=Str & "" RSS.Movenext LOOP End If End If RS.MoveNext If NOT RS.EOF Then Str=Str & "" End If LOOP Str=Str & "
»" & RS(1) & "
Author: " & RS(6) & "
Date: " & FormatMyDate(RS(5)) & "   

" & mmmTemp & "
" & RS(1) & "
Author: " & RS(6) & "
Date: " & FormatMyDate(RS(5)) & "

" & mmmTemp & "

Other General News Highlights
»" & FormatMyDate(RSS(5)) & "" & RSS(1) & "
" Else Str=Str & "


Sorry, there are no news articles available at present.
" End If ViewNews = Str End Function %>