<%@ Language=VBScript %> <% Option explicit Response.Buffer = true %> <% 'Database dim connTemp dim errMsg, msg, returnURL 'Session dim idOrder dim idCust '************************************************************************* 'Open Database Connection call openDB() 'Store Configuration if loadConfig() = false then call errorDB(langErrConfig,"") end if 'Get/Set Cart/Order Session idOrder = sessionCart() 'Get/Set Customer Session idCust = sessionCust() %> <% 'Close Database Connection call closeDB() '********************************************************************** 'Main Shopping Cart Display Area. '********************************************************************** sub cartMain() %>

Calculadora
Cálculo do IMC, cálculo das calorias diárias e cálculo da quantidade de proteina diária
para manter seu pesoa nas condições atuais.

Instruções:

1. Leve o cursor do mouse sobre a altura e clique:  

  
Altura em centímetros (cm)

145 150 155 160 165 170 175 180 185 190 195 200
 2. Leve o cursor do mouse sobre o seu peso e clique: 

Peso em Quilogramas (Kg)

40 45 50 55 60 65 70 75 80 85 90 95 100 105 110 115 120 125 130 135 140 145 150 155 160 165 170 175













Altura :   Peso :   IMC :  
Fator Proteico :   Gramas Diárias Proteínas :    

Calorias por dia :  

3. Aponte e click no seu género:         

 OBS: Não esqueça de marcar esses dados para seu gerenciamento pessoal e nos envie
para fazermos a administração correta de seu Programa Nutricional.
<% end sub %>