News Room > 2009 Archive
|
| 28 December 2009 |
| 22 December 2009 |
| 21 December 2009 |
| 16 December 2009 |
| 4 December 2009 |
| 1 December 2009 |
| 18 November 2009 |
| 11 November 2009 |
| 16 October 2009 |
| 30 September 2009 |
| 25 September 2009 |
| 02 September 2009 |
| 30 August 2009 |
| 26 August 2009 |
| 31 July 2009 |
| 22 July 2009 |
| 08 July 2009 |
| 26 June 2009 |
| 25 June 2009 |
| 24 June 2009 |
| 16 June 2009 |
| 03 June 2009 |
| 29 May 2009 |
| 12 May 2009 |
| 08 May 2009 |
| 06 May 2009 |
| 05 May 2009 |
| 20 April 2009 |
| 17 April 2009 |
| 02 April 2009 |
| 01 April 2009 |
| 25 March 2009 |
| 18 March 2009 |
| 10 March 2009 |
| 24 February 2009 |
| 17 February 2009 |
| 13 February 2009 |
| 03 February 2009 |
| 26 January 2009 |
| 23 January 2009 |
| 14 January 2009 |
| 12 January 2009 |
|
|
Archives |
|
<%
'Connection to the database
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.ActiveConnection = "Provider=SQLOLEDB.1;Password=psalmview;Persist Security Info=True;User ID=webview;Initial Catalog=Docman;Data Source=psalmsrv4"
Rs.Open "SELECT distinct year(NEWSDATE) as NewsYear FROM News WHERE (NEWSTYPE = 1) AND (WEBDISPLAY = 1) and year(newsdate) > 2009 ORDER BY NewsYear DESC"
if Rs.eof = false and Rs.bof = false then
while not Rs.eof
%>
| |
"><%=Rs("NewsYear") %> |
|
<%
Rs.movenext
wend
end if
Rs.Close
set Rs.ActiveConnection = nothing
set Rs = nothing
%>
| |
2009 |
|
| |
2008 |
|
| |
2007 |
|
| |
2006 |
|
|
|