Introdução:

Com este tutorial irás aprender a fazer um sistema de newsletter. Usando ASP + Flash + Base de dados Access. Muito útil para manter os membros informados de actualizações do teu website, enviar notícias, etc...

Downloads:

Ficheiro Fla Tutorial em PDF

1. Criação dos ficheiros ASP:

Cria uma pasta num directório da tua máquina, e nomeia-a como "Newsletter".
Coloca dentro desta pasta todos os ficheiros que vamos criar neste tutorial.

Começamos por criar os ficheiros ASP.
No bloco de notas ("notepad") vamos inserir o seguinte código ASP:

<% Dim email, con, data_source, sql_insert, sql_check, rs email = Request("email") If Len(email) Then data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("mail.mdb") sql_check = "select email from users where email = '" & email & "'" sql_insert = "insert into users( email ) values ('" & email & "')" 'Abrir ligação Set con = Server.CreateObject("ADODB.Connection") con.Open data_source Set rs = con.Execute (sql_check, , 1) If rs.EOF Then con.Execute sql_insert End If 'fechar ligação con.Close Set con = Nothing End If %>

Este ficheiro deverá chamar-se "processo.asp", e irá receber as informações do SWF e enviá-las para a base de dados. Na linha email = Request("email"), o ficheiro está a fazer a ligação com o teu filme Flash.

Esta linha é que passa as informações vindas do ficheiro SWF para o ASP registrar um novo membro.

Crie outro ficheiro usando o bloco de notas, este ficheiro deverá chamar-se "apagar.asp". Coloca as informações abaixo neste ficheiro.

<% Dim email, con, data_source, sql_delete email = Request("email_apagar") sql_delete = "delete email from users where email = '" & email & "'" data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _ Server.MapPath("mail.mdb") Set con = Server.CreateObject("ADODB.Connection") con.Open data_source con.Execute sql_delete con.Close Set con = Nothing %>

Nota que a linha email = Request está presente novamente, sem ela, é impossível conseguir um bom resultado. Nota também que a 1º linha do script mudou de Dim email, con, data_source, sql_insert, sql_check, rs para Dim email, con, data_source, sql_delete.

No 1º ficheiro estamos a inserir (insert) um novo membro, e no segundo a apagar, (delete) um membro existente.

2. Criação da Base de dados Access:

Vamos criar uma base de dados na qual ficarão armazenados todos os membros registrados. Abre o Microsoft Access e cria uma nova tabela.

Dá o nome "Users" à tabela. Dentro desta tabela cria apenas duas colunas como mostra a imagem abaixo. Com os campo "ID" e "email".

Guarda a Base de dados com o nome "mail.mdb".


3. Criação do SWF.

Cria um novo filme e grava-o como "newsletter.fla".
Cria neste filme 4 layers, nomeia-as na seguinte ordem, de cima para baixo, "Botões", "Campos", "Respostas" e "Design".

Na 1ª frame da layer "Botões", cria um botão com o nome "Enviar", coloca este botão na parte inferior do filme. Cria mais uma "frame" nesta mesma "layer", podes usar a tecla F6 para copiar a mesma "frame" anterior. O botão da 2ª "frame" deve ficar no mesmo local do botão da 1ª "frame".

Nesta mesma "layer" coloca a "action" STOP na 1ª e na 2ª "frame".

stop ();

No botão "enviar" da 1ª "frame" coloca este "script":

on (release) {
if (email ne "") {
loadVariablesNum ("processo.asp", 0, "POST");
gotoAndStop (3);
}
}

Este "script" envia as informações digitadas na "Text Field", que ainda vamos criar, para o ficheiro "processo.asp".

No Botão da 2ª "frame" da mesma "layer", coloca praticamente o mesmo script porém a informação vem de outra "Text Field" e vai para outro ficheiro, "apagar.asp".

on (release) {
if (email_apagar ne "") {
loadVariablesNum ("apagar.asp", 0, "POST");
gotoAndStop (4);
}
}

4. Criação das "Text Fileds" dinâmicas:

Na 1ª "frame" da "layer" "campos", cria uma "Text Field" dinâmica com o formato retangular. com as seguintes propriedades:

Na segunda "frame" da "layer" "campos" cria outra "Text Field" de entrada. Pode-se copiar "CTRL + C" o primeiro campo criado, e colá-lo "CTRL + SHIFT + V" na segunda "frame". Mudando-se apenas o valor da variável para "email_apagar".

Lembra-te que as "Text Fields" devem ter o mesmo formato e estar na mesma posição.

5. Criação das Respostas:

Na "layer" "resposta" na 3ª "frame" coloca no centro do ecrã uma resposta parecida com esta
E-mail Registado com sucesso.

Na 4ª "frame" desta "layer" coloca outra resposta como esta abaixo
E-mail apagado com sucesso.

Na "layer" "design" cria o layout do filme.

Salva e envia tudo para um servidor Web, e testa.