News
<%
set dbConn = server.createobject("ADODB.Connection")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\databases\nedc.mdb"
dbConn.open strConn
strSQL = "SELECT [AnnouncementID],[DatePosted],[Title] FROM [Announcements] WHERE [DatePosted] >= #" & dateadd("yyyy",-1,date()) & "# ORDER BY [DatePosted] DESC"
set rsNews = server.createobject("adodb.recordset")
rsNews.open strSQL, dbConn, 3
if not rsNews.eof then
aryNews = rsNews.getrows
for iRow = 0 to ubound(aryNews,2)
response.write("
" & aryNews(2,iRow) & " - " & aryNews(1,iRow) & "
" & vbNewLine)
next
else
response.write("
There are no news releases. Please check back soon.
")
end if
rsNews.close
set rsNews = nothing
dbConn.close
set dbConn = nothing
%>