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 %>