%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
if (Request("MM_EmptyValue") <> "") then Recordset1__MMColParam = Request("MM_EmptyValue")
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_ShorelineGym_STRING
Recordset1.Source = "SELECT key, Date_Founded FROM Gym_Info WHERE key = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim GroupPhoto__MMColParam
GroupPhoto__MMColParam = "7"
If (Request("MM_EmptyValue") <> "") Then
GroupPhoto__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim GroupPhoto
Dim GroupPhoto_numRows
Set GroupPhoto = Server.CreateObject("ADODB.Recordset")
GroupPhoto.ActiveConnection = MM_ShorelineGym_STRING
GroupPhoto.Source = "SELECT * FROM DynamicImages WHERE ID = " + Replace(GroupPhoto__MMColParam, "'", "''") + ""
GroupPhoto.CursorType = 0
GroupPhoto.CursorLocation = 2
GroupPhoto.LockType = 1
GroupPhoto.Open()
GroupPhoto_numRows = 0
%>
Home page: Shoreline Gymnastics
Site redesigned and maintained by
Shoreline Gymnastics Copyright 2008, All Rights
Reserved Last update January
22th, 2008
<%
Recordset1.Close()
%>
<%
GroupPhoto.Close()
Set GroupPhoto = Nothing
%>