<%@LANGUAGE="VBSCRIPT"%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_ShorelineGym_STRING
Recordset1.Source = "SELECT * FROM General_Info_vacations"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
set SemesterDates = Server.CreateObject("ADODB.Recordset")
SemesterDates.ActiveConnection = MM_ShorelineGym_STRING
SemesterDates.Source = "SELECT * FROM SemesterDates ORDER BY SemesterNumber ASC"
SemesterDates.CursorType = 0
SemesterDates.CursorLocation = 2
SemesterDates.LockType = 3
SemesterDates.Open()
SemesterDates_numRows = 0
%>
<%
set AnnualFee = Server.CreateObject("ADODB.Recordset")
AnnualFee.ActiveConnection = MM_ShorelineGym_STRING
AnnualFee.Source = "SELECT Annual_fee FROM Gym_Info"
AnnualFee.CursorType = 0
AnnualFee.CursorLocation = 2
AnnualFee.LockType = 3
AnnualFee.Open()
AnnualFee_numRows = 0
%>
<%
set SemesterYear = Server.CreateObject("ADODB.Recordset")
SemesterYear.ActiveConnection = MM_ShorelineGym_STRING
SemesterYear.Source = "SELECT key, CurentSemesterYear FROM Gym_Info"
SemesterYear.CursorType = 0
SemesterYear.CursorLocation = 2
SemesterYear.LockType = 3
SemesterYear.Open()
SemesterYear_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Repeat2__numRows = -1
Dim Repeat2__index
Repeat2__index = 0
SemesterDates_numRows = SemesterDates_numRows + Repeat2__numRows
%>
Shoreline Gymnastics: Calender : 2005-2006
Site redesigned and maintained by
Copyright 2003, All Rights Reserved
<%
Recordset1.Close()
%>
<%
SemesterDates.Close()
%>
<%
AnnualFee.Close()
%>
<%
SemesterYear.Close()
%>
