Obrigado
<form name="subform" action="../boletim/boletim.asp?action=save" method="post" onsubmit="return submitit()" target="_self">
<div class="fonte01"><input type="radio" name="subs" value="1" checked>Adicionar
<input type="radio" name="subs" value="0">Remover</div>
<div align="center"><input type="Text" name="email" size=14 class="campo02" onBlur="if (!this.value) { this.value='E-mail'; ponto=0; }" onFocus="if (ponto == 0) { this.value=''; ponto=1; }" value="E-mail">
<input type="submit" name="submit" value=" Ok " class="but01">
<% response.buffer=true
dim useraction
dim conn
dim rs
dim sql
dim dsn
dim DownNumber
dim sql3
dim sql2
dim uemail
dim subs
useraction=request("action")
select case useraction
case "save"
Uemail=lcase(request.form("email"))
subs=request.form("subs")
dsn="DBQ=" & Server.Mappath("../banco/banco.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
sql = "select * from boletim where emails='"&Uemail&"'"
conn.open dsn
rs.open sql,conn
select case subs
'in case someOne wants to join the list
case "1"
if rs.bof and rs.eof then
sql2="insert into boletim(emails) values('"&Uemail&"')"
conn.execute(sql2)
response.write "<script>alert('Obrigado, seu e-mail foi enviado com sucesso')</script>"
else
response.write "<script>alert('Este e-mail já está cadastrado!')</script>"
end if
'in case someOne wants to unsubscribe
case "0"
if rs.bof and rs.eof then
response.write "<script>alert('Este e-mail não esta cadastrado')</script>"
else
sql2="delete from boletim where emails='"&Uemail&"'"
conn.execute(sql2)
response.write "<script>alert('Seu e-mail foi removido')</script>"
end if
end select
rs.close
set rs=nothing
end select %></form>
Edição feita por: alessancost, 18/06/2005, 13:40.
