Problema con enviar.php

[xarmagedonx]

Hola, tengo un problema con el archivo enviar.php, cuando se envia el formulario nunca llega al email, y antes llegaba, pero ahora no funciona.

Les dejo el codigo (el email lo cambie para no hacer spam ni nada):

Código:

<?php
 
function form_mail($sPara, $sAsunto, $sTexto, $sDe)
 
{
 
$bHayFicheros = 0;
 
$sCabeceraTexto = "";
 
$sAdjuntos = "";
 
if ($sDe)$sCabeceras = "From:".$sDe."\n";
 
else $sCabeceras = "";
 
$sCabeceras .= "MIME-version: 1.0\n";
 
foreach ($_POST as $sNombre => $sValor)
 
$sTexto = $sTexto."\n".$sNombre." = ".$sValor;
 
foreach ($_FILES as $vAdjunto)
 
{
 
if ($bHayFicheros == 0)
 
{
 
$bHayFicheros = 1;
 
$sCabeceras .= "Content-type: multipart/mixed;";
 
$sCabeceras .= "boundary=\"--_Separador-de-mensajes_--\"\n";
 
$sCabeceraTexto = "----_Separador-de-mensajes_--\n";
 
$sCabeceraTexto .= "Content-type: text/plain;charset=iso-8859-1\n";
 
$sCabeceraTexto .= "Content-transfer-encoding: 7BIT\n";
 
$sTexto = $sCabeceraTexto.$sTexto;
 
}
 
if ($vAdjunto["size"] > 0)
 
{
 
$sAdjuntos .= "\n\n----_Separador-de-mensajes_--\n";
 
$sAdjuntos .= "Content-type: ".$vAdjunto["type"].";name=\"".$vAdjunto["name"]."\"\n";;
 
$sAdjuntos .= "Content-Transfer-Encoding: BASE64\n";
 
$sAdjuntos .= "Content-disposition: attachment;filename=\"".$vAdjunto["name"]."\"\n\n";
 
$oFichero = fopen($vAdjunto["tmp_name"], 'r');
 
$sContenido = fread($oFichero, filesize($vAdjunto["tmp_name"]));
 
$sAdjuntos .= chunk_split(base64_encode($sContenido));
 
fclose($oFichero);
 
}
 
}
 
if ($bHayFicheros)
 
$sTexto .= $sAdjuntos."\n\n----_Separador-de-mensajes_----\n";
 
return(mail($sPara, $sAsunto, $sTexto, $sCabeceras));
 
}
 
//email
 
if (form_mail("[email protected]", "Añadir sitio web",
 

"Los datos introducidos en el formulario son:\n\n", $_POST[Email]))
 
echo "Su formulario ha sido enviado con exito, sera redireccionado en unos segundos. <meta http-equiv='refresh' content='2; url=index.php' >";
 
?>

Muchas gracias!