|
<%
strActivity=Request.form("Activity")
If strActivity>"" then
If strActivity="" then
Error = "Please select an activity level."
End If
End If
If strActivity = "" Or Error > "" then%>
A balanced diet needs to contain a proper mix of carbohydrates, fat, fiber and protein.
To get the fiber you need, choose several servings a day of foods made from whole grains, such as whole-wheat bread and whole-grain cereals. Find out how many calories from fiber you should be eating.
Caution: These estimates may not be appropriate for pregnant and nursing women.
This test should be used only as a guideline and is based on information available through the American Dietetics Association.
<%Else%>
Thank you for using the Fiber Calculator.
This fiber intake estimation assumes that you are consuming an adequate number of calories per day, that you are within your normal weight range for your height, that you are moderately active and in good health.
Use this as a general guideline for menu planning.
Caution: These estimates may not be appropriate for pregnant and nursing women.
<%End If%>
|
|
|
<%
Dim strHeight, strHeight_m, strFinalHeight, strErrHeight, strErrHeight_m, strGender, strFrame, strAge, Message, Error, BMR, strFiber, Age1, Age2, Age3, Weigth1, Weight2, Weight3, IdealWeight, IdealWeightSmall, IdealWeightMedium, IdealWeightLarge, strActivity, DecadeAge, Calories, WhatToSubtract
Error = ""
BMR = "2,000"
strErrHeight = "We're sorry; this tool is only capable of calculating heights in certain ranges. Women need to enter heights between 4 feet 10 inches and 6 feet tall (1.50 to 1.85 metres), and men need to enter heights between 5 feet 2 inches and 6 feet 4 inches tall (1.60 to 1.95 metres). Please select a height within the range of this tool that is closest to your actual height."
If Request.ServerVariables("REQUEST_METHOD")="POST" then
strHeight_m = Request.form("HeightM")
strHeight = Request.form("Height")
strGender=Request.form("Gender")
strFrame=Request.form("Frame")
strAge=Request.form("Age")
strActivity=Request.form("Activity")
IdealWeight=Request.form("IdealWeight")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''' Error Checking Functions '''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function isMultipleUnits() ' checks for two height values
if strHeight <> "" and strHeight_m <> "" then
isMultipleUnits = true
end if
end function
function isNullHeight() ' checks for empty height values
if strHeight = "" and strHeight_m = "" then
isNullHeight = true
end if
end function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''' End Error Checking Functions '''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if(isNullHeight()) then
Error = "Please select your height in meters or feet."
strHeight = ""
strHeight_m = ""
end if
if(isMultipleUnits()) then
Error = "Please select your height in either meters or feet only, not both."
strHeight = ""
strHeight_m = ""
end if
if Request.Form("strFinalHeight") <> "" then
strFinalHeight = Request.Form("strFinalHeight")
end if
''' if they selected metres '''
if Request.Form("HeightM") <> "" then
strHeight_m = Request.form("HeightM")
strFinalHeight=strHeight_m
end if
''' if they selected feet '''
if Request.Form("Height") <> "" then
strHeight = Request.form("Height")
strFinalHeight=strHeight
end if
If not IdealWeight>"" then
If strAge = "" or 0 then
Error = "Please enter your age."
End If
If not IsNumeric(strAge) then
Error = "Please enter a correct age."
End If
Age1 = Left(strAge, 1)
Age2 = Mid(strAge, 2, 1)
Age3 = Mid(strAGe, 3, 2)
If Age1 > "" then
If not IsNumeric(Age1) then
Error = "Please use only numbers when entering your age."
End If
End If
If Age2 > "" then
If not IsNumeric(Age2) then
Error = "Please use only numbers when entering your age."
End If
End If
If Age3 > "" then
If not IsNumeric(Age3) then
Error = "Please use only numbers when entering your age."
End If
End If
If Error="" then
'Limit age to less than 150
If strAge>150 then
Error = "This tool requires an age of 150 or less. Please re-enter your age."
End If
End If
If strGender = "" then
Error = "Please select a gender."
End If
If strFrame = "" then
Error = "Please select your frame size."
End If
Else
If strActivity="" then
Error = "Please select an activity level."
End If
End If
If Error = "" then
If strGender = "Female" then
Select Case strFinalHeight
Case "1.50":
IdealWeightSmall = "111"
IdealWeightMedium = "121"
IdealWeightLarge = "131"
Case "1.52":
IdealWeightSmall = "113"
IdealWeightMedium = "123"
IdealWeightLarge = "134"
Case "1.55":
IdealWeightSmall = "115"
IdealWeightMedium = "126"
IdealWeightLarge = "137"
Case "1.57":
IdealWeightSmall = "118"
IdealWeightMedium = "129"
IdealWeightLarge = "140"
Case "1.60":
IdealWeightSmall = "121"
IdealWeightMedium = "132"
IdealWeightLarge = "143"
Case "1.62":
IdealWeightSmall = "124"
IdealWeightMedium = "135"
IdealWeightLarge = "147"
Case "1.65":
IdealWeightSmall = "127"
IdealWeightMedium = "138"
IdealWeightLarge = "151"
Case "1.67":
IdealWeightSmall = "120"
IdealWeightMedium = "141"
IdealWeightLarge = "155"
Case "1.70":
IdealWeightSmall = "133"
IdealWeightMedium = "144"
IdealWeightLarge = "159"
Case "1.73":
IdealWeightSmall = "136"
IdealWeightMedium = "147"
IdealWeightLarge = "163"
Case "1.75":
IdealWeightSmall = "139"
IdealWeightMedium = "150"
IdealWeightLarge = "167"
Case "1.78":
IdealWeightSmall = "142"
IdealWeightMedium = "153"
IdealWeightLarge = "170"
Case "1.80":
IdealWeightSmall = "145"
IdealWeightMedium = "156"
IdealWeightLarge = "173"
Case "1.83":
IdealWeightSmall = "148"
IdealWeightMedium = "159"
IdealWeightLarge = "176"
Case "1.85":
IdealWeightSmall = "151"
IdealWeightMedium = "162"
IdealWeightLarge = "179"
Case Else:
Error = strErrHeight
End Select
ElseIf strGender = "Male" then
Select Case strFinalHeight
Case "1.60":
IdealWeightSmall = "134"
IdealWeightMedium = "141"
IdealWeightLarge = "150"
Case "1.62":
IdealWeightSmall = "136"
IdealWeightMedium = "143"
IdealWeightLarge = "153"
Case "1.65":
IdealWeightSmall = "138"
IdealWeightMedium = "145"
IdealWeightLarge = "156"
Case "1.67":
IdealWeightSmall = "140"
IdealWeightMedium = "148"
IdealWeightLarge = "160"
Case "1.70":
IdealWeightSmall = "142"
IdealWeightMedium = "151"
IdealWeightLarge = "164"
Case "1.73":
IdealWeightSmall = "145"
IdealWeightMedium = "154"
IdealWeightLarge = "168"
Case "1.75":
IdealWeightSmall = "148"
IdealWeightMedium = "157"
IdealWeightLarge = "172"
Case "1.78":
IdealWeightSmall = "151"
IdealWeightMedium = "160"
IdealWeightLarge = "176"
Case "1.80":
IdealWeightSmall = "154"
IdealWeightMedium = "163"
IdealWeightLarge = "180"
Case "1.83":
IdealWeightSmall = "157"
IdealWeightMedium = "166"
IdealWeightLarge = "184"
Case "1.85":
IdealWeightSmall = "160"
IdealWeightMedium = "170"
IdealWeightLarge = "188"
Case "1.88":
IdealWeightSmall = "164"
IdealWeightMedium = "174"
IdealWeightLarge = "192"
Case "1.90":
IdealWeightSmall = "168"
IdealWeightMedium = "178"
IdealWeightLarge = "197"
Case "1.93":
IdealWeightSmall = "172"
IdealWeightMedium = "182"
IdealWeightLarge = "202"
Case "1.95":
IdealWeightSmall = "176"
IdealWeightMedium = "187"
IdealWeightLarge = "207"
Case Else:
Error= strErrHeight
End Select
End If
If strFrame = "Small" then
IdealWeight = IdealWeightSmall
ElseIf strFrame = "Medium" then
IdealWeight = IdealWeightMedium
ElseIf strFrame = "Large" then
IdealWeight = IdealWeightLarge
End If
If strFrame = "Small" then
IdealWeight = IdealWeightSmall
ElseIf strFrame = "Medium" then
IdealWeight = IdealWeightMedium
ElseIf strFrame = "Large" then
IdealWeight = IdealWeightLarge
End If
If strActivity>"" then
If strActivity="Sedentary" then
strActivity=1.2
ElseIf strActivity="Light" then
strActivity=1.3
ElseIf strActivity="Moderate" then
strActivity=1.4
ElseIf strActivity="Active" then
strActivity=1.5
End If
strAge=CInt(strAge)
If Right(strAge,1)>=5 then
strAge=(strAge+10)
End If
If strAge>20 then
DecadeAge=Left(strAge, 1)
WhatToSubtract=((DecadeAge-2)*2)
Else
WhatToSubtract=0
End If
If strGender="Female" then
Calories=IdealWeight*10
ElseIf strGender="Male" then
Calories=IdealWeight*11
End If
WhatToSubtract=((WhatToSubtract*Calories)/100)
Calories=Calories-WhatToSubtract
strFiber=CInt((((Calories*strActivity)*1.1)*11.5)/1000)
End If
End If
End If
If strFiber = "" or Error > ""then%>
<%If Error > "" then%>
<% = Error%>
<%End If%>
| |