Para entrar em contato com R. Thibes, por favor preencha o formulário abaixo.
';
$acknow='
Mensagem Enviada com Sucesso!
Sua mensagem foi enviada com sucesso! Aguarde contato em breve por email.
';
if (isset($_POST["name"]))
$seenform=$_POST["seenform"]; else $seenform="n";
if ($seenform != "y"):
print $form;
else :
// Verificar se o formulario foi preenchido corretamente:
$error_flag="n";
// verificar preenchimento do nome:
if (strlen($name) < 3):
$formerro="nome";
print "*Por favor preencha seu $formerro no formulário abaixo! ";
$error_flag="y";
endif;
// verificar preenchimento do email:
if ((strlen($email) < 4) or (! @eregi('^[0-9_a-z]+'.'@'.'([0-9a-z]+\.)+'.'([0-9a-z]){2,4}$',$email))) :
$formerro="email";
print "*Por favor preencha seu $formerro no formulário abaixo! ";
$error_flag="y";
endif;
// verificar preenchimento da mensagem
if (strlen($message) < 7) :
$formerro="texto";
print "*Por favor preencha seu $formerro no formulário abaixo! ";
$error_flag="y";
endif;
if ($error_flag=="y"):
print $form;
print "*Por favor preencha seu $formerro no formulário acima!
";
print "
Mensagem ainda não enviada.
";
else:
$erro="
Erro no servidor, mensagem não enviada. Por favor tente novamente mais tarde. ";
$hour=date('l jS \of F Y h:i:s A');
$msize=strlen($message);
if ($msize > 50000) die("Erro: Texto excessivamente longo");
$linha="----------------------------------------------------------";
if ($fd = fopen("messages.txt","a")):
fwrite($fd,$hour."\n") or die($erro);
fwrite($fd,"Nome: ".$name."\n") or die($erro);
fwrite($fd,"Email: ".$email."\n") or die($erro);
if ($msize > 50000) :
fwrite($fd,"Texto excessivamente longo\n".$linha."\n");
die("Erro: Texto excessivamente longo");
endif;
fwrite($fd,"Mensagem:\n".$message."\n") or die($erro);
fwrite($fd,$linha."\n");
print $acknow;
//enviar email confirmando recebimento da mensagem:
$subject="Contato Thibes";
$headers="From nobody@thibes.org";
$contents="
Prezado Sr(a) $name,
sua mensagem proveniente de thibes.itapetinga.net foi recebida.
Aguarde resposta em breve.
Att.
R. Thibes
http://thibes.itapetinga.net";
mail($email,$subject,$contents);
else:
print $erro;
endif;
fclose($fd);
endif;
endif;
?>
A forma mais eficiente e rápida de contato é através do formulário acima que gerará uma pronta resposta. No entanto, se preferir contato via postal, segue abaixo o endereço.