<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rs = Server.CreateObject("ADODB.Recordset") if request("enviar") = "Confirmar exclusão" then on error resume next email = replace(trim(request("email")),"'","") sql = "SELECT Cod, ColEmail FROM bancoEmail WHERE ColEmail = '" & email &"'" Set rs = conSQL.Execute(sql) if not rs.EOF then sql = "DELETE FROM bancoEmail WHERE Cod="&rs(0)&"" conSQL.Execute(sql) if err.number=0 then msg = "Remoção realizada com sucesso!" else msg = "Problemas com a Remoção. Entre em contato!" end if else msg = "E-mail inválido!" end if end if %>

EXCLUSÃO DE RECEBIMENTO DE NEWSLETTER - PORTAL DE AUDITORIA Preencha o seu e-mail no campo abaixo. Você excluirá o e-mail de nossa newsletter. E-mail:   <%=msg%>

<% set conSQL=nothing Set rs = Nothing %>