% Set cnEvents = Server.CreateObject("ADODB.Connection") connString = "DSN=Aacogweb; UID=web; PWD=Wb5qLa2Cog" cnEvents.Open(connString) dim strMo(12) dim strDay (7) dim aryEvents(31) strMo(1) = "January" strMo(2) = "February" strMo(3) = "March" strMo(4) = "April" strMo(5) = "May" strMo(6) = "June" strMo(7) = "July" strMo(8) = "August" strMo(9) = "September" strMo(10) = "October" strMo(11) = "November" strMo(12) = "December" dtCurrent = Date() dtNext = DateAdd("m",1,dtCurrent) dtCurrMo = Month(Now) dtCurrYr = Year(dtCurrent) strMonthName = strMo(dtCurrMo) dtNextYr = Year(dtNext) dtNextMo = Month(dtNext) dtFirstDay = dateserial(dtCurrYr, dtCurrMo, 1) dtLastDay = dateadd("d", -1, dateserial(dtNextYr, dtNextMo, 1)) dtWeekDyFirst = DateAdd("d",(1 - DatePart("w",dtFirstDay)), dtFirstDay) dtWeekDyLast = DateAdd("d",(7 - DatePart("w",dtLastDay)), dtLastDay) varNumDays = datediff("d", dtWeekDyFirst, dtWeekDyLast) + 1 strEvents = "Select * from Events Where (StartDate BETWEEN '" & dtFirstDay & "' AND '" & dtLastDay & "')" strEvents = strEvents & " OR (EndDate BETWEEN '" & dtFirstDay & "' AND '" & dtLastDay & "') Order By StartDate Asc" strUpcoming = "Select * from Events Where (StartDate BETWEEN '" & dtCurrent & "' AND '" & DateAdd("d", 10, dtCurrent) & "')" strUpcoming = strUpcoming & " OR (EndDate Between '" & dtCurrent & "' AND '" & DateAdd("d", 10, dtCurrent) & "') Order By StartDate ASC" set rsEvents = cnEvents.Execute(strEvents) set rsUpcoming = cnEvents.Execute(strUpcoming) While NOT rsEvents.EOF varDayNum = Day(rsEvents("StartDate")) aryEvents(varDayNum) = 1 rsEvents.MoveNext WEND %>
|
|
|
|
|
![]()
|
|
|
|
|||||||||||||||
|
The Alamo Area Council
of Governments (AACOG) is a voluntary association of cities, counties,
and special governmental districts. AACOG serves the Alamo Area/State
Planning Region 18, which covers 12 counties and 11,354 square miles. The general purpose of AACOG is to plan for the unified, far-reaching development of the region, eliminate duplication of services, and promote economy and efficiency through coordination. AACOG:
AACOG has active programs for regional planning in the areas of aging services, economic development, 9-1-1 systems, homeland security, criminal justice, resource recovery, air quality, transportation, and weatherization. Technical assistance is provided by the staff to local governments on matters related to a number of other program areas, including census, housing, tourism, and human services. In addition, AACOG sponsors special projects in response to local government needs or requests. |
|
|||||||||||||||