<% Dim R1, R2, R2b, R3, R4, R5, R6, R7 Dim P1, P2, P4, P5, P6, P7 Dim score Dim BMI Dim QOui, Qnon Dim QHomme, QFemme Dim verbose Dim action Dim msg1, msg2, msg3, msg4, msg5, msg6, msg7, msg8, msgScore R1 = -1 R3 = -1 R4 = -1 R5 = -1 R6 = -1 R7 = -1 QOui = 1 Qnon = 2 QHomme = 1 QFemme = 0 verbose = false Sub affiche (txt) if verbose then response.write txt end if end sub Sub corrige (txt) if txt <> "" then response.write " " & txt & "" end if end sub action = Request.Form("action") if action="validation" then action="calcul" if Request.Form("Q1")<>"" then R1 = CInt(Request.Form("Q1")) else action = "correction" msg1 = "Veuillez indiquer votre sexe." end if if Request.Form("Q2")<>"" then if isnumeric(Request.Form("Q2")) then R2 = CInt(Request.Form("Q2")) if (R2 <= 0) or (R2 > 200) then action = "correction" msg2 = "Veuillez vérifier votre poids [1-200]." end if else action = "correction" msg2 = "Veuillez saisir une valeur numérique." end if else action = "correction" msg2 = "Veuillez indiquer votre poids." end if if Request.Form("Q2b")<>"" then if isnumeric(Request.Form("Q2b")) then R2b = CInt(Request.Form("Q2b")) if (R2b <= 50) or (R2b > 250) then action = "correction" msg2b = "Veuillez vérifier votre taille [50-250]." end if else action = "correction" msg2b = "Veuillez saisir une valeur numérique." end if else action = "correction" msg2b = "Veuillez indiquer votre taille." end if if Request.Form("Q3")<>"" then R3 = CInt(Request.Form("Q3")) else action = "correction" msg3 = "Veuillez indiquer votre consommation." end if if Request.Form("Q4")<>"" then R4 = CInt(Request.Form("Q4")) else action = "correction" msg4 = "Veuillez indiquer votre consommation." end if if Request.Form("Q5")<>"" then R5 = CInt(Request.Form("Q5")) else action = "correction" msg5 = "Veuillez indiquer votre consommation." end if if Request.Form("Q6")<>"" then R6 = CInt(Request.Form("Q6")) else action = "correction" msg6 = "Veuillez indiquer votre consommation." end if if Request.Form("Q7")<>"" then R7 = CInt(Request.Form("Q7")) else action = "correction" msg7 = "Veuillez indiquer votre utilisation." end if end if if action="calcul" then affiche "

" affiche "R1=" & R1 & "
" affiche "R2=" & R2 & "
" affiche "R3=" & R3 & "
" affiche "R4=" & R4 & "
" affiche "R5=" & R5 & "
" affiche "R6=" & R6 & "
" affiche "R7=" & R7 & "
" affiche "

" BMI = R2 / (R2b/100 * R2b/100) affiche "

BMI=" & BMI & "

" if BMI >= 30 then Rbmi = 2 else Rbmi = 0 end if score = R1 + Rbmi + R3 + R4 + R5 + R6 + R7 affiche "

Score=" & score & "

" If score >= 5 then msgScore = "

Le résultat du test ExSel est positif. Votre consommation de sel est excessive et probablement supérieure à 12 grammes par jour.

" if R3>0 then msgScore = msgscore + "

Une diminution de la quantité de pain/biscotte /viennoiserie participera à diminuer votre consommation de sel.

" end if if R4=2 then msgScore = msgscore + "

Une diminution de la quantité de fromage participera à diminuer votre consommation de sel.

" end if if R5=2 then msgScore = msgscore + "

Une diminution de la quantité de charcuterie participera à diminuer votre consommation de sel.

" end if if R6=1 then msgScore = msgscore + "

Une diminution de la quantité d'aliments riches en sel caché participera à diminuer votre consommation de sel.

" end if if R7=1 then msgScore = msgscore + "

Une diminution de l'usage des bouillons cubes ou des rehausseurs de goût en poudre participera à diminuer votre consommation de sel." end if else msgScore = "

Le résultat du test ExSel est négatif. Votre consommation de sel n'est pas excessive et probablement inférieure à 12 grammes par jour.

" end if %>

<% = msgScore %>

Le test ExSel a été mis au point et validé en 2014 sur une population de sujets hypertendus de la région Ile-de France. Une consommation excessive de sel (supérieure ou égale à 12 grammes sur les urines de 24 heures) peut être exclue avec une valeur prédictive négative de 0,97 et une spécificité de 0,92. Une consommation excessive de sel (supérieure ou égale à 12 g sur les urines de 24 heures) peut être suspectée avec une valeur prédictive positive de 0,65 et une sensibilité de 0,88.

<% else %>

Le questionnaire que vous allez remplir concerne vos habitudes alimentaires actuelles. Il permet de dépister une consommation excessive de sel dans votre alimentation.

Vous êtes 

> Homme > Femme

<% corrige msg1 %>
Votre poids actuel est  : ?

Kg

<% corrige msg2 %>
Votre taille actuelle est  : ?

cm

<% corrige msg2b %>
Dans une journée habituelle, votre consommation totale (ensemble des repas de la journée) pour le pain et/ou biscotte et/ou viennoiserie  est de :

> 0 à 3 morceaux/parts par jour (moins de 160 g)
> 4 ou 5 morceaux/parts par jour (160 à 200 g)

> 6 morceaux/parts ou plus par jour (240 g ou plus)

<% corrige msg3 %>
Dans une semaine habituelle, vous consommez du fromage (à l’exclusion du fromage blanc) au cours de 7 repas ou plus par semaine :

> Oui > Non

<% corrige msg4 %>
Dans une semaine habituelle, vous consommez de la charcuterie (à l’exclusion du jambon blanc) au cours de 2 repas ou plus :

> Oui > Non

<% corrige msg5 %>
Dans une semaine habituelle vous consommez 2 fois ou plus, un des plats suivants : pizza, quiche, burger, crevettes, poisson fumé, olives, graines salées, chips, plat cuisiné par un traiteur :

> Oui > Non

<% corrige msg6 %>
Pour la préparation de certains plats vous utilisez des bouillons cubes ou des rehausseurs de goût en poudre :

> Oui > Non

<% corrige msg7 %>

 

 

<% end if %>