<%@LANGUAGE="VBSCRIPT"%> <% ' Define variables for Routines Session("session_L") = "L" %> <% Dim rsRed__MMColParam rsRed__MMColParam = "1" If (Request.QueryString("ltr") <> "") Then rsRed__MMColParam = Request.QueryString("ltr") End If %> <% Dim rsRed Dim rsRed_numRows Set rsRed = Server.CreateObject("ADODB.Recordset") rsRed.ActiveConnection = MM_connRedcoats_STRING rsRed.Source = "SELECT * FROM AlumniNames WHERE a_maiden LIKE '%" + Replace(rsRed__MMColParam, "'", "''") + "%' ORDER BY a_maiden ASC" rsRed.CursorType = 0 rsRed.CursorLocation = 2 rsRed.LockType = 1 rsRed.Open() rsRed_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsRed_numRows = rsRed_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsRed_total Dim rsRed_first Dim rsRed_last ' set the record count rsRed_total = rsRed.RecordCount ' set the number of rows displayed on this page If (rsRed_numRows < 0) Then rsRed_numRows = rsRed_total Elseif (rsRed_numRows = 0) Then rsRed_numRows = 1 End If ' set the first and last displayed record rsRed_first = 1 rsRed_last = rsRed_first + rsRed_numRows - 1 ' if we have the correct record count, check the other stats If (rsRed_total <> -1) Then If (rsRed_first > rsRed_total) Then rsRed_first = rsRed_total End If If (rsRed_last > rsRed_total) Then rsRed_last = rsRed_total End If If (rsRed_numRows > rsRed_total) Then rsRed_numRows = rsRed_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsRed_total = -1) Then ' count the total records by iterating through the recordset rsRed_total=0 While (Not rsRed.EOF) rsRed_total = rsRed_total + 1 rsRed.MoveNext Wend ' reset the cursor to the beginning If (rsRed.CursorType > 0) Then rsRed.MoveFirst Else rsRed.Requery End If ' set the number of rows displayed on this page If (rsRed_numRows < 0 Or rsRed_numRows > rsRed_total) Then rsRed_numRows = rsRed_total End If ' set the first and last displayed record rsRed_first = 1 rsRed_last = rsRed_first + rsRed_numRows - 1 If (rsRed_first > rsRed_total) Then rsRed_first = rsRed_total End If If (rsRed_last > rsRed_total) Then rsRed_last = rsRed_total End If End If %> Redcoat Band Alumni Association - Official Website

Mission

The mission of the Redcoat Band Alumni Association (RBAA) is to actively assist, enthusiastically support, and aggressively promote the University of Georgia Redcoat Band programs and The University of Georgia through all reasonable and appropriate means.  To accomplish these purposes, the Association shall vigorously pursue the following objectives:

  1. Raise money through regular membership contributions, special solicitations for donations, and other appropriate methods so as to provide band scholarships and other meaningful financial support to students participating in the University of Georgia Band.
  2. Assist in the recruitment of prospective students.
  3. Communicate regularly with the alumni, friends, and financial supporters of The Redcoat Band programs.
  4. Act as the primary spokesperson organization on behalf of the alumni and friends and act as a positive advocate for the interests of the organization.
  5. Support the ongoing work, policies, and objectives of the Director and staff of the Redcoat Band.
  6. Cooperate with the appropriate University of Georgia Foundation on fundraising activities.

Select one of the links on the right to explore this section.

<% rsRed.Close() Set rsRed = Nothing %>