Adicionar a Meu favorito

Friday, 15 de February de 2008

Voltando depois de mais de ano, vou recomeçar com um sistema de newsletter
muito utilizado nos sites atualmente, como boletim, novidades, etc.

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

Email:

assinar cancelar

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

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,

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, DEUS abençõe a todos.

Dúvidas: [email protected]

Outros artigos

Assine o Feed desta categoria

• Envio de Email por AspMail, AspEmail e CDonts - 05/06/2007
• Configurar Dreamweaver 8 para rodar ASP no IIS - 21/05/2007
• Configurando um servidor IIS local - 11/05/2007
• Configurando o PWS (Windows 98) - 04/01/2007
• Ver mais...

Comentários do artigo [Novo comentário]