Ir para conteúdo
Fórum Script Brasil
  • 0

Formulario de Exclusão de Mailing

Guest A Metallica

Perguntado por Guest A Metallica,

 Share

Pergunta

Guest A Metallica

Guest A Metallica

Postado
Postado

Tentei fazer ontem, mas nada, tem como vocês dá uma olhada neste codigo e vê onde estou errando,

acho que não é muito complexo,

ao clicar no link contendo Codigo e email

exemplo: http://www.crbasso.com.br/remover/modelode...@crbasso.com.br

A Aplicação só tem que verificar se este e-mail já foi incluido é redireciondo pra um pagina com uma mensagem "O e-mail fulando@gmail.com já esta no lista de exclusão"

se este e-mail não estiver fica na mesma pagina, para que o usuario possa responder porque esta solicitando a exclusão. e gravar o resultado e o e-mail.

se alguém puder me ajudar vou estar eternamente grato.

Obrigado e fico no aguardo.

se alguém preferir enviar algum arquivo por e-mail themetallicats@gmail.com

modelodeform.asp

<body>
<!--#INCLUDE file="conexao.asp"-->
<% 
'Abrindo a conexao
Call abre_conexao

varDATA = day(now())&"/"&month(now())&"/"&Year(now())
Dim varEMAIL, varCODIGO
Dim varFLGEXC
Dim motivo

varEMAIL = Request.QueryString("email")
varCODIGO = Request.QueryString("codigo")

varMOTIVO = cint(request.form("motivo"))
varOUTROMOTIVO = Ucase(cstr(request.form("outromotivo")))
varOUTROEMAIL = Ucase(cstr(request.form("outroemail")))

'TESTE DE CLAUSULA SELECT
    
'Buscando os dados no banco
if varTEXTO = "" then
    
    'Buscando o e-mail da pessoa no banco
    strEMAIL = "select * from EXCLUSAO where EMAIL = '"&varEMAIL&"' "
    set rsEMAIL = Conexao.Execute(strEMAIL)
    
    'Se não encontrar um E-mail válido no Banco
    if rsEMAIL.eof then
        'varTEXTO = "ELE NÃO ENCOTROU MAIS NO BANCO ESTE E-MAIL"
        'Verificando se o e-mail já foi excluido
         if rsEMAIL("EMAIL") = varEMAIL then
        varTEXTO = "<p>O e-mail <b>"&varEMAIL&"</b> já está excluso de nossa base de dados.</p><p>Devido à nossa programação de envio de e-mails, pode ser que você ainda esteja recebendo nossos informativos, mas, a partir da data de <b>"&rsEMAIL("DATA")&"</b> seu nome não consta em nenhum novo agendamento.</p><p>A CR Basso continua com sua missão, visando fortalecer competências empresariais e profissionais.</p>"
        
        'Redireciona p/ informar que e-mail já esta excluido
        'response.Redirect("http://www.crbasso.com.br")
    else
        varTEXTO = ""
        end if
    end if
end if

        'GRAVANDO E-MAIL NO BANCO
        request.QueryString("area") = "exclusao" then

        strINCLUIR = "insert into EXCLUSAO (DATA, EMAIL, CODIGO, FLGEXC, MOTIVO) values ('"&varDATA&"','"&varEMAIL&"','"&varCODIGO&"',1,'"&motivo&"')"
        set rsINCLUIR = Conexao.Execute(strINCLUIR)
        
        'redireciona para a pagina de agredecimento com um link para o site da CR BASSO
        response.Redirect("http://www.crbasso.com.br")
        
    'FIM TESTE DE CLAUSULA SELECT
    
Select Case motivo
Case 1 
    TxtMotivo = "Os e-mails recebidos não estavam de acordo com os meus interesses."
Case 2
    TxtMotivo = "Não tenho tempo para ler os e-mails que recebo diariamente."
Case 3
    TxtMotivo = "Já recebo e-mails da CR BASSO em outro endereço."
Case 4
    TxtMotivo = "Recebo da CR BASSO uma quantidade de e-mails maior do que considero aceitável."
Case 5
    TxtMotivo = "As mensagens estavam deixando minha caixa postal cheia."
Case 6
    TxtMotivo = "Outro motivo: "&varOUTROMOTIVO&""
Case 7
    TxtMotivo = "Desejo receber somente no endereço: "&varOUTROEMAIL&""
end Select

%>

<table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>imagens</td>
  </tr>
  <tr>
    <td>
    <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><div align="center"><strong><font color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=varTEXTO%></font></strong></div></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><p class="style2">Prezado(a)  Usu&aacute;rio(a),
              <em><font color="#0066CC" size="2" face="Verdana, Arial, Helvetica, sans-serif"><br />
              <%Response.Write (varEMAIL)%><br />
              <%Response.Write (varCODIGO)%>
              </font></em></p>
            <p class="style1">A  CR BASSO Consultoria, busca permanentemente&nbsp;melhorar as rela&ccedil;&otilde;es com seus  clientes e o p&uacute;blico potencial de seus servi&ccedil;os. Desta forma, enviamos  periodicamente &quot;news letters&quot; com o intuito de oferecer&nbsp;a todos,  op&ccedil;&otilde;es de aperfei&ccedil;oamento profissional.</p>
            <p class="style1">Se  nossa comunica&ccedil;&atilde;o por e-mail o(a) desagradou de alguma forma, lamentamos o  inconveniente, e agradecemos por sua aten&ccedil;&atilde;o.</p>
            <p class="style1">Ao  se descadastrar, voc&ecirc; n&atilde;o receber&aacute; mais e-mails com ofertas diferenciadas sobre  oportunidades de desenvolvimento profissional e gest&atilde;o organizacional. Para  saber mais sobre a CR BASSO, <u><a href="http://www.crbasso.com.br" target="_blank">clique aqui</a></u>.</p>
          <p class="style1">No  entanto, gostar&iacute;amos que indicasse abaixo o(s) motivo(s) de sua decis&atilde;o. <strong><u><br />
            <br />
            Sua resposta &eacute; opcional</u></strong> e nos  auxiliar&aacute; a aperfei&ccedil;oar ainda mais o relacionamento com nosso segmento de  atua&ccedil;&atilde;o.</p></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
  <tr>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td>
    <form action="modelodeform.asp?area=exclusao" id="exclusao" name="exclusao" method="post" class="exclusao">
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
         <tr>
          <td><span class="style2">Os  motivos para o meu cancelamento s&atilde;o:<u></u></span></td>
        </tr>
        <tr>
          <td width="662"><p class="style1">
            <input name="motivo" type="radio" value="1" />
            Os e-mails recebidos n&atilde;o estavam de acordo com os meus interesses.<br />
            <input name="motivo" type="radio" value="2" />  
            N&atilde;o tenho tempo para ler os e-mails que recebo diariamente.<br />
            <input name="motivo" type="radio" value="3" /> 
            J&aacute; recebo e-mails da CR BASSO em outro endere&ccedil;o.<br />
            <input name="motivo" type="radio" value="4" />
            &nbsp;Recebo da CR BASSO uma quantidade de e-mails maior do que considero  aceit&aacute;vel.<br />
            <input name="motivo" type="radio" value="5" />
            &nbsp;As mensagens estavam deixando minha caixa postal cheia.<br />
            <input name="motivo" type="radio" value="6" />
            Outro motivo:
            <input name="outromotivo" type="text" class="dados" id="outromotivo" size="80"/><br />
            <input name="motivo" type="radio" value="7" />
            Desejo receber somente no  endere&ccedil;o:  
            <input name="outroemail" type="text" class="dados" id="outroemail" size="50"/>
          </p>             </td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          </tr>
        <tr>
          <td>
          <input type="submit" name="Submit2" value="*Continuar Recebendo"/>
           <input type="submit" name="Submit" value="Confirmar a exclus&atilde;o" /></td>
        </tr>
        <tr>
          <td class="dados">* Ao clicar em "continuar recebendo" voc&ecirc; esta aceitando continuar recebendo nossa news letters.</td>
          </tr>
      </table>
        </form>
    </td>
  </tr>
</table>
</body>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
A Metallica

A Metallica

Postado
Postado

Esta incluindo automaticamente, e não esta verificando se esta na banco.

Na verdade este formulario é para que saibamos o motivo da sua exclusão, mas precisa ser verificado antes de aparecer a pagina o formulário se o email já esta na lista se o e-mail já esta na lista então ele já solicitou a exclusão.

Link para o comentário
Compartilhar em outros sites
  • 0
webdeveloper

webdeveloper

Postado
Postado
'Se não encontrar um E-mail válido no Banco

if rsEMAIL.eof then

'varTEXTO = "ELE NÃO ENCOTROU MAIS NO BANCO ESTE E-MAIL"

'Verificando se o e-mail já foi excluido

if rsEMAIL("EMAIL") = varEMAIL then 'Porque este If, se não encontrou o e-mail não tem como comparar

varTEXTO = "<p>O e-mail <b>"&varEMAIL&"</b> já está excluso de nossa base de dados.</p><p>Devido à nossa programação de envio de e-mails, pode ser que você ainda esteja recebendo nossos informativos, mas, a partir da data de <b>"&rsEMAIL("DATA")&"</b> seu nome não consta em nenhum novo agendamento.</p><p>A CR Basso continua com sua missão, visando fortalecer competências empresariais e profissionais.</p>"

'Redireciona p/ informar que e-mail já esta excluido

'response.Redirect("http://www.crbasso.com.br")

else

varTEXTO = ""

end if

'Cade o Else no caso do rsEMAIL retornar algo?

end if

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,4k
    • Posts
      652,1k
×
×
  • Criar Novo...