Pb de test d'erreur

Signaler
Messages postés
1
Date d'inscription
jeudi 12 février 2004
Statut
Membre
Dernière intervention
12 février 2004
-
Messages postés
6
Date d'inscription
jeudi 6 mars 2003
Statut
Membre
Dernière intervention
30 mai 2006
-
Bonjour
Je débute en asp.
J'ai crée un formulaire et la confirmtion dns la même page (c'est une obligation).

Quand je lance la page, pas de probleme a pars que le test d'erreur s'execute imédiatement alors qu'il devrais ce lancer que quand je valide.

voici mon script :

<%
Option Explicit
On Error Resume Next

Dim varciv
Dim varnom
Dim varprenom
Dim varadr
Dim varcp
Dim varville
Dim varadremail
Dim varprof
Dim varprofavion
Dim varavion

varciv = Request.Form("civ")
varnom = Request.Form("nom")
varprenom = Request.Form("prenom")
varadr = Request.Form("adr")
varcp = Request.Form("cp")
varville = Request.Form("ville")
varadremail = Request.Form("adremail")
varprof = Request.Form("prof")
varprofavion = Request.Form("profavion")
varavion = Request.Form("avion")

Sub Envoi_Mail()
Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail")
' création objet CDONTS
Mailer.From = varadremail
' email exped
Mailer.To = "prog@ocean-airways.com"
' email dest
Mailer.Subject = "Inscription"
' titre
Mailer.Body = varciv & " " & varnom & " " & varprenom & " " & varadr & " " & varcp & " " & varville & " " & varadremail & " " & varprof & " " & varprofavion & " " & varavion
' corps
Mailer.Send
' on envoie le tout
Set Mailer=Nothing
End Sub

%>

<HTML>
<HEAD>
<TITLE>Formulaire</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<FORM name="formulaire" method="POST">

<!--
#calque2 { position: absolute; top: 134px; left: 385px; width: 428px; height: 51px; visibility: visible; display: block }
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1"/>
</o:shapelayout></xml><![endif]-->
</head>

Civ ,
<SELECT NAME="civ">
<OPTION VALUE="M">M
<OPTION VALUE="Mme">Mme
<OPTION VALUE="Mlle">Mlle
</SELECT>,
,
,

----

Nom * :,
,
Prenom
* :,
,

----

Adresse
* :,
,

----

Code
postal * :,
,
Ville
* :,
,

----

Adresse
E-Mail* :,
,
Profession :,
,

----

Vous
êtes un professionnel du voyage : ,
<SELECT NAME="profavion">
<OPTION VALUE="oui">Oui
<OPTION VALUE="non">Non
</SELECT>,
,
,

----

Vous
prenez l'avion pour:,
<SELECT NAME="avion">
<OPTION SELECTED VALUE="vacances">Vacances
<OPTION VALUE="affaires">Affaires
</SELECT>,
,
,

----

* : champs obligatoires

Pour être informé de l'ouverture
prochaine de notre site officiel, merci de bien vouloir remplir ce formulaire :

<center>
<center>

<%
if (varnom <> "") and (varprenom <> "") and (varadr <> "") and (varcp <> "") and (varville <> "") and (varadremail <> "") and (varprof <> "") then
Call Envoi_Mail
response.write ("Merci de vous être inscrit sur notre Mailing list")
else
response.write("Veuillez remplir les champs obligatoires.

")
end if
%>

</HTML>

d'avance merci

2 réponses

Messages postés
1765
Date d'inscription
jeudi 12 octobre 2000
Statut
Modérateur
Dernière intervention
11 décembre 2013
6
Il faut mettre un INPUT invisible (HIDDEN) avec une valeur que tu testes en premier.
Si la valeur est OK tu fais la partie liée à la validation du formulaire sinon c que ton form n'est pas posté donc tu as l'affichage du fomulaire.

Romelard Fabrice (Alias F___)
Messages postés
6
Date d'inscription
jeudi 6 mars 2003
Statut
Membre
Dernière intervention
30 mai 2006

:approve) Arthas

il faut d'abord tester si il a appuyer sur le bouton envoit si oui faire les testes:

if Request.form("submit")<>"" then
'les test de validations

else le forlmulaire