<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsPage__MMColParam
rsPage__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
rsPage__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsPage
Dim rsPage_numRows
Set rsPage = Server.CreateObject("ADODB.Recordset")
rsPage.ActiveConnection = MM_admin_STRING
rsPage.Source = "SELECT * FROM index WHERE ID = " + Replace(rsPage__MMColParam, "'", "''") + ""
rsPage.CursorType = 0
rsPage.CursorLocation = 2
rsPage.LockType = 1
rsPage.Open()
rsPage_numRows = 0
%>
<%
Dim rs2__MMColParam
rs2__MMColParam = "2"
If (Request("MM_EmptyValue") <> "") Then
rs2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs2
Dim rs2_numRows
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_admin_STRING
rs2.Source = "SELECT * FROM index WHERE ID = " + Replace(rs2__MMColParam, "'", "''") + ""
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 1
rs2.Open()
rs2_numRows = 0
%>
<%
Dim rs3__MMColParam
rs3__MMColParam = "3"
If (Request("MM_EmptyValue") <> "") Then
rs3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs3
Dim rs3_numRows
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.ActiveConnection = MM_admin_STRING
rs3.Source = "SELECT * FROM index WHERE ID = " + Replace(rs3__MMColParam, "'", "''") + ""
rs3.CursorType = 0
rs3.CursorLocation = 2
rs3.LockType = 1
rs3.Open()
rs3_numRows = 0
%>
Mike George Fitness System
Get FREE Fitness Tips IN YOUR EMAIL!
Our Profile: Photo Gallery
In
addition to offering a more extensive look at
the facilities offered by Mike George Fitness
System, the following photographs highlight some
of the special events and activities in which
our staff and clients have participated.
