=1){
if (strtoupper(substr(PHP_OS,0,3)=='WIN')) {
$eol="\r\n";
} elseif (strtoupper(substr(PHP_OS,0,3)=='MAC')) {
$eol="\r";
} else {
$eol="\n";
}
# To Email Address
$emailaddress=$destinatario[0];
# Message Subject
$emailsubject="[Encuesta Electronica]".date("Y/m/d H:i:s");
# Message Body
$body="Opcion: ".$opciones[($HTTP_POST_VARS['opcion']-1)][0].$eol."Explicacion:".$HTTP_POST_VARS['textarea'].$eol;
# Common Headers
$headers .= 'From: Encuesta '.$eol;
$headers .= 'Reply-To: Encuesta '.$eol;
$headers .= 'Return-Path: Encuesta '.$eol; // these two to set reply address
$headers .= "Message-ID: <".$now." TheSystem@".$_SERVER['SERVER_NAME'].">".$eol;
$headers .= "X-Mailer: PHP v".phpversion().$eol; // These two to help avoid spam-filters
# Boundry for marking the split & Multitype Headers
$mime_boundary=md5(time());
$headers .= 'MIME-Version: 1.0'.$eol;
$headers .= "Content-Type: multipart/related; boundary=\"".$mime_boundary."\"".$eol;
$msg = "";
# Setup for text OR html
$msg .= "Content-Type: multipart/alternative".$eol;
# Text Version
$msg .= "--".$mime_boundary.$eol;
$msg .= "Content-Type: text/plain; charset=iso-8859-1".$eol;
$msg .= "Content-Transfer-Encoding: 8bit".$eol;
$msg .= "This is a multi-part message in MIME format.".$eol;
$msg .= "If you are reading this, please update your email-reading-software.".$eol;
$msg .= "+ + Text Only Email from Genius Jon + +".$eol.$eol;
# HTML Version
$msg .= "--".$mime_boundary.$eol;
$msg .= "Content-Type: text/html; charset=iso-8859-1".$eol;
$msg .= "Content-Transfer-Encoding: 8bit".$eol;
$msg .= $body.$eol.$eol;
# Finished
$msg .= "--".$mime_boundary."--".$eol.$eol; // finish with two eol's for better security. see Injection.
# SEND THE EMAIL
ini_set(sendmail_from,'from@me.com'); // the INI lines are to force the From Address to be used !
mail($emailaddress, $emailsubject, $msg, $headers);
ini_restore(sendmail_from);
//echo $emailaddress."\n".$emailsubject."\n".$msg."\n".$headers;
}?>

|
NOVEDADES
$valuenovedades)
echo "".$valuenovedades[0]." ".$valuenovedades[1]."
";
?>
|
|
 |
Encuesta electrónica
=$titulo[0]?>
|
|
 |