<% 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 %> Alamo Area Council of Governments

AACOG Employment Opportunities AACOG Public Information Requests AACOG Public Notices Vendor Information


  Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information Click to view county information
Click to view county AACOG membership information.

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.

Local governments organized AACOG as a regional planning commission in 1968 under Chapter 391, Local Government Code. Defined as a political subdivision of the state, AACOG can plan, assist local governments, and deliver public services, but has no power to tax or to regulate. State law requires that the government body of AACOG be composed primarily of local government officials.


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:

  • Organizes cooperative projects among local governments to save tax dollars;
  • Provides technical assistance to member local governments in economic development, grant applications, planning, management, and other areas;
  • Administers federal and state programs that benefit from regional cooperation;
  • Coordinates federal, state, and local projects and issues that cross the boundaries of individual local governments;
  • Plans for the orderly development of the region and for effective delivery of public services; and
  • Reviews and coordinates federal, state and local programs of regional significance.


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.
 
 


<% varDay = dtWeekDyFirst varNumWeeks = varNumDays/7 For cntWeek = 1 to varNumWeeks%> <% For cntDoW = 1 to 7 %> <% varDay = dateadd("d", 1, varDay) Next %> <% Next %>
<%= strMonthName%>
Su Mo Tu We Th Fr Sa
<%If Month(varDay) = dtCurrMo Then If aryEvents(Day(varDay)) = 1 Then%> > <% End If Response.write Day(varDay) End If %>