Health Metrics

The following information is required in order to calculate your metabolic rate

<%--DATE OF BIRTH --%> <%--

Date of Birth: Month Day Year

--%> <%-- HEIGHT --%> <%--

Height:

--%> <%-- WEIGHT --%> <%--

Weight:

--%> <%-- GENDER TABLE --%> <%--

Gender:

--%> <%--ACTIVITY LEVEL TABLE --%> <%--

How would you describe your activity level?

--%> <%--UPDATE TABLE --%> <%--

--%> <%--GOALS --%> <%--

Goals

The following information will define the meal wizard parameters

How many meals do you eat per day?

How many snacks do you eat per day?

What is your goal using this tool?

If your goal is not listed, please add here:

--%> <%--UPDATE TABLE --%> <%--

--%> <%--FOOD ALLERGIES --%> <%--

Food Allergies

Use this section to select foods that you do not want included in your recipes

Select and add foods you do not want to add due to allergens:

--%> <%--UPDATE TABLE --%> <%--

--%> <%--Favorite Foods --%> <%--

Favorite Foods

Add your favorite foods to help the meal wizard pick your favorite meals

Select and add foods your favorite foods:

--%> <%--UPDATE TABLE --%> <%--

--%> <%--DISLIKED FOODS --%> <%--

Most Disliked Food Types

Add items that you would prefer not to be added to your meal plan

Select and add foods you dislike:

--%> <%--UPDATE TABLE --%> <%--

--%> <%--NUTRIENT TRACKING --%> <%--

Nutrient Tracking

Add nutrients that you would like to track on the Quick Glance tab

Select and add nutrients you would like to track:

--%> <%--UPDATE TABLE --%> <%--

--%> ************************* Protected Sub uxHealthMetricsButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxHealthMetricsButton.Click ' ***** uxHealthMetricsButton.CssClass = "button2" uxGoalsButton.CssClass = "button_faq" uxFoodAllergiesButton.CssClass = "button_faq" uxFavoriteFoodsButton.CssClass = "button_faq" uxDislikedFoodsButton.CssClass = "button_faq" uxNutrientTrackingButton.CssClass = "button_faq" uxGoalsPanel.Visible = False uxFoodAllergiesPanel.Visible = False uxFavoriteFoodsPanel.Visible = False uxDislikedFoodsPanel.Visible = False uxHealthMetricsPanel.Visible = True uxNutrientTrackingPanel.Visible = False End Sub Protected Sub uxGoalsButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxGoalsButton.Click uxHealthMetricsButton.CssClass = "button_faq" uxGoalsButton.CssClass = "button2" uxFoodAllergiesButton.CssClass = "button_faq" uxFavoriteFoodsButton.CssClass = "button_faq" uxDislikedFoodsButton.CssClass = "button_faq" uxNutrientTrackingButton.CssClass = "button_faq" uxGoalsPanel.Visible = True uxFoodAllergiesPanel.Visible = False uxFavoriteFoodsPanel.Visible = False uxDislikedFoodsPanel.Visible = False uxHealthMetricsPanel.Visible = False uxNutrientTrackingPanel.Visible = False End Sub Protected Sub uxFoodAllergiesButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxFoodAllergiesButton.Click uxHealthMetricsButton.CssClass = "button_faq" uxGoalsButton.CssClass = "button_faq" uxFoodAllergiesButton.CssClass = "button2" uxFavoriteFoodsButton.CssClass = "button_faq" uxDislikedFoodsButton.CssClass = "button_faq" uxNutrientTrackingButton.CssClass = "button_faq" uxGoalsPanel.Visible = False uxFoodAllergiesPanel.Visible = True uxFavoriteFoodsPanel.Visible = False uxDislikedFoodsPanel.Visible = False uxHealthMetricsPanel.Visible = False uxNutrientTrackingPanel.Visible = False End Sub Protected Sub uxFavoriteFoodsButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxFavoriteFoodsButton.Click uxHealthMetricsButton.CssClass = "button_faq" uxGoalsButton.CssClass = "button_faq" uxFoodAllergiesButton.CssClass = "button_faq" uxFavoriteFoodsButton.CssClass = "button2" uxDislikedFoodsButton.CssClass = "button_faq" uxNutrientTrackingButton.CssClass = "button_faq" uxGoalsPanel.Visible = False uxFoodAllergiesPanel.Visible = False uxFavoriteFoodsPanel.Visible = True uxDislikedFoodsPanel.Visible = False uxHealthMetricsPanel.Visible = False uxNutrientTrackingPanel.Visible = False End Sub Protected Sub uxDislikedFoodsButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxDislikedFoodsButton.Click uxHealthMetricsButton.CssClass = "button_faq" uxGoalsButton.CssClass = "button_faq" uxFoodAllergiesButton.CssClass = "button_faq" uxFavoriteFoodsButton.CssClass = "button_faq" uxDislikedFoodsButton.CssClass = "button2" uxNutrientTrackingButton.CssClass = "button_faq" uxGoalsPanel.Visible = False uxFoodAllergiesPanel.Visible = False uxFavoriteFoodsPanel.Visible = False uxDislikedFoodsPanel.Visible = True uxHealthMetricsPanel.Visible = False uxNutrientTrackingPanel.Visible = False End Sub Protected Sub uxNutrientTrackingButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxNutrientTrackingButton.Click uxHealthMetricsButton.CssClass = "button_faq" uxGoalsButton.CssClass = "button_faq" uxFoodAllergiesButton.CssClass = "button_faq" uxFavoriteFoodsButton.CssClass = "button_faq" uxDislikedFoodsButton.CssClass = "button_faq" uxNutrientTrackingButton.CssClass = "button2" uxGoalsPanel.Visible = False uxFoodAllergiesPanel.Visible = False uxFavoriteFoodsPanel.Visible = False uxDislikedFoodsPanel.Visible = False uxHealthMetricsPanel.Visible = False uxNutrientTrackingPanel.Visible = True End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Session("msp_user_id") Is Nothing Then If Session("msp_user_id") Is Nothing Then varUser = New cUser Else varUser = Session("msp_user_id") End If If varUser.UserID > 0 Then If Not IsPostBack Then PopulateMonthDropDown() PopulateDayDropDown() PopulateYearDropDown() PopulateGender() PopulateActivityLevel() PopulateHeightFeet() PopulateHeightInches() PopulateWeight() End If Else Response.Redirect("login.aspx") End If Else Response.Redirect("login.aspx") End If End Sub Private Sub PopulateMonthDropDown() Dim i As Int32 uxMonth.Items.Clear() For i = 1 To 12 uxMonth.Items.Add(i.ToString) Next If IsDate(varUser.DateOfBirth) Then uxMonth.Text = Month(varUser.DateOfBirth).ToString End If End Sub Private Sub PopulateDayDropDown() Dim i As Int32 uxDay.Items.Clear() For i = 1 To 31 uxDay.Items.Add(i.ToString) Next If IsDate(varUser.DateOfBirth) Then uxDay.Text = Day(varUser.DateOfBirth).ToString End If End Sub Private Sub PopulateYearDropDown() Dim i As Int32 uxYear.Items.Clear() For i = 1920 To 2010 uxYear.Items.Add(i.ToString) Next If IsDate(varUser.DateOfBirth) Then uxYear.Text = Year(varUser.DateOfBirth).ToString End If End Sub Private Sub PopulateGender() uxGender.Items.Clear() uxGender.Items.Add("Female") uxGender.Items.Add("Male") If varUser.Gender = "F" Then uxGender.Text = "Female" Else uxGender.Text = "Male" End If End Sub Private Sub PopulateActivityLevel() Dim varActivityLevel As New cActivityLevel uxActivityLevel.DataSource = varActivityLevel.ReturnActivityLevelList uxActivityLevel.DataValueField = "activity_level_id" uxActivityLevel.DataTextField = "name" uxActivityLevel.DataBind() uxActivityLevel.SelectedIndex = varUser.MostRecentActivityLevel - 1 End Sub Private Sub PopulateHeightFeet() uxHeightFeet.Items.Clear() uxHeightFeet.Items.Add("2") uxHeightFeet.Items.Add("3") uxHeightFeet.Items.Add("4") uxHeightFeet.Items.Add("5") uxHeightFeet.Items.Add("6") uxHeightFeet.Items.Add("7") uxHeightFeet.Items.Add("8") uxHeightFeet.Items.Add("9") uxHeightFeet.Text = varUser.MostRecentHeightFeet.ToString End Sub Private Sub PopulateHeightInches() Dim i As Int32 uxHeightInches.Items.Clear() For i = 1 To 11 uxHeightInches.Items.Add(i.ToString) Next uxHeightInches.Text = varUser.MostRecentHeightInches.ToString End Sub Private Sub PopulateWeight() Dim i As Int32 uxWeight.Items.Clear() For i = 0 To 1000 uxWeight.Items.Add(i.ToString) Next uxWeight.Text = varUser.MostRecentWeight.ToString End Sub Protected Sub uxActivityLevel_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxActivityLevel.TextChanged Dim varActivityLevel As New cActivityLevel If varActivityLevel.LoadActivityLevel(uxActivityLevel.SelectedValue) Then uxActivityLevelDescription.Text = varActivityLevel.Description Else uxActivityLevelDescription.Text = "" End If End Sub Protected Sub uxProfileMetricsUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles uxProfileMetricsUpdate.Click varUser.MostRecentHeightFeet = CInt(uxHeightFeet.Text) varUser.MostRecentHeightInches = CInt(uxHeightInches.Text) varUser.MostRecentWeight = CInt(uxWeight.Text) If uxGender.Text = "Female" Then varUser.Gender = "F" Else varUser.Gender = "M" End If varUser.MostRecentActivityLevel = uxActivityLevel.SelectedValue If IsDate(uxMonth.Text & "/" & uxDay.Text & "/" & uxYear.Text) Then varUser.DateOfBirth = CDate(uxMonth.Text & "/" & uxDay.Text & "/" & uxYear.Text) End If If varUser.UpdateUserProfileHealthMetrics Then Else End If End Sub