Verification de champs en ASP

**pjdebray** · 30/01/2015, 12h29

Bonjour,

Je croise les doigts pour qu'un développeur en ASP tombe sur ce poste assez rapidement... (j'ai bon espoir)
Je vous explique mon problème:

Je viens de créer un formulaire de contact qui fonctionne sans problème. (bonne réception dans ma boite mail).

Maintenant, j'aimerai "sécuriser" mon formulaire en rendant les champs obligatoire. Mais rien à faire, je ne suis pas très doué en ASP. Pouvez-vous m'aider ?

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
<!-- #include file="../inc/fonction.asp" -->
 
<%
success = ""
erreurExists = false
dim erreur(8)
For cpt = 0 To 7
	erreur(cpt) = ""
Next
 
'on recupere les variable envoyé par le formulaire
If (not isnull(Request("action")) AND request("action") = "envoiMail") Then
 
	' Vérification du champ Civilité
	If isnull(request("civi")) Then
		erreurExists = true
		erreur(1) = "Veuillez renseigner votre civilité"
	Elseif request("civi") <> "Mme" AND request("civi") <> "Mlle" AND request("civi") <> "Mr" Then
		erreurExists = true
		erreur(2) = "La valeur du champ civilité n'est pas connue."
	End If
 
	' Vérification du champ Nom
	If isnull(request("nom")) Then
		erreurExists = true
		erreur(3) = "Veuillez renseigner votre nom."
	End If
 
		' Vérification du champ Prenom
	If isnull(request("prenom")) Then
		erreurExists = true
		erreur(4) = "Veuillez renseigner votre nom."
	End If
 
		' Vérification du champ email
	If isnull(request("email")) Then
		erreurExists = true
		erreur(5) = "Veuillez renseigner votre nom."
	End If
 
		' Vérification du champ telephone
	If isnull(request("telephone")) Then
		erreurExists = true
		erreur(6) = "Veuillez renseigner votre nom."
	End If
 
		' Vérification du champ institution
	If isnull(request("institution")) Then
		erreurExists = true
		erreur(7) = "Veuillez renseigner votre nom."
	End If
 
		' Vérification du champ Message
	If isnull(request("message")) Then
		erreurExists = true
		erreur(8) = "Veuillez renseigner votre nom."
	End If
 
 
 
	sujet="Message du formulaire formation continue"
	fromwho=request("fromwho")
	towho = "pierre-jean.debray@laposte.net"
	message= "Civilité:  " & request("civi") & "<br/>" &" Nom:  " & request("nom") &"<br/>" & " Prenom:  " & request("prenom") &"<br/>" &" Email:  " & request("fromwho") &"<br/>" &" Téléphone:  " & request("telephone") &"<br/>" &" Institution:  " & request("instit") &"<br/>" &" Message:  " & request("message")
	towho=request("towho")
	pieceattachee=request ("pieceattachee")
	response.write("YO")
 
	If erreurExists Then
		success = "Votre message a été envoyé."
		Call sendMail("toto@free.fr",towho,sujet,message,pieceattachee)
	End If
End If
%>
<style type="text/css">
 
</style>
 
<form name="envoiMail" action="envoiemail.asp" 
style="background-color:#abd2e0;padding:10px;width:280px;background-color:#abd2e0;
 padding:3px;
 border:1px solid #067da8;
 border-radius:5px;
 width:99%;
 box-shadow:1px 1px 2px #C0C0C0 inset;" method="post" >
<input type="hidden" name="action" id="action" value="envoiMail" />
<h2> Nous contacter</h2>
<table style="width:100%; padding: 5px 5px 5px 5px;">
<tr><td><b>Civilité</b></td><td><input type="radio" name="civi" value="Mme" /> Madame
<input type="radio" name="civi" value="Mlle" /> Mademoiselle
<input type="radio" name="civi" value="Mr" /> Monsieur</td></tr>
 
<tr><td>
	<b>Nom :</b></td><td> <input style="width:50%; padding:3px;border:1px solid #067da8;border-radius:5px;box-shadow:1px 1px 2px #abd2e0 inset;" type="text" name="nom"/>
	</td></tr><tr><td>
	<b>Prenom :</b></td><td> <input style="width:50%; padding:3px;border:1px solid #067da8;border-radius:5px;box-shadow:1px 1px 2px #abd2e0 inset;" type="text" name="prenom"/>
	</td></tr>
<tr><td>
	<b>Email :</b></td><td> <input style="width:50%; padding:3px;border:1px solid #067da8;border-radius:5px;box-shadow:1px 1px 2px #abd2e0 inset;" type="text" name="fromwho"/>
	</td></tr>
	<tr><td>
	<b>Téléphone :</b></td><td> <input style="width:50%; padding:3px;border:1px solid #067da8;border-radius:5px;box-shadow:1px 1px 2px #abd2e0 inset;" type="text" name="telephone"/>
	</td></tr>
	<tr><td><b>Institution :</b></td><td><input type="radio" name="instit" value="entreprise" /> Entreprise
