<% '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) 'Grava e-mail no banco de dados abredb.Execute("INSERT INTO newsletter (datacad, email) VALUES ('"&date&"', '"&strEmail&"');") abredb.Close set abredb = Nothing%>
>

<%=strLg154%>

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

>

:: <%=strLg153%> ::