#31/7/2010#))" style5771 = "style=""text-decoration: underline""" case "5770" SQL = SQL & " WHERE (((ArticleDate)<#8/1/2010# And (ArticleDate)>#31/7/2009#))" style5770 = "style=""text-decoration: underline""" case "5769" SQL = SQL & " WHERE (((ArticleDate)<#8/1/2009# And (ArticleDate)>#31/7/2008#))" style5769 = "style=""text-decoration: underline""" case "5768" SQL = SQL & " WHERE (((ArticleDate)<#8/1/2008# And (ArticleDate)>#31/7/2007#))" style5768 = "style=""text-decoration: underline""" case "5767" SQL = SQL & " WHERE (((ArticleDate)<#8/1/2007# And (ArticleDate)>#31/7/2006#))" style5767 = "style=""text-decoration: underline""" case "5766" SQL = SQL & " WHERE (((ArticleDate)<#8/1/2006# And (ArticleDate)>#31/7/2005#))" style5766 = "style=""text-decoration: underline""" case "5765" SQL = SQL & " WHERE (((ArticleDate)<#8/1/2005# And (ArticleDate)>#31/7/2004#))" style5765 = "style=""text-decoration: underline""" case Else SQL = SQL & " WHERE (((ArticleDate)<#8/1/2011# And (ArticleDate)>#31/7/2010#))" style5771 = "style=""text-decoration: underline""" end select SQL = SQL & " ORDER BY Article.ArticleDate DESC, Article.ArticlePriority" 'show SQL, true 'show dsn, true Conn.Open dsn, CONN_USER, CONN_PASS RS.PageSize = iPageSize RS.CursorLocation = adUseClient RS.CacheSize = iPageSize RS.Open SQL, Conn, adOpenStatic, adLockReadOnly, adCmdText iPageCount = RS.PageCount If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 ?>

Reports from our students about our recent extra curricular activities and programs.

Please select year: >5771 | >5770

We will be adding new reports shortly. Please check back soon.

1 Then sPageList = sPageList + "[<< Prev] " End If For I = 1 To iPageCount If I = iPageCurrent Then sPageList = sPageList & " " & I & " " Else sPageList = sPageList + "" & I & " " End If Next If iPageCurrent < iPageCount Then sPageList = sPageList + "[Next >>] " End If ?>

"" then ?>