<% Dim objConnection Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.Open "mackandy3", "ffs", "ple2ase2" Dim RSExerciseCals Set RSExerciseCals = Server.CreateObject("ADODB.Recordset") MySQL = "SELECT * FROM ffs_exercise_cals" 'Response.write Mysql RSExerciseCals.open MySQL, objconnection, 1, 3 %>

Exercise Calorie Database

Search for calories burned by exercise using our Exercise Calorie Database
<%Do Until RSExerciseCals.eof = true %> <%RSExerciseCals.MoveNext%> <% LOOP %>

	Your Weight (Calories burned per hour of exercise)
Description	100 lbs	125 lbs	150 lbs	175 lbs	200 lbs
<%=RSExerciseCals("Exercise_Desc")%>	<%=RSExerciseCals("Weight_100LLBS")%>	<%=RSExerciseCals("Weight_125LLBS")%>	<%=RSExerciseCals("Weight_150LLBS")%>	<%=RSExerciseCals("Weight_175LLBS")%>	<%=RSExerciseCals("Weight_200LLBS")%>

<% Set RSExerciseCals=Nothing Set objConnection =Nothing %>