<input type="radio" name="instit" value="Organisme de formation" /> Organisme de formation
</td></tr>
<tr><td>
	<b></b></td><td>
	</td></tr>
	<tr><td>
	<b></b></td><td> <input type="hidden" style="width:50%; padding:3px;border:1px solid #067da8;border-radius:5px;box-shadow:1px 1px 2px #abd2e0 inset;" type="text" name="pieceattachee" value="<b>Message du formulaire formation continue:</b>"/>
	</td></tr>
	<tr><td>
	<b></b></td><td> <input type="hidden" style="width:50%; padding:3px;border:1px solid #067da8;border-radius:5px;box-shadow:1px 1px 2px #abd2e0 inset;" type="text" name="towho" value="monmail@laposte.net" />
	</td></tr>
 
	<tr><td>
	<b>Message :</b></td><td> <textarea style="width:80%;height:200px; padding:3px;border:1px solid #067da8;border-radius:5px;box-shadow:1px 1px 2px #abd2e0 inset;" type="text" name="message">ICI VOTRE MESSAGE </textarea></td>
	</tr>
 
 
	<tr><td> </td><td>
	<input style=" width:100px;margin-left:5px;box-shadow:1px 1px 1px #067da8;cursor:pointer;" type="submit" name="ENVOI" value="ENVOI EMAIL"/></td></tr>
	</table>
 
</form>

Merci d'avance !

**pc75** · 30/01/2015, 13h32

Bonjour,

Envoyé par pjdebray

... Mais rien à faire ...

Ca veut dire quoi ?
Il se passe quoi ?
Tu voudrais que le script fasse quoi ?

Tu peux développer un peu, stp ?

**pjdebray** · 30/01/2015, 13h47

Et bien, le formulaire arrive à destination (il fonctionne bien) mais je n'arrive pas à rendre les champs obligatoire. J'ai tenté un truc avec If isnull:

Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 If isnull(request("prenom")) Then
		erreurExists = true
		erreur(4) = "Veuillez renseigner votre nom."
	End If

Mais après je suis bloqué... J'aimerai que, dans le cas ou un champs n'est pas remplis; le formulaire ne soit pas envoyé et que le formulaire indique quel champs n'est pas complété.

**pc75** · 30/01/2015, 13h58

Re,

Et si tu ajoutes cette seconde vérification :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If isnull(request("prenom")) or Len(Trim(request("prenom"))) = 0 Then

**pjdebray** · 30/01/2015, 14h19

Merci de ta réponse.

Ajouter comme ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If isnull(request("prenom")) or Len(Trim(request("prenom"))) = 0 Then
		erreurExists = true
		erreur(4) = "Veuillez renseigner votre nom."
	End If

Ca ne change rien... mon formulaire est envoyé, même si le champs prénom est vide... et aucune alerte pour dire que ce champs n'est pas remplit.

**pc75** · 30/01/2015, 14h23

Elle fait quoi ta fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Call sendMail("toto@free.fr",towho,sujet,message,pieceattachee)

**pjdebray** · 30/01/2015, 14h27

Elle envoie le message avec ces différentes info:

Expéditeur, destinataire, sujet du message, message et pièce jointe.

**pc75** · 30/01/2015, 14h36

Le code dans ton premier message correspond bien à envoiemail.asp ?

**pjdebray** · 30/01/2015, 14h37

oui c'est exact

**pc75** · 30/01/2015, 14h40

Si j'ai bien compris, s'il y a un champ vide, tu envoies un message, c'est ça ?

**pjdebray** · 30/01/2015, 17h42

Non, l'inverse, si les champs sont remplis ca envoie.

**ryan** · 30/01/2015, 20h07

Yop,

Tu initialises la variable erreurExists à false. En cas de champ vide, tu la passes à true. Donc, tu dois faire un test à la ligne 69 pour vérifier que cette variable est bien restée à false après la série de vérifications:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
If erreurExists = false Then
	success = "Votre message a été envoyé."
	Call sendMail("toto@free.fr",towho,sujet,message,pieceattachee)
End If

**roro06** · 06/02/2015, 19h37

Bonjour

1-Par principe, pour un formulaire, il vaut mieux utiliser Request.form (pour un formulaire en POST, ce qui est ton cas)
2-pour tester un champ vide, il "suffit" de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if Request.form("nom")="" then
...

Normalement ça doit suffire ...

**pjdebray** · 09/02/2015, 11h06

Ok, merci pour toutes vos réponses.

Donc, si j'ai bien compris le code doit donner ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
<%
success = ""
erreurExists = false
dim erreur(8)
For cpt = 0 To 7
	erreur(cpt) = ""
Next
 
'on recupere les variable envoyé par le formulaire
If (not isnull(Request("action")) AND request("action") = "envoiMail") Then
 
	' Vérification du champ Civilité
	if Request.form("nom")="" then
		erreurExists = true
		erreur(1) = "Veuillez renseigner votre nom"
	Elseif 
 
	sujet="Message du formulaire formation continue"
	fromwho=request("fromwho")
	towho = "mon@mail.net"
	message= "Civilité:  " & request("civi") & "<br/>" &" Nom:  " & request("nom") &"<br/>" & " Prenom:  " & request("prenom") &"<br/>" &" Email:  " & request("fromwho") &"<br/>" &" Téléphone:  " & request("telephone") &"<br/>" &" Institution:  " & request("instit") &"<br/>" &" Message:  " & request("message")
	towho=request("towho")
	pieceattachee=request ("pieceattachee")
 
If erreurExists = false Then
	success = "Votre message a été envoyé."
	Call sendMail("toto@free.fr",towho,sujet,message,pieceattachee)
End If
	End If
End If
%>

Merci d'avance !

**roro06** · 09/02/2015, 19h30

oui

Verification de champs en ASP

ASP

Discussions similaires

Partager

Partager