<%@LANGUAGE="VBSCRIPT"%> <% set rsAlumniListing = Server.CreateObject("ADODB.Recordset") rsAlumniListing.ActiveConnection = MM_CCTInfo_STRING rsAlumniListing.Source = "SELECT * FROM Actor ORDER BY LastName" rsAlumniListing.CursorType = 0 rsAlumniListing.CursorLocation = 2 rsAlumniListing.LockType = 3 rsAlumniListing.Open() rsAlumniListing_numRows = 0 %> <% Dim showmenu Dim showmenu_numRows Set showmenu = Server.CreateObject("ADODB.Recordset") showmenu.ActiveConnection = MM_CCTInfo_STRING showmenu.Source = "SELECT * FROM Shows" showmenu.CursorType = 0 showmenu.CursorLocation = 2 showmenu.LockType = 1 showmenu.Open() showmenu_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -3 Dim HLooper1__index HLooper1__index = 0 rsAlumniListing_numRows = rsAlumniListing_numRows + HLooper1__numRows %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsAlumniListing_numRows = rsAlumniListing_numRows + Repeat1__numRows %> Cobb Childrens Theatre - Alumni Listing


 

CCT Alumni Listing

<% startrw = 0 endrw = HLooper1__index numberColumns = 5 numrows = -1 while((numrows <> 0) AND (Not rsAlumniListing.EOF)) startrw = endrw + 1 endrw = endrw + numberColumns %> <% While ((startrw <= endrw) AND (Not rsAlumniListing.EOF)) %> <% startrw = startrw + 1 rsAlumniListing.MoveNext() Wend %> <% numrows=numrows-1 Wend %>

"><%=(rsAlumniListing.Fields.Item("LastName").Value)%>, <%=(rsAlumniListing.Fields.Item("FirstName").Value)%> <%=(rsAlumniListing.Fields.Item("MaidenName").Value)%>
<%=(rsAlumniListing.Fields.Item("City").Value)%> <%=(rsAlumniListing.Fields.Item("State").Value)%>

 

The Alumni Database is being updated. I am sorry for the inconvenience. If you would like to add your information to the Alumni database please go to the Contact Page and send me your First Name, Last Name (Maiden Name) and email address to the Webmaster Contact and I will gladly add your information. If you want to update your information please send me the updated information. Improvements will also be made so you can update your information when you get a new email address. The Search will still work, but the information may not be accurate.

Thank you for your patientence

CCT WebMaster - Gavin Karstensen
 


<% rsAlumniListing.Close() %> <% showmenu.Close() Set showmenu = Nothing %>