Jump to content
Fórum Script Brasil
  • 0

Formulario de Exclusão de Mailing


Guest A Metallica

Question

Guest A Metallica

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/[email protected]

A Aplicação só tem que verificar se este e-mail já foi incluido é redireciondo pra um pagina com uma mensagem "O e-mail [email protected] 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 [email protected]

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 to post
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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 to post
Share on other sites
  • 0
'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 to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      148691
    • Total Posts
      644531
×
×
  • Create New...