<%
if request.querystring("contador") <> "" then
ID = Campo(request.querystring("contador"))
ConectarBD Conn, "boletim.mdb"
Conn.execute ("update tb_boletim set lidos = lidos + 1 where id = " & ID & " ")
FecharBD Conn
end if
%>
<%
if request.querystring("excluir") <> "" then
ID = Campo(request.querystring("excluir"))
if isnumeric(ID) = false then ID = 0
ConectarBD Conn, "boletim.mdb"
CriarRecordset rs
rs.open "select * from tb_maladireta where id = " & ID & " ", Conn, 1, 1
if (not rs.bof) and (not rs.eof) then
nome = ucase(rs("nome"))
if rs("status") = true then mensagem = "Seu E-mail já havia sido excluído de nosso Mailing!"
if rs("status") = false then mensagem = "Seu E-mail foi excluído com êxito de nosso Mailing!"
Conn.execute ("update tb_maladireta set status = true where id = " & ID & " ")
else
nome = "CADASTRO INVÁLIDO!"
mensagem = "Seu E-mail não consta em nosso banco de dados."
end if
FecharRecordset rs
FecharBD Conn
%>
PREZADO <%= nome %>,
<%= mensagem %>
Você não mais receberá nossas newsletters e materiais promocionais.
