Calories Calculator.

Extra Calories Earned Calculator

BMR per minute at Level 1 
Activity Duration in Minutes
Percentage Extra Energy
 
<% sBMR = request.form("BMR") sActivity = request.form("Activity") sPerc = request.form("Perc") if sBMR="" then sBMR="0" end if if sActivity="" then sActivity="0" end if if sPerc="" then sPerc="0" End if iBMR=int(sBMR) iActivity=int(sActivity) iPerc=Int(sPerc) iCal=(iBMR)*(iActivity)*(iPerc) sCal=round(iCal,1) Response.Write ("

Calories Earned: '" & sCal & "'

") %>


 

All Content ©Copyright 2007 weightlossresearch.co.uk. All Rights Reserved