Files
resatennis_tyroltenn/www/marchand/html/logos/index2.html

170 lines
3.4 KiB
HTML
Executable File
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
<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&eacute :</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&eacute;r&eacute;ssez &agrave; :</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 &agrave; pr&eacute;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>