%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsInstructorsList Dim rsInstructorsList_numRows Set rsInstructorsList = Server.CreateObject("ADODB.Recordset") rsInstructorsList.ActiveConnection = MM_kickboxer_STRING rsInstructorsList.Source = "SELECT * FROM Instructors ORDER BY LastName2 DESC" rsInstructorsList.CursorType = 0 rsInstructorsList.CursorLocation = 2 rsInstructorsList.LockType = 1 rsInstructorsList.Open() rsInstructorsList_numRows = 0 %> <% Dim rsCoachesList Dim rsCoachesList_numRows Set rsCoachesList = Server.CreateObject("ADODB.Recordset") rsCoachesList.ActiveConnection = MM_kickboxer_STRING rsCoachesList.Source = "SELECT * FROM Coach ORDER BY LastName ASC" rsCoachesList.CursorType = 0 rsCoachesList.CursorLocation = 2 rsCoachesList.LockType = 1 rsCoachesList.Open() rsCoachesList_numRows = 0 %> <% Dim ChiefInstructorList Dim ChiefInstructorList_numRows Set ChiefInstructorList = Server.CreateObject("ADODB.Recordset") ChiefInstructorList.ActiveConnection = MM_kickboxer_STRING ChiefInstructorList.Source = "SELECT * FROM [Chief Instructor] ORDER BY LastName ASC" ChiefInstructorList.CursorType = 0 ChiefInstructorList.CursorLocation = 2 ChiefInstructorList.LockType = 1 ChiefInstructorList.Open() ChiefInstructorList_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsInstructorsList_numRows = rsInstructorsList_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsCoachesList_numRows = rsCoachesList_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 3 Repeat3__index = 0 rsInstructorsList_numRows = rsInstructorsList_numRows + Repeat3__numRows %>
INSTRUCTORS
LIST |
|||||||||||||||||||||||||||||||||||||||||||||||||||
|