| Total calories |
|
<%
sFat = request.form("wFat")
sCal = request.form("totcal")
if sFat="" then
sFat="0"
end if
iFat=int(sFat)
iCal=int(sCal)
if iCal<>0 then
iVal=(iFat*9)/iCal
sPoints=round(iVal,1)
iPerc=iVal*100
Response.Write ("Total number of calories: '" & sPoints & " (" & iPerc & ")%'")
end if
%>
|