Sistema de Newsletter em ASP

A princípio desenvolveremos duas páginas: NEWSLETTER.asp e NEWSLETTER_ENVIAR.asp

NEWSLETTER.ASP - terá o formulário com os dados dos usuário, nesse caso somente o e-mail.

Código

Código:

<form action="newsletter_enviar.asp" method="post" name="newsletter" onsubmit="return EnviarNewsletter();" >
  <table width="157" border="0" cellpadding="0" cellspacing="0">
       
    <tr>
      <td width="400%" height="27" colspan="2"><table width="100%" height="42" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="71%" height="33">Email:

            <input name="email" type="text" class="form" id="email" size="15"  />
            <input type="submit" name="Submit" value="ok" /></td>
          </tr>
       
      </table></td>
    </tr>
    <tr>
      <td height="22" colspan="2">
        <input name="opcao" type="radio" value="a" checked="checked" />
assinar
         
        <input name="opcao" type="radio" value="c" />
cancelar</td>
    </tr>
  </table>
</form>

Em seguida o NEWSLETTER_ENVIAR.APS - Página que envia os dados para o banco

Código

Código:

<%
' AQUI CONEXÂO COM O BANCO DE DADOS
' MySql

Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=servidor;"_
& " DATABASE=nomedatabase;"_
& "UID=usuario;PWD=senha;OPTION=3"

conn.CursorLocation = 3
conn.Open

'recebe os valores da NEWSLETTER.ASP
opcao=request("opcao")
email=request("email")

if opcao = "a" then
sql="INSERT INTO newsletter(email) VALUES ('" & email & "')"
else if opcao = "c" then
sql="DELETE FROM newsletter WHERE email = '" & email & "'"
end if

Set GRAVA = Server.CreateObject("ADODB.Recordset")
GRAVA.Open sql, conn

Set GRAVA = Nothing
conn.Close

response.wite "OK"
%>

EXPLICAÇÃO: Na página NEWSLETTER.ASP, existe o campo E-mail que será o e-mail do usuário para cadastrar no banco e receber as newsletter, também tem a opção dele ASSINAR, ou também CANCELAR a newsletter se quiser.

Na página de envio, fizemos o seguinte,

Código:

opcao=request("opcao") // Recuperamos a opção do usuário ASSINAR ou CANCELAR
email=request("email") // Recuperamos o e-mail para gravar no banco de dados

Fizemos uma condição: se opcao = "a" ele executa uma SQL para gravar o e-mail
se não, se opcao = "c" a SQL exclui o e-mail do banco.

Logo em seguida fechamos as conexões existentes e mostramos uma mensagem de OK para o usuário.

Não esqueça de que no banco de dados deverá existir os campos ID, e EMAIL (ou mais caso necessite).

É isso ae, espero ter ajudado.

Posteriormente vou mostrar como administramos os usuários e e-mails cadastrados para newsletter.

Abraço