<% Dim sql If Request.QueryString("readmore") = "all" Then sql = "select * from newsSystem ORDER BY newsID DESC" Else sql = "select * from newsSystem where newsID =" & Request.QueryString("readmore") End If Set rs = conn.execute(sql) strTab = "news" strPage = "news" strTitle = "News and Events Archive" %>

<%=strTitle%>

<%If Request.QueryString("readmore") = "all" Then do while not rs.eof Dim newsFull newsFull = rs("newsFull") %>

<%=rs("newsTitle")%> - <%=rs("newsDate")%>

<%If IsNull(newsFull) = True OR newsFull = "" Then%>

<%=rs("newsContent")%>

<%Else%>

<%=newsFull%>

<%End If%> <% rs.movenext loop conn.Close Else %>

<%=rs("newsTitle")%> - <%=rs("newsDate")%>

<%=rs("newsFull")%>

<%End If%>