Mike George Fitness System

<%@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!

Name:
Email:
Format:	Text HTML

Research & Information: Career Opportunities

Mike George Fitness System is always looking for qualified, energetic individuals to add to our growing staff of professionals. Categories of employment include management, sales, service provider and accounting. Please send your resume via e-mail to Mike George. Thank you.

Note: On all of our pages, clicking on the Mike George logo will return you to this page.

<% rsPage.Close() Set rsPage = Nothing %> <% rs2.Close() Set rs2 = Nothing %> <% rs3.Close() Set rs3 = Nothing %>