170 lines
3.4 KiB
HTML
Executable File
170 lines
3.4 KiB
HTML
Executable File
<HTML>
|
||
<SCRIPT LANGUAGE="JavaScript">
|
||
|
||
function Verif_Lock()
|
||
{
|
||
Preciser_Text = document.Formulaire.Preciser.value;
|
||
|
||
if ( Preciser_Text != "" )
|
||
{
|
||
document.Formulaire.Autre.checked = true;
|
||
}
|
||
else
|
||
{
|
||
document.Formulaire.Autre.checked = false;
|
||
}
|
||
}
|
||
|
||
function Controle_Champs()
|
||
{
|
||
Compteur = 0;
|
||
Resultat_Bool = document.Formulaire.elements[ Compteur ].checked;
|
||
|
||
while ( ( Compteur < 2 ) && ( Resultat_Bool == false ) )
|
||
{
|
||
Compteur++;
|
||
Resultat_Bool = document.Formulaire.elements[ Compteur ].checked;
|
||
}
|
||
|
||
if ( Resultat_Bool == false )
|
||
{
|
||
alert ( "Vous devez entrer votre civilité");
|
||
return false;
|
||
}
|
||
|
||
Val = "abcdefghijklmnopqrstuvwxyz -";
|
||
Nom_Val = document.Formulaire.Nom.value;
|
||
if ( Nom_Val == "" )
|
||
{
|
||
alert ("Vous devez entrer votre nom !");
|
||
document.Formulaire.Nom.focus();
|
||
return false;
|
||
}
|
||
|
||
Nom_Val = Nom_Val.toLowerCase();
|
||
Long = Val.length;
|
||
for ( i = 0; i < Long; i++)
|
||
{
|
||
Lettre = Nom_Val.charAt( i );
|
||
Num_Index = Val.indexOf( Lettre );
|
||
if ( Num_Index == -1 )
|
||
{
|
||
alert ("Votre nom ne doit contenir que des Lettres !");
|
||
document.Formulaire.Nom.focus();
|
||
return false;
|
||
}
|
||
}
|
||
|
||
Prenom_Val = document.Formulaire.Prenom.value;
|
||
if ( Prenom_Val == "" )
|
||
{
|
||
alert ("Vous devez entrer votre prénom !");
|
||
document.Formulaire.Prenom.focus();
|
||
return false;
|
||
}
|
||
|
||
Prenom_Val = Prenom_Val.toLowerCase();
|
||
Long = Val.length;
|
||
for ( i = 0; i < Long; i++)
|
||
{
|
||
Lettre = Prenom_Val.charAt( i );
|
||
Num_Index = Val.indexOf( Lettre );
|
||
if ( Num_Index == -1 )
|
||
{
|
||
alert ("Votre prénom ne doit contenir que des Lettres !");
|
||
document.Formulaire.Prenom.focus();
|
||
return false;
|
||
}
|
||
}
|
||
|
||
Email_Val = document.Formulaire.E_Mail.value;
|
||
Num_Index = Email_Val.indexOf( '@' );
|
||
if ( Num_Index == -1 )
|
||
{
|
||
alert ("Votre E-Mail doit contenir le symbole @ !");
|
||
document.Formulaire.E_Mail.focus();
|
||
return false;
|
||
}
|
||
}
|
||
</SCRIPT>
|
||
<BODY BGCOLOR="#ffffff" LINK="#00BE00" VLINK="#0000BE">
|
||
<P>
|
||
<HR>
|
||
<CENTER>
|
||
<H2>
|
||
FORMULAIRE CLIENT
|
||
</H2>
|
||
</CENTER>
|
||
<P>
|
||
<HR>
|
||
<P>
|
||
<P>
|
||
<P>
|
||
|
||
<FORM NAME="Formulaire" ACTION =Resultat_Formulaire.html METHOD="GET" onSubmit="return Controle_Champs()">
|
||
|
||
<CENTER>
|
||
|
||
<TABLE BORDER = 1>
|
||
<TR>
|
||
<TD>
|
||
<H5>Votre civilité :</H5>
|
||
</TD>
|
||
<TD>
|
||
<INPUT TYPE=RADIO NAME = "Civilite" VALUE = "Mlle" >Mlle
|
||
<INPUT TYPE=RADIO NAME = "Civilite" VALUE = "Mme" >Mme
|
||
<INPUT TYPE=RADIO NAME = "Civilite" VALUE = "M" >M
|
||
</TD>
|
||
</TR>
|
||
<TR>
|
||
<TD>
|
||
<H5>Votre nom :</H5>
|
||
</TD>
|
||
<TD>
|
||
<INPUT TYPE=TEXT NAME="Nom" SIZE=30 MAXLENGTH=30>
|
||
</TD>
|
||
</TR>
|
||
<TR>
|
||
<TD>
|
||
<H5>Votre prenom :</H5>
|
||
</TD>
|
||
<TD>
|
||
<INPUT TYPE=TEXT NAME="Prenom" SIZE=30 MAXLENGTH=30>
|
||
</TD>
|
||
</TR>
|
||
<TR>
|
||
<TD>
|
||
<H5>Votre E-Mail :</H5>
|
||
</TD>
|
||
<TD>
|
||
<INPUT TYPE=TEXT NAME="E_Mail" SIZE=30 MAXLENGTH=30>
|
||
</TD>
|
||
</TR>
|
||
<TR>
|
||
<TH ROWSPAN = 3><H5>Vous vous intéréssez à :</H5>
|
||
<TD>
|
||
<INPUT TYPE="CHECKBOX" NAME="JavaScript" VALUE="True" ALIGN=Left>JavaScript
|
||
</TD>
|
||
</TR>
|
||
<TR>
|
||
<TD>
|
||
<INPUT TYPE="CHECKBOX" NAME="Java" VALUE="True" ALIGN=Left>Java
|
||
</TD>
|
||
</TR>
|
||
<TD>
|
||
<INPUT TYPE="CHECKBOX" NAME="Autre" VALUE="True" ALIGN=Left>Autre à préciser : <INPUT TYPE="TEXT" NAME="Preciser" VALUE="" MAXLENGTH=20 SIZE=15 onBlur="Verif_Lock()">
|
||
</TD>
|
||
</TR>
|
||
|
||
|
||
|
||
<TH COLSPAN = 2><INPUT TYPE="submit" VALUE="Envoyer">
|
||
</TABLE>
|
||
</CENTER>
|
||
</FORM>
|
||
<P>
|
||
<P>
|
||
|
||
</BODY>
|
||
</HTML>
|