}
 if (empty($erro)) {
     try {
         $lS = new ListaPacoteMailings();
         $lS->condicoes('', $_GET['pacote'], ListaPacoteMailings::ID);
         $s = $lS->listar();
         $s->titulo = $_POST['titulo'];
         $lS->alterar($s);
         $con = BDConexao::__Abrir();
         if (!empty($_POST['email'])) {
             $con->executar("INSERT INTO " . Sistema::$BDPrefixo . "mailing_pacotes_emails(pacote, email, nome, cidade, estado, datanasc) VALUES('" . $_GET['pacote'] . "','" . $_POST['email'] . "','" . $_POST['nome'] . "','" . $_POST['cidade'] . "','" . $_POST['uf'] . "','" . DataHora::__Create($_POST['datanasc'])->mostrar("Ymd") . "')");
         }
         if (!empty($_FILES['arquivo']['name'])) {
             if (eregi("xls", $_FILES['arquivo']['name'])) {
                 $data = new Excel();
                 $data->setOutputEncoding('CPa25a');
                 $data->read($_FILES['arquivo']['tmp_name']);
                 for ($i = 1; $i <= $data->sheets[0]['numRows']; $i++) {
                     $con->executar("SELECT * FROM " . Sistema::$BDPrefixo . "mailing_pacotes_emails WHERE pacote = '" . $_GET['pacote'] . "' AND email = '" . $data->sheets[0]['cells'][$i][1] . "'");
                     if ($con->getTotal() == 0) {
                         $con->executar("INSERT INTO " . Sistema::$BDPrefixo . "mailing_pacotes_emails(pacote, email) VALUES('" . $_GET['pacote'] . "','" . $data->sheets[0]['cells'][$i][1] . "')");
                     }
                 }
             } elseif (eregi("txt", $_FILES['arquivo']['name'])) {
                 $f = file($_FILES['arquivo']['tmp_name']);
                 for ($i = 0; $i < count($f); $i++) {
                     $con->executar("SELECT * FROM " . Sistema::$BDPrefixo . "mailing_pacotes_emails WHERE pacote = '" . $_GET['pacote'] . "' AND email = '" . $f[$i] . "'");
                     if ($con->getTotal() == 0) {
                         $con->executar("INSERT INTO " . Sistema::$BDPrefixo . "mailing_pacotes_emails(pacote, email) VALUES('" . $_GET['pacote'] . "','" . $f[$i] . "')");
                     }
                 }