<% on error resume next %> <%=nomeloja%> - <%=slogan%> <% 'Valida o e-mail strEmail = Request.querystring("email") If strEmail = "" Or instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then%>
>


><%=strLg152%>


>
:: <%=strLg153%> :: <% response.end end if set abredb = Server.CreateObject("ADODB.Connection") abredb.Open(StringdeConexao) '*******************************************************************************| 'ARQUIVO ALTERADO POR: HENRIQUE_METASUPRI EM 15/01/2004 ÀS 10:11h | ' IMPEDE DUPLICIDADE DE E-MAILS CADASTRADOS PARA NEWSLETTER | '_______________________________________________________________________________| 'http://www.metasupri/eshop | henrique@metasupri.com.br| '******************************************************************************* IF request.queryString("Opcao") = "1" Then 'Grava e-mail no banco de dados abredb.Execute("INSERT INTO newsletter (datacad, email) VALUES ('"&date&"', '"&strEmail&"');") abredb.Close set abredb = Nothing if err.number <> 0 then%>
>

Oooops!

Talvez você já tenha cadastrado este e-mail em nosso site.

>

:: <%=strLg153%> ::

<%else%>
>

<%=strLg154%>

<%=strLg155%> <%=nomeloja%>!

>

:: <%=strLg153%> ::

<%end if%> <% ELSE '----------------------------------- '############################## '### --- ROGERIO SILVA --- ### '############################## '----------------------------------- 'APAGA e-mail no banco de dados abredb.Execute("DELETE FROM newsletter WHERE EMAIL = '"&strEmail&"'") abredb.Close set abredb = Nothing%>
>

<%=strLg268%>

<%=strLg269%> <%=nomeloja%>!

>

:: <%=strLg153%> ::

<%END IF%>