Score Calculator to you watch what you eat.

Calories		<% sCal = request.form("Cal") sFat = request.form("Fat") sFib = request.form("Fib") if sCal="" then sCal="0" end if if sFat="" then sFat="0" end if if sFib="" then sFib="0" End if iCal=int(sCal) iFat=int(sFat) iFib=Int(sFib) if iFib>3 then iFib=3 end if iPoints=(iCal/50)+(iFat/12)-(iFib/5) sPoints=round(iPoints,1) Response.Write (" Score Value: '" & sPoints & "' ") %>
Fat
Fibre

Bonuses can be earned by doing exercise. See the bonus  chart.