Olá! Friday, 29 de March de 2024.



Dicas CódigoFonte.net
Friday, 15 de February de 2008

Sistema de Newsletter em ASP

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]

Comentários do artigo [Novo comentário]

Nenhum comentário, seja o primeiro a comentar.
Para adicionar um comentário você deve efetuar o login


Gostou do CódigoFonte.net? Quer indicar a um amigo?
Preencha os campos a seguir.
Seu Nome:
Seu E-mail:
E-mail de seu Amigo:


CodigoFonte.net » Meu Mural » Competiva - Criação de Sites » Todos os Direitos Reservados © 2002/2010