Sujet Précédent Sujet Suivant

Pb de test d'erreur

bibifoc_35 Messages postés 1 Date d'inscription jeudi 12 février 2004 Statut Membre Dernière intervention 12 février 2004 - 12 févr. 2004 à 13:14
cs_arthas Messages postés 6 Date d'inscription jeudi 6 mars 2003 Statut Membre Dernière intervention 30 mai 2006 - 1 mars 2004 à 21:31

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">


</style>

</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

A voir également:

Pb de test d'erreur
Erreur d'execution 9 ✓ - Forum Visual Basic 6
Sockets de test ✓ - Forum C / C++ / C++.NET
Test de non regression - Forum VB.NET
Erreur d'exécution 424 ✓ - Forum Visual Basic
Erreur 424 "Objet requis" ✓ - Forum Visual Basic 6

2 réponses

Réponse 1 / 2

cs_fabrice69 Messages postés 1765 Date d'inscription jeudi 12 octobre 2000 Statut Membre Dernière intervention 11 décembre 2013 5
13 févr. 2004 à 00:07

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___)

Réponse 2 / 2

cs_arthas Messages postés 6 Date d'inscription jeudi 6 mars 2003 Statut Membre Dernière intervention 30 mai 2006
1 mars 2004 à 21:31

: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

Discussions similaires

Erreur d’exécution 424 : objet requis

erreur d'execution 9

verifier la validité d'un nom de domaine en php

erreur d'execution '9'

Erreur d'exécution '9' : l'indice n'appartient pas à la sélection

Votre réponse

Discussions similaires