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

<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

<% 
' 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).

Gente, novamente tudo de bom e fiquem com Deus !

Alex Araújo

Publicado em 17 de dezembro de 2008, em ASP. Adicione o link aos favoritos. Deixe um comentário.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: