Remover email, ONLINE

[marcelocardoso 6]

Olá irmãos e amigos....

 

Estou aqui para mostrar a vocês um código que chama se quando é clicado num email recebido para a desistencia de assinatura de newsletter.... ok chamado de remover_email.asp.

 

Só porque nunca tinha feito algo parecido, está me dando erro quando clico nele. ok

Vejam meu código completo:

<!--#include file="http://www.site.com.br/inc/conexao.asp" --><%'Recuperando oque foi escrito no formulário RemoverEMAIL_ID	   = Request.QueryString("id") RemoverEMAIL_MAIL	 = Lcase(Request.QueryString("email")) 'Mudando as variaveis, para melhor segurança dos dados Desativar_ID	 = RemoverEMAIL_ID Desativar_EMAIL  = RemoverEMAIL_MAIL Desativar_UPDATE = 0 'Selecionamos os dados do banco de dados e verificamos se confirma os dados com o do formulario SET VERIFICANDO = ObjCX.Execute("SELECT * FROM Newsletter WHERE ID="& Desativar_ID &" AND NewsletterEmail='"& Desativar_EMAIL &"'") %><%'Vericamos se existe o email no banco de dados, senão apresentamos abaixo  IF VERIFICANDO.EOF THEN	 response.write "<link href=""http://www.site.com.br/manager/css.css"" rel=""stylesheet"" type=""text/css"" />"	 response.write "<table width=""90%"" height=""90%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"	 response.write "  <tr>"	 response.write "	<td><table width=""90%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"	 response.write "	  <tr>"	 response.write "		<td><div align=""left""><a href=""http://www.site.com.br"" target=""_parent""><img src=""http://www.site.com.br/site_imagens/imagem_remove_email.gif"" width=""154"" height=""89"" border=""0"" /></a><br />"	 response.write "		  <br />"	 response.write "		  <br />"	 response.write "		  <br />"	 response.write "		  <span class=""TEXTO-DICAS1"">Seu endereço de email não pode ser deletado, pois ele não existe em nossa base de dados.</span></div></td>"	 response.write "	  </tr>"	 response.write "	</table></td>"	 response.write "  </tr>"	 response.write "</table>"	 Response.End  END IF%><%'Cadastrando dados na tabela de controle de acessos antes de entrar no sitema de administração   SET DELETAR = ObjCX.Execute("DELETE FROM Newsletter WHERE ID = '"& Desativar_ID &"'")'Redirecionamos após efetuação da verificação		 response.write "<link href=""http://www.site.com.br/manager/css.css"" rel=""stylesheet"" type=""text/css"" />"	 response.write "<table width=""90%"" height=""90%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"	 response.write "  <tr>"	 response.write "	<td><table width=""90%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"	 response.write "	  <tr>"	 response.write "		<td><div align=""left""><a href=""http://www.site.com.br"" target=""_parent""><img src=""http://www.site.com.br/site_imagens/imagem_remove_email.gif"" width=""154"" height=""89"" border=""0"" /></a><br />"	 response.write "		  <br />"	 response.write "		  <br />"	 response.write "		  <br />"	 response.write "		  <span class=""TEXTO-DICAS1"">Seu email foi deletado com sucesso de nossa base de dados.<br />"	 response.write "		  </span> Se desejar cadastrar-se novamente, solicitamos  que acesse nosso site e insira  seu endereço de email novamente. </div></td>"	 response.write "	  </tr>"	 response.write "	</table></td>"	 response.write "  </tr>"	 response.write "</table>"	 Response.End%>

Está me apresentando isso na tela:

 

SELECT * FROM SISTEMA_Newsletter WHERE ID=20 AND NewsletterEmail='marmmc@pop.com.br'

Só aparece isso e não faz nada????

Alguém pode me ajudar neste script....

 

Pois para mim estava correto, mas eu não sei muito... estou aprendendo...

 

Há me esqueci: ( na URL, está passando isso )

 

http://www.site.com.br/remove_email.asp?em...id=20

[jrcardozo 4]

sugestão:1° se o ID da tabela for chave primária você não precisa usar outra condição pois a chave primária não se repete quando ela é única(a menos que seja composta, aí pode ter outra condição)...creio que o email também não se repita, então não precisa nem fazer o select2º passe pelo method post os dados do formulário, no caso o e-mail digitado...se você fizer por method get é só trocar o id na url pra detonar outro email, e não é isso que deve ser feito3º na página que recupera os dados utilize Desativar_EMAIL=request.form("nomeTextEmail")4º execute o sql "SET DELETAR = ObjCX.Execute("DELETE FROM Newsletter WHERE NewsletterEmail= '"& Desativar_EMAIL &"'")"5º faça uma verificação caso o email não exista para redirecionar. Não esqueça de fazer a verificação de email digitadoEspero ter ajudado ;)

[marcelocardoso 6]

Olá Jonathan!

 

 

Será que não é abusar muito do amigo, mas poderia me fazer um exemplo, pois se tem uma coisa que ainda me perco legal é com o uso de verificações com IF, pode me auxiliar aí com um exemplo????

 

E quanto ao Request.Form, não tenho como usar, pois na newsletter que receberei, lá tem um link que já passa o email e o id, portanto tem que ser com request, ou request.Querystring....

 

Ou só se tem outro jeito mais seguro...

 

Me auxilie aí... Por gentileza.

 

 

Obrigado!

 

Deus abençoe!.....

[jrcardozo 4]

cara...poso tentar te dar umas orientadas no esquema...posta o código do teu formulário onde a pessoa digita o email

 

vou tentar te explicar o IF

 

estrutura

 

IF<condicao>THEN

 

'executa o código

 

ELSE

 

'executa outro código

 

END IF

 

traduzindo para o portugues "vulgar":

 

SE <condicao> for verdadeira ENTÃO

 

'executa o código

 

SENÃO a <condicao> é falsa

 

'executa outro código

 

FIM

 

sendo que <condicao> é onde você compara uma ou mais variaveis com algum valor

 

veja o exemplo

 

variavel=1

 

if varaivel=1 then

 

response.write("a variavel é igual a 1")

 

else

 

response.write("a variavel é diferente de 1")

 

end if

 

 

 

esse é o básico. Você pode fazer um IF dentro de outro, usar o ELSEIF para verificar quando apenas uma condição é verdadeira e também o IIF ou até trocar por SELECT CASE dependendo da estrutura. Dê uma lida nesse artigo http://www.criarweb.com/artigos/251.php?manual=12

 

Vulgarmente falando, uma estrutura de condição seria como se você estivesse dirigindo um carro e você identifica uma placa e se você quer ir para praia deve ir pela pista da esquerda, se vai pro campo então vai para a direita...ou seja quando a sua verdade(ir para a praia ou campo) for igual as condições da estrada então você pode seguir adiante. A logica é a mesma para qualquer linguagem, muda pouco na estrutura...lembrando que podemos fazer vários tipos de verificações, quando for igual,diferente,maior,menor, maior e igual,menor e igual e tantas outras mais

 

Boa sorte, qualquer coisa posta ai ;)

[marcelocardoso 6]

Vou tentar e qualquer coisa te retorno! okObrigado e até mais.....

[marcelocardoso 6]

Olá Jonathan!

 

Aqui estou novamente, estou primeiramente postando aqui para você se estou certo:

Se não tiver, acrescente algumas observações suas. ok

 

CODIGO:

<%RESPONSE.BUFFER = TRUE %><!--#include file=".asp" --><HTML><HEAD><TITLE>Remover Email</TITLE><link href="config-css_2.css" rel="stylesheet" type="text/css" /></HEAD><BODY><%'Recuperando dados digitados no FORM EnderecoDeEmail = Trim(LCase(Request("email"))) IF Len(EnderecoDeEmail) < 1 THEN'Fazemos um Select no Banco de Dados para verificarmos o Email do Cliente SQL = "SELECT * FROM Newsletters WHERE Email = '"& EnderecoDeEmail &"'"		SET Verifica = ObjCX.EXECUTE(SQL)		 IF Verifica.EOF THEN%><center>  <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">	<tr>	  <td><center>		<span class="TEXTO-TITULO2-BOLD"><br />		<img src="site_imagens/imagem_remove_email.gif" width="154" height="89" />		<br />		<br />		<br />		<br />		<br />		<br />		<br />		</span><span class="TEXTO-DICAS1">Seu <font color="#0060BF"><b> e-mail</b></font> não existe em nossa base de dados!<br />		Obrigado pela atenção.		</span>	  </center></td>	</tr>  </table></center><%		   ELSE%><% 'FAREMOS SE O EMAIL FOR CORRETO, IREMOS DELETA-LO DO BANCO DE DADOS DeletarEmail = ObjCX.Execute("DELETE * FROM Newsletter WHERE Email = "& EnderecoDeEmail &"")%><center>  <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">	<tr>	  <td><center>		<p><span class="TEXTO-TITULO2-BOLD"><br />			<img src="site_imagens/imagem_remove_email.gif" width="154" height="89" /> <br />			<br />			<br />			<br />			<br />			<br />			<br />			Seu endereÇo de email foi deletado com sucesso!<br />			<br />		</span>Caso desejar novamente retornar a receber novidades<br /> 		em seu email,		  solicitamos que retorne em<br /> 		  nosso site e recadastre-se. </p>		</center>		<br></td>	</tr>  </table></center><%END IFEND IF%><%'Destruiremos os objetos do servidor	 DeletarEmail.Close SET DeletarEmail = Nothing	 Verifica.Close SET Verifica = Nothing%></BODY></HTML>

Fico aguardo de sua ajuda ok????

[marcelocardoso 6]

Jonathan, Dark e Salgado e colegas...Seria correto este meu código para deletar emails, ou seja; para descadastrar emails de lista de novidades?????Obrigado!

[marcelocardoso 6]

Colegas!

 

Este ultimo código que postei a vocês como não obtive retorno, testei ele mesmo assim, e oque acontece:

Quando passo pela URL, o seguinte:

 

www.site.com.br/remove_email.asp?email=maisdedeus@pop.com.br

 

Ele até chama a página, mas não DELETA do banco, e também ao invés de me mostrar a mensagem que deletou com sucesso, ou a mensagem de caso o email não existir, não ME MOSTRA NADA....

 

Apenas mostra uma tela em branco, e pelo brownser abri o CODIGO FONTE, e me aparece somente isso?

 

 

<HTML>

<HEAD><TITLE>Remover Email</TITLE>

<link href="css.css" rel="stylesheet" type="text/css" />

</HEAD>

<BODY>

 

 

Podem me ajudar, pois tenho muitas dificuldas em montar casos ???

 

Me ajudem por gentileza, pois este que fiz não está fazendo oque deveria.

 

 

 

Obrigado!

 

</BODY>

</HTML>

[marcelocardoso 6]

Ei Pessoal!Alguém AÍIIIIIII