37 lines
1017 B
Perl
Executable File
37 lines
1017 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
#script cgi d'identification du client en ligne, avant de passer sa commande
|
|
|
|
use DBI;
|
|
use CGI;
|
|
|
|
require "cgi-lib.pl";
|
|
|
|
$html = new CGI;
|
|
|
|
print $html->header;
|
|
|
|
print <<"EOM";
|
|
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE>Mauvaise identification du client</TITLE>
|
|
</HEAD>
|
|
<BODY BGCOLOR=\"\#FFFFFF\">
|
|
<spacer TYPE=\"block\" HEIGHT=25>
|
|
<CENTER><H3>Il semble que vous ayez oublié votre mot de passe !</H3></CENTER>
|
|
<HR SIZE=7 NO SHADE>
|
|
<P><P>
|
|
Contactez-nous par telephone au <B>02.96.05.82.72</B>, ou envoyer nous un email
|
|
avec votre adresse e-mail, le nom de votre société, et vos noms et prénom. <P>
|
|
Nous vous transmettrons alors votre mot de passe dans les plus brefs délais.<P>
|
|
<P>
|
|
notre email : <A HREF=\"mailto:tallagrand\@airtria.fr\">tallagrand\@airtria.fr</A>
|
|
<P>
|
|
<P>
|
|
Cliquez <A HREF=\"http://www.airtria.fr\">ici</A> pour retourner sur notre site.
|
|
<A HREF=\"http://www.airtria.fr\">
|
|
<IMG SRC=\"http://o2000/marchand/logos/airtrialos.jpg\" ALIGN=center>
|
|
</A>
|
|
EOM
|