Cadastro De Email

fhermel · Setembro 24, 2004

Ai galerinha do ASP

Da uma olhada estou fazendo code para cadastro de email, mais eu quero que o usuário tenha a possibilidade de excluir o seu email então criei um FORM com um campo email e um botão RADIO de nome del para que o usuário posa excluir , mais claro não esta funcionando será que rola uma dica ?!?!?

agradeço

<%
Dim email, mostra, sem_nada, del
email=request.form("email")
del=request("radio")

if email = "" then
sem_nada="<a href=javascript:self.close()><font face=verdana size=1 color=black><b>:.ensira seu email...</b></font></a>"
else
accessdb="db/hemails"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")

if del = "radio" then
sql= "delete * from estailer where email = "&email&""
response.write("excluido")
else
end if

sql = "select * from estailer where email = '"&email&"'"
rs.Open sql, cn

if rs.eof then
ate_o_fim="No"
end if
rs.close

if ate_o_fim = "No" then
SQL = "INSERT INTO estailer (email)"
sql = sql & "values ('"&email&"')"
'Response.Write sql
rs.Open sql, cn
mostra="ok"
end if
%>
<center>
<% if ate_o_fim <> "No" then %>
Seu E-Mail já consta em nossos registros. Obrigado!<br>
<% else %>
Obrigado pelo seu email !<br><br>
<% end if %>
<%=sem_nada%>
<% end if %>
<%= mostra %>

Valeuzis

dark0 · Setembro 24, 2004

e aí, beleza?

Bem, não esta funcionando.. mas porque? dá erro? não dá?

Veja aqui:

if del = "radio" then
sql= "delete * from estailer where email = "&email&""
response.write("excluido")
else
end if

como você pode ver nesse trecho, você esta apenas criando o SQL. Mas não esta executando ele!

E ainda, porque colocaste o ELSE, se não tem nada nele?

T+

fhermel · Setembro 25, 2004

Ai galerinha

olha o code esta funcionando um Newsletter de barbada bem simples

default.asp

<html>
<head>
	<title></title>
</head>
<body>
<form name="main3" action="email.asp" target="Ajex" method="post" onsubmit="Ajex()">
<input onfocus="click4()" type="text" name="email" value="Seu e-mail aqui" style="{font-family:verdana;font-size:8pt;color: White;font-style: oblique;background-color:#000066;border: 0px;}"><br>
<input type="radio" name="subs" value="0" checked>ADD<br>
<input type="radio" name="subs" value="1">DEL<br>
<input type="submit" name="submit" value="Enviar"  style="{font-family:verdana;font-size:8pt;color: White;font-style: oblique;background-color:#000066;border: 0px;}">
</form>
</body>
</html>

email.asp

<%
Dim email, sem_nada, subs
email=request.form("email")
subs=request("subs")
if email = " " then
sem_nada="<a href=javascript:self.close()><font face=verdana size=1 color=black><b>:.ensira seu email...</b></font></a>"
else
'response.write subs
accessdb="subs"
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
set rs = server.createobject("ADODB.Recordset")

sql = "select * from emails where email = '"&email&"'"

rs.Open sql, cn

if rs.eof then
ate_o_fim="No"
end if
rs.close

if subs="1" then
SQL = "DELETE * FROM emails where email = '"&email&"'"
'Response.Write sql
rs.Open sql, cn
delete="deletado o email"
end if

if ate_o_fim = "No" then
SQL = "INSERT INTO emails (email)"
sql = sql & "values ('"&email&"')"
'Response.Write sql
rs.Open sql, cn
mostra="enserido o email"
end if
%>
<center>
<% if ate_o_fim <> "No" then %>
Seu E-Mail já consta em nossos registros. Obrigado!<br>
<% else %>
Obrigado pelo seu email !<br><br>
<% end if %>
<%= sem_nada %><br>
<%= mostra %><br>
<%= delete %><br>
<% end if %>
<html>
<head>
<link rel="stylesheet" href="style1.css" type="text/css" media="screen">
<LINK href="s_a.css" type=text/css rel=STYLESHEET>
</head>
<body marginwidth="0" marginheight="0" leftmargin="0" topmargin="0">
<br>
<a href="javascript:self.close()">
<font face=verdana size=1 color=black><b>
:. Fechar...
</b></font></a></center>
</body>
</html>
</center>

valeu a ajuda

Entrar

Cadastro De Email

Pergunta

fhermel

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

fhermel

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades