#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.
|
We will be adding new reports shortly. Please check back soon. "" then ?> |