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

Ce site au démarrage

begin process at 2010 02 10 10:36:28

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

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

Forum

RAFRAîCHISSEMENT D'UNE PAGE PARAMéTRABLE PAR L’UTILISATEUR par Ouistyty

URL REWRITING par hudon77

SUITE à MIS A JOUR BASE SQL ERREUR D'ANALYSE XML : AUCUN éLéMENT TROUVé par jes8la

PROBLEME POSITIONNEMENT ENTRE IE ET FIREFOX par talmai

RE : GRIVEVIEW / REPEATER / AUTRE : REMPLISSAGE ASYNCHRONE AVEC AJAX par Donpi

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5