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

Your Board of Directors
Term: Homecoming 2009 to Homecoming 2011

If you have a question, just select the "Contact Us" link above.

 John Colegrove - President
William Owens - Vice President - Reflector
Lee Butts - Treasurer, Past President, Ways & Means
Ellen Rini Black - Secretary - Homecoming
Linda Anderson Butts - Member - Alumni Database
Debbie
Picture Coming
Debbie Crowe - Membership
Frank Folds - Historian
Doug
Picture Coming
Doug Maloney
Nechelle Thornton-Stamm
J Ron Valdes
Laura Moates Stanley - Immediate Past President
Marion English - Past President
Amber Weldon-Stephens - Past President

Picture Coming
 Joan Clark - Leadership Team - Events

Picture Coming
Chris Clark - Leadership Team - Events

Leigh Tompros - Leadership Team - High School Outreach
Ruth Kiney - Band Mom - Board Member Forever

 

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

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