<%@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

Membership

Per the bi-laws, to be a "Supporting Member" of the Redcoat Alumni Band, you must donate a minimum of $35 to any one of the funds on an annual basis (giving year is July 1st through June 30th).

 

You do not have to be a "Supporting Member" to participate in the Alumni Festivities and Events at Homecoming.

 

 

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

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