<%
Dim strNews
Dim rsNews
Dim connEHDS
Set rsNews = Server.CreateObject("ADODB.Recordset")
strNews = "SELECT * FROM events ORDER BY events.eventOrder ASC;"
'Open the recordset with the SQL query
rsNews.Open strNews, connEHDS
If rsNews.BOF Or rsNews.EOF Then
Response.Write ("") Response.Write ("There are currently no News Postings") Response.Write ("
") ELSE rsNews.MoveFirst Do While Not rsNews.EOF %><% If rsNews("eventSubtitle")= "" Then Else %> <% Response.write "" %> <% = rsNews("eventSubtitle") %> <% Response.write "
" %> <% End IF %> <% = rsNews("eventParagraph1") %>
<% If rsNews("eventParagraph2")= "" Then Else %> <% Response.write "" %> <% = rsNews("eventParagraph2") %> <% Response.write "
" %> <% End IF %> <% If rsNews("eventParagraph3")= "" Then Else %> <% Response.write "" %> <% = rsNews("eventParagraph3") %> <% Response.write "
" %> <% End IF %> <% If rsNews("eventClosing")= "" Then Else %> <% Response.write "" %> <% = rsNews("eventClosing") %> <% Response.write "" %>
<% End IF %> <% rsNews.MoveNext %> <% Loop %> <% END IF rsNews.Close SET rsNews = Nothing %>