Wheaton Sailing > Roster

<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' HTTP="true" ' Catalog="" ' Schema="" MM_brinksterwheatonsail_STRING = "dsn=wheatonsailing;" %> <% Dim roster__MMColParam roster__MMColParam = "true" If (Request("MM_EmptyValue") <> "") Then roster__MMColParam = Request("MM_EmptyValue") End If %> <% set roster = Server.CreateObject("ADODB.Recordset") roster.ActiveConnection = MM_brinksterwheatonsail_STRING roster.Source = "SELECT * FROM Membership WHERE " + Replace(roster__MMColParam, "'", "''") + " = ActiveStatus ORDER BY LastName ASC" roster.CursorType = 0 roster.CursorLocation = 2 roster.LockType = 3 roster.Open() roster_numRows = 0 %> <% set advisors = Server.CreateObject("ADODB.Recordset") advisors.ActiveConnection = MM_brinksterwheatonsail_STRING advisors.Source = "SELECT * FROM membershipadvisors ORDER BY LastName ASC" advisors.CursorType = 0 advisors.CursorLocation = 2 advisors.LockType = 3 advisors.Open() advisors_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 roster_numRows = roster_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Repeat2__numRows = -1 Dim Repeat2__index Repeat2__index = 0 advisors_numRows = advisors_numRows + Repeat2__numRows %> Wheaton Sailing > Roster

Homepage . Facility/Weather . Contact . Schedule . Sitemap Norton, Ma

Home > Roster

Roster

Team Members

Name

Hometown

<% Dim RecordCounter RecordCounter = 0 %> <% While ((Repeat1__numRows <> 0) AND (NOT roster.EOF)) %> > <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 roster.MoveNext() Wend %>

" width="100" height="100" class="imageborder">

<%=(roster.Fields.Item("First Name").Value)%> <%=(roster.Fields.Item("LastName").Value)%>

<%=(roster.Fields.Item("city").Value)%>, <%=(roster.Fields.Item("state").Value)%>

Advisors and Coaches

Name

Hometown

<% While ((Repeat2__numRows <> 0) AND (NOT advisors.EOF)) %> > <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 advisors.MoveNext() Wend %>

" width="100" height="100" class="imageborder">

<%=(advisors.Fields.Item("First Name").Value)%> <%=(advisors.Fields.Item("LastName").Value)%>

<%=(advisors.Fields.Item("city").Value)%>, <%=(advisors.Fields.Item("state").Value)%>

© Wheaton College Sailing Team

<% roster.Close() %> <% advisors.Close() %>