News -

Archives

<% 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) if iYear <> year(aryNews(1,iRow)) then iYear = year(aryNews(1,iRow)) if iRow > 0 then response.write ("

---

") end if response.write("

" & iYear & "

") end if response.write("

" & aryNews(2,iRow) & " - " & aryNews(1,iRow) & "

" & vbNewLine) next else response.write("

There are no news releases in the archives. Please review our Current News.

") end if rsNews.close set rsNews = nothing dbConn.close set dbConn = nothing %>