Header("Expires: ".GMDate("D, d M Y H:i:s")." GMT");
if (!IsSet($Kontakt)) $Kontakt = "@";
?>
EVLM Central Portal - CONSULTATION REQUEST FORM
|
EUROPEAN VIRTUAL LABORATORY
OF MATHEMATICS |
Leonardo da Vinci Project
No. 2006 - SK/06/B/F/PP - 177436 |
CONSULTATION REQUEST
if (!$rnd || $rnd=="") $rnd=rand(128,256);
$zobrazitFormular = true; //
if ($Odeslano){ //
if ($Meno=="" ||
($Profesia=="" && $IProfesia=="") ||
($Country=="" && $ICountry=="") ||
$Kontakt=="" ||
($Subject=="" && $ISubject=="") ||
$Oblast=="" ||
$Otazka=="" ||
$Podpis!=$rnd) {
echo "All requested information must be supplied in order to receive answer.
Please, fill in the e-Form again.
";
}
else { //
$zobrazitFormular = false;
echo "Thank You for Your consultation request
";
echo "
You will receive the answer as soon as possible to indicated e-mail address.
";
//*********************
$sprava = "Nickname : $Meno\n\n" .
"Profession : $Profesia - $IProfesia\n\n" .
// "Professia - specify order : $IProfesia\n\n" .
"Country : $Country - $ICountry\n\n" .
"E-mail : $Kontakt\n\n" .
"Mathematical subject : $Subject - $ISubject\n\n" .
"Consultation topic : $Oblast\n\n" .
"Consultation request : $Otazka\n\n" .
"Date and Time of the e-Form Submission: " .
Date("d.m.Y H:i:s");
//
$boundary = '-----=' . md5( uniqid ( rand() ) );
//
$message = "--".$boundary."\n";
$message .= "Content-Type: text/plain; charset=windows-1250\n";
$message .= "Content-Transfer-Encoding: 8bit\n\n";
$message .= $sprava."\n\n";
//
$headers = "From: Web server EVLM \n";
switch ($Subject)
{
case("FM"):
$to .= "d.lawson@coventry.ac.uk\n";
break;
case("AL"):
$to .= "gerardo@usal.es\n";
break;
case("CA"):
$to .= "olivia.gill@ul.ie\n";
break;
case("DE"):
$to .= "benedikt@kma.zcu.cz\n";
break;
case("GE"):
$to .= "velichova@evlm.stuba.sk\n";
break;
case("MC"):
$to .= "matkp@uni-miskolc.hu\n";
break;
case("NA"):
$to .= "snegocheva@yahoo.com\n";
break;
case("OP"):
$to .= "snegocheva@yahoo.com\n";
break;
case("PS"):
$to .= "d.lawson@coventry.ac.uk\n";
break;
case("HM"):
$to .= "matkp@uni-miskolc.hu\n";
break;
default:
$to .= "velichova@evlm.stuba.sk\n";
}
$headers .= "Reply-To:" .$Kontakt. "\n";
$headers .= "Bcc: velichova@evlm.stuba.sk\n" . "MIME-Version: 1.0\n" . "Content-Type: multipart/related; boundary=\"$boundary\"";
$headers .= "MIME-Version: 1.0\n" . "Content-Type: multipart/related; boundary=\"$boundary\"";
//**********************
//if (@Mail("daniela.velichova@stuba.sk", "Consultation_request", $message , $headers))
if (@Mail($to , "Consultation_request", $message , $headers))
echo "
\n";
else
echo "Pri odoslaní správy došlo k chybe.
\n";
}
}
else //
// echo "Správa:
";
?>