<%ENVOY =
Left(UCase(Request("ENVOYER")),5)
If ENVOY = "ENVOY" Then
for each item in request.form
if request.form(item) = "" then
alert = "Tous les champs doivent avoir une réponse valide"
end If
Next
If alert = "" Then
alert = "Tous les champs sont remplis"
End IF
End IF%> <html>
<head>
<title>Validation des champs d'un formulaire</title>
</head>
<body <%If alert <> ""
then%>onload="alert('<%response.write alert%>')" <%End IF%>>
<form method="post"
action="validation.asp" name="Validation">
<p>Nom <input type="text" name="Nom" size="20">
</p>
<p>Prénom <input type="text" name="Prenom"
size="20"></p>
<p>Age <input type="text" name="Age" size="20">
</p>
<p><input type="submit" name="ENVOYER"
value="Envoyer"> <input type="reset" name="Submit2"
value="Effacer"> </p>
</form>
</body>
</html> |
On récupèrela
valeur du bouton envoyer
Test de validation du formulaire
On parcourstous les champs du formulaire
Si un champs esst vide
On déclare une varaible contenant un message d'alerte
Fin du test
Fin de la boucle
Si la varaible alert n'existe pas, tous les champs sont remplis
on déclare donc une varaible le mentionnant
Fin du test
Fin du test
Dans le body on charge une fenêtre d'alrte conenant le message d'alerte si il existe (le
message).
Déclaration d'un formulaire banal
|