Forum « Probleme important sur un formulaire »

Forum « Programmation ASP » (archives)

Probleme important sur un formulaire

Envoyé: 12 février 2004, 4h38 par ripley

Je débute en ASP et j'ai un pb sur mon formulaire. Le formulaire et la confirmation doivent être dans la même page. ça marche presque, mais :
apres avoir saisie mes info, quand je valide, c'est la popup d'erreur qui apparais; si je revalide imediatement apres, c'est bon

voici mon code

<%
Option Explicit
On Error Resume Next

Sub Envoi_Mail()
Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail")
' création objet CDONTS
Mailer.From = varadremail
' email exped
Mailer.To = ""
' 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

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

<HTML>
<HEAD>
<TITLE>Formulaire</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<FORM name="formulaire" action="formulaire.asp" 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'>
<p class=MsoNormal> Civ<b><span style='font-size:7.5pt;font-family:Arial'> </span></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><SELECT NAME="civ">
<OPTION VALUE="M">M
<OPTION VALUE="Mme">Mme
<OPTION VALUE="Mlle">Mlle
</SELECT></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><o:p> </o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><o:p> </o:p></p>
</td>
</tr>
<tr style='mso-yfti-irow:1'>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'>Nom * :</span></b><o:p></o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><INPUT TYPE="text" SIZE="18" NAME="nom" border=0></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'> Prenom
* :</span></b><o:p></o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><INPUT TYPE="text" SIZE="18" NAME="prenom" border=0></b></p>
</td>
</tr>
<tr style='mso-yfti-irow:2'>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'>Adresse
* :</span></b><o:p></o:p></p>
</td>
<td colspan=3 style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><INPUT TYPE="text" SIZE="71" NAME="adr" border=0></b></p>
</td>
</tr>
<tr style='mso-yfti-irow:3'>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'>Code
postal * :</span></b><o:p></o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><INPUT TYPE="text" MAXLENGTH="5" SIZE="18" NAME="cp"
border=0></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'> Ville
* :</span></b><o:p></o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><INPUT TYPE="text" SIZE="18" NAME="ville" border=0></b></p>
</td>
</tr>
<tr style='mso-yfti-irow:4'>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'>Adresse
E-Mail* :</span></b><o:p></o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><INPUT TYPE="text" SIZE="18" NAME="adremail" border=0></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'> Profession :</span></b><o:p></o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><INPUT TYPE="text" SIZE="37" NAME="prof" border=0></b></p>
</td>
</tr>
<tr style='mso-yfti-irow:5'>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'>Vous
êtes un professionnel du voyage : </span></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'><SELECT NAME="profavion">
<OPTION VALUE="oui">Oui
<OPTION VALUE="non">Non
</SELECT></span></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><o:p> </o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><o:p> </o:p></p>
</td>
</tr>
<tr style='mso-yfti-irow:6'>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:7.5pt;font-family:Arial'>Vous
prenez l'avion pour:</span></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><SELECT NAME="avion">
<OPTION SELECTED VALUE="vacances">Vacances
<OPTION VALUE="affaires">Affaires
</SELECT></b></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><o:p> </o:p></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><o:p> </o:p></p>
</td>
</tr>
<tr style='mso-yfti-irow:7;mso-yfti-lastrow:yes'>
<td colspan=4 style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal align=right style='text-align:right'> <INPUT TYPE="submit" value="envoyer" Onclick="javascript:popup();"></b></p>
</td>
</tr>
</table>

</div>

<p><i><span style='font-size:7.5pt'>* : champs obligatoires </span><o:p></o:p></i></p>

</div>

<div id=calque2>

<p class=MsoNormal align=center style='text-align:center'><b><span
style='font-size:10.0pt;font-family:Arial'>Pour être informé de l'ouverture
prochaine de notre site officiel, merci de bien vouloir remplir ce formulaire :</span></b></p>

</div>

</div>
<SCRIPT language="JavaScript" type="text/javascript">

function popup() {
// ouvre une fenetre sans barre d'etat, ni d'ascenceur
w=open("",'popup','width=400,height=200,toolbar=no,scrollbars=no,resizable=yes');
w.document.write("<HTML><HEAD><TITLE>Confirmation</TITLE></HEAD>");

<%
if (varnom <> "") and (varprenom <> "") and (varadr <> "") and (varcp <> "") and (varville <> "") and (varadremail <> "") and (varprof <> "") then
Call Envoi_Mail
%>
w.document.write("Merci de vous être enregistré sur notre mailing liste.<BR><BR>");
<%
else
%>
w.document.write("Il manque certaines informations vous concernant.<BR><BR>");
<%
end if
%>
w.document.write("<A HREF='JavaScript:window.close();'>Fermer la popup</A>");
w.document.write("</BODY></HTML>");
w.document.close();
}
</SCRIPT>

<body >
<body>
</HTML>

D'avance Merci