CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 12 08:22:19

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

Pb de test d'erreur

Poser une question dans le forum ou lancer une discussion

Pb de test d'erreur

jeudi 12 février 2004 à 13:14:40 | Pb de test d'erreur

bibifoc_35

1 msg

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>

<body lang=FR style='tab-interval:35.4pt'>

<div class=Section1>

<div id=calque1>

<div align=center>

<table class=MsoNormalTable border=0 cellpadding=0 width=646 style='width:484.5pt;
mso-cellspacing:1.5pt;mso-padding-alt:0cm 0cm 0cm 0cm'>
<tr style='mso-yfti-irow:0'>
<td style='padding:0cm 0cm 0cm 0cm'>
 Civ 
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<SELECT NAME="civ">
<OPTION VALUE="M">M
<OPTION VALUE="Mme">Mme
<OPTION VALUE="Mlle">Mlle
</SELECT>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<o:p> </o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<o:p> </o:p>
</td>
</tr>
<tr style='mso-yfti-irow:1'>
<td style='padding:0cm 0cm 0cm 0cm'>
Nom * :<o:p></o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<INPUT TYPE="text" SIZE="18" NAME="nom" border=0>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
 Prenom
* :<o:p></o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<INPUT TYPE="text" SIZE="18" NAME="prenom" border=0>
</td>
</tr>
<tr style='mso-yfti-irow:2'>
<td style='padding:0cm 0cm 0cm 0cm'>
Adresse
* :<o:p></o:p>
</td>
<td colspan=3 style='padding:0cm 0cm 0cm 0cm'>
<INPUT TYPE="text" SIZE="71" NAME="adr" border=0>
</td>
</tr>
<tr style='mso-yfti-irow:3'>
<td style='padding:0cm 0cm 0cm 0cm'>
Code
postal * :<o:p></o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<INPUT TYPE="text" MAXLENGTH="5" SIZE="18" NAME="cp"
border=0>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
 Ville
* :<o:p></o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<INPUT TYPE="text" SIZE="18" NAME="ville" border=0>
</td>
</tr>
<tr style='mso-yfti-irow:4'>
<td style='padding:0cm 0cm 0cm 0cm'>
Adresse
E-Mail* :<o:p></o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<INPUT TYPE="text" SIZE="18" NAME="adremail" border=0>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
 Profession :<o:p></o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<INPUT TYPE="text" SIZE="37" NAME="prof" border=0>
</td>
</tr>
<tr style='mso-yfti-irow:5'>
<td style='padding:0cm 0cm 0cm 0cm'>
Vous
êtes un professionnel du voyage : 
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<SELECT NAME="profavion">
<OPTION VALUE="oui">Oui
<OPTION VALUE="non">Non
</SELECT>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<o:p> </o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<o:p> </o:p>
</td>
</tr>
<tr style='mso-yfti-irow:6'>
<td style='padding:0cm 0cm 0cm 0cm'>
Vous
prenez l'avion pour:
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<SELECT NAME="avion">
<OPTION SELECTED VALUE="vacances">Vacances
<OPTION VALUE="affaires">Affaires
</SELECT>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<o:p> </o:p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<o:p> </o:p>
</td>
</tr>
<tr style='mso-yfti-irow:7;mso-yfti-lastrow:yes'>
<td colspan=4 style='padding:0cm 0cm 0cm 0cm'>
 <INPUT TYPE="submit" value="envoyer" >
</td>
</tr>
</table>

</div>

* : champs obligatoires <o:p></o:p>

</div>

<div id=calque2>

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

 <center>
<center>

</div>

</div>
<%
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
%>
<body >
<body>
</HTML>

d'avance merci

vendredi 13 février 2004 à 00:07:17 | Re : Pb de test d'erreur

fabrice69

1109 msg

1344 msg CS

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

lundi 1 mars 2004 à 21:31:45 | Re : Pb de test d'erreur

arthas

1 msg

3 msg CS

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

Cette discussion est classée dans : pb, erreur, formulaire, and, test

Répondre à ce message

Sujets en rapport avec ce message

Pb avec un formulaire en VBscript (menu deroulant). [ par warrax ] Bonjour,Je commence la programmation en asp et vbscript et je n'arrive pas a reccuperer la valeur de ma selection d'un menu deroulant dans une fonctio PB de requette Insert Into [ par Psyko ] Voici le bout de code de ma page :DB.execute("Insert Into dreamcast (Titre, Region, Support, Interface, Prog, Nbr, Tps, Tracks, Taille, Fichiers, Doss Pb dans un script [ par onha ] Bonjour a vous tousJ'ai récupéré un script sur un site qui permet de modifier un enregistrement dans une base de donnée.Etant débutant je ne sais pas Pb dans un script [ par onha ] Bonjour a vous tousJ'ai récupéré un script sur un site qui permet de modifier un enregistrement dans une base de donnée.Etant débutant je ne sais pas pb requete maj [ par adel ] Bonjour à tous,J'ai un problème lors d'un appel dans un fichier asp à une requête de mise à jour.Le message d'erreur est le suivant :Microsoft OLE DB erreur '80040e14'?????????????????? [ par glopglop ] Dans ma requete suivante on me dit :)en trop dans.......rsAffichedispo.Open "Select nom_dispo,domaine, public,nomnature, montant,date_depos,condition erreur '80040e14'????????? c'est quoi ca!!! [ par glopglop ] Dans ma requete suivante on me dit :)en trop dans.......rsAffichedispo.Open "Select nom_dispo,domaine, public,nomnature, montant,date_depos,condition Encore pb avec Phifji et sans dsn [ par pi0up51 ] Encore des pbs : je met ce code -ci (et la déconnection à la fin de la page que je veux) et euh :Set cnn = Server.CreateObject("ADODB.Connection")sCon pb sondage!!!! [ par ronando ] J'ai un pb avec un sondage...tout ce passe bien lorsque celui ci est inserer ds une page HTML mais des qu'il est dans une page ASP il bug ..avec comme SVP FORMULAIRE ou est mon erreur [ par jeffi ] Salut, je reçoi ce message :"Microsoft VBScript runtime error '800a01a8' Object required: '' /monfichier.asp, line 62et voici mon script asp à la suit

Livres en rapport

Testing Embedded Software

Java 2 Programmer Exam Cram (310-035)

Access 2002. Fonctions avancées

Test logiciel en pratique

Tous les livres pour Pb, Erreur, Formulaire, And, Test

Nos sponsors

Derniers Blogs

SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc

[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

Forum

RE : FORMULAIRE par Megafan

CONNEXION APPLICATION ET XMLRPC JOOMLA par hodhod158

FORMULAIRE par ap24dp

PROBLèME DE CONNEXION à UNE BADE DE DONNéES par sowlas

MANIPULER LES MENU DYNAMIC par parad15

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning