<% Set settingsRS = Server.CreateObject("ADODB.RecordSet") settingsSQL = "Select sitetitle from tblSettings;" 'Response.Write dataSQL 'response.end settingsRS.Open settingsSQL, whtConn '******* sitetitle = settingsRS("sitetitle") settingsRS.close set settingsRS = nothing %> AMCCMA <% '*****GRAB PAGE NAMES FROM DATABASE TO CREATE SIDE MENU***** Set menuRS = Server.CreateObject("ADODB.RecordSet") menuSQL = "Select pagename, ID, directlink FROM tblPages where active = 1 and deleted = 2 order by pageorder, pagename;" 'Response.Write dataSQL 'response.end menuRS.Open menuSQL, whtConn, 1 recordcount = MenuRS.recordcount if recordcount <> 0 then ' menuRS.close ' set menuRS = nothing ' end if '*****STICK DATA INTO AN ARRAY***** data = menuRS.GetRows() '*****Setup for array usage***** iRecFirst = LBound(data, 2) iRecLast = UBound(data, 2) end if '*****CLOSE RECORDSET***** menuRS.close set menuRS = nothing %>
HomeBoard of DirectorsHistory of the AMCCMAJob AnnouncementsCalendarContact
Back a Month
 Week of 12/31/2023
Forward a Month
Day View
Week View
Month View
Year View
Goto Today
Login
Events between: Sunday, December 31, 2023 and Saturday, January 06, 2024
Events for: Sunday, December 31, 2023
There are no events on this date.
Events for: Monday, January 01, 2024
There are no events on this date.
Events for: Tuesday, January 02, 2024
There are no events on this date.
Events for: Wednesday, January 03, 2024
There are no events on this date.
Events for: Thursday, January 04, 2024
There are no events on this date.
Events for: Friday, January 05, 2024
There are no events on this date.
Events for: Saturday, January 06, 2024
There are no events on this date.
December 2023
 SMTWTFS
W     12
W3456789
W10111213141516
W17181920212223
W24252627282930
W31      

January 2024
 SMTWTFS
W 123456
W78910111213
W14151617181920
W21222324252627
W28293031   

February 2024
 SMTWTFS
W    123
W45678910
W11121314151617
W18192021222324
W2526272829  

Copyright 2011 AMCCMA. All Rights reserved