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

Ask Your Board

Frequently Asked Questions will be updated based on
the popularity of the topics.

  1. Can I still contribute to the Brick Campaign?  
    Answer: The Brick Campaign is now closed, however, there are many other naming opportunities at the new practice complex being built right now. Yard lines, seats in the stands, directors podiums, and instrument storage components are just a few.
  2. How can I contribute some of my personal strengths?
    Answer: The Board oversees many fund raising, and alumni events during the year.  By sending an email in the "Contract Us" section, you can share your passion and be placed on a committee that will get you involved with all the activities.

 

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

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