/*
SVP laissez ces commentaires. Merci !
Script de Recommandation version 1.0 créé par NewWorld-fr.Net
http://www.newworld-fr.net
Pour toute question : webmaster@newworld-fr.net
*/
include("config.php3");
if ($IncludeJS){
echo "function recommander(){
open('";
echo $AdresseScript;
echo "?link='+ location.href, 'blank', 'scrollbars=yes, width=340, height=370, status=no, menubar=no, location=no, resizable=no');
}";
if($TypeLien == "0"){
echo "document.write('$TexteLienRec')";
} else {
echo "document.write('')";
};
exit;
};
$noerror = "0";
if($action == "submit"){
$verif1 = ereg('^[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+' . '@' . '[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\.' . '[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+$', $vemail);
$verif2 = ereg('^[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+' . '@' . '[-!#$%&\'*+\\/0-9=?A-Z^_`a-z{|}~]+\.' . '[-!#$%&\'*+\\./0-9=?A-Z^_`a-z{|}~]+$', $semail);
if($vnom == ""){
$error1 = $RequiredMsg;
$noerror = "1";
}
if($vemail == "" || !$verif1){
$error2 = $RequiredMsg;
$noerror = "1";
}
if($semail == "" || !$verif2){
$error3 = $RequiredMsg;
$noerror = "1";
}
}
if($noerror == "0" && $action == "submit"){
$getip = $HTTP_X_FORWARDED_FOR;
if(!$HTTP_X_FORWARDED_FOR){
$getip = $REMOTE_ADDR;
};
$message = $message_perso;
$message .= "\n\nEnvoyé par : ";
$message .= $vnom;
$message .= " ( ";
$message .= $vemail;
if ($MsgAffIPExp == "1"){
$message .= " 1 ";
$message .= $getip;
};
$message .= " )";
$message .= "\n -------------------------";
$message .= "\nScript de recommandation v.1.0 créé par www.NewWorld-fr.net";
$message .= "\n Copyright 1998-2001 © NewWorld-fr.Net";
$message2 = "Une recommandation à été envoyée.\n\nPar : $vnom ( $vemail - $getip )\n\nÀ : $semail\n\n\nSon message : $message";
if($Hebergeur == "1"){
email("$WbmEmail", "$semail", "$MsgSujet", stripslashes($message));
if ($RcvCopie == "1"){
email("$WbmEmail", "$WbmFullEmail", "Recommandation envoyée", stripslashes($message2));
};
} else {
$headers .= "From: $vnom <$vemail>\n";
$headers .= "Reply-To: $vemail\n";
$headers .= "X-Sender: <$vemail>\n";
$headers .= "X-Mailer: NewWorld-fr.Net - Script de Recommandation\n";
$headers .= "Return-Path: <$vemail>\n";
mail("$semail", "$MsgSujet", stripslashes($message), $headers);
if ($RcvCopie == "1"){
mail("$WbmFullEmail", "Recommandation envoyée", stripslashes($message2), $headers);
};
}
$submitted = 1;
};
?>
echo $FenetreTexte3; ?>