Confirmar Via Email O Registro Do Email

[py2tz]

Uso um sistema para enviar um email de confirmacao do usuario e apos confirmado por ele o email é iserido num BD. Ai tenho que pegar este email manualmente e joga-lo num outro BD que faz o envio dos emails para os cadastrados.

já tentei fazer o primeiro sistema quando confirmado inserir diretamente no segundo sistema, mas não consegui, então estou tentando fazer ele inserir nos dois sistemas (BD) quando confirmado.

Mas acho que as linguagens são incompativeis mesmo sendo em ASP

Parte do script onde o primeiro programa registra os dados no BD

<%
Else
 Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_Connection1_STRING
    MM_editCmd.CommandText = "insert into Email_members (Member_name, Member_Email)values('"&request("name")&"','"&request("email")&"')"
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close 

    %>

Parte do script onde eu faço a insercao manual do primeiro para este:

<%
Dim useraction
Dim Email
Dim Action
Dim SQL

Email = lcase(request.form("Email"))
useraction = request.form("Join_Quit")

set RS = server.createobject("adodb.recordset")
SQL = "SELECT * FROM List WHERE Email = '" & Email & "'"
RS.open SQL, conn, 2, 2

If (request("Email") = "") Then
    Action = "Este email esta errado.  Favor tentar novamente."
Else
    select case useraction
    case "Join"
        if RS.bof and RS.eof then
            RS.addnew
            RS("Email") = request("Email")
            RS("Name_Last") = request("Name_Last")
            RS("Name_First") = request("Name_First")
            RS("Date_In") = Date
            RS.update            
            Action = "Obrigado pela adesão."
        else
            Action = "Voce já esta cadastrado."
        end if
    case "Quit"
        if RS.bof and RS.eof then
            Action = "Seu email não esta em nossa relação!!!"
        else            
            sql2="DELETE FROM List WHERE Email = '" & Email & "'"
            conn.execute(sql2)
            
            Action = "Voce foi devidamente REMOVIDO."
        end if
    end select
End If

RS.close
set RS = nothing
%>

Caso alguém possa me dar uma dica de como fazer para quando o usuario confirmar o email enviado a ele possa registrar nos dois programas ao mesmo tempo, ou pelo menos no segundo já ajudaria muito.

Obrigado

Editado Fevereiro 23, 2007 por andreia_sp

[bareta]

use dois inserts...

[marciombl]

Py2tz olá.

Olha o que deu para entender é que você tem dois sistemas cada um com um banco de dados e o que você quer é enviar um e-mail de confirmação e salva-lo em banco de dados diferentes, porem sua dificuldade é a lógica de como fazer tudo isto.

Olha Py2tz na verdade estão faltando informações importantes em seu texto que são fundamentais para ajuda-lo, sem elas fica muito difícil entender a lógica que você usou, vou te dar uns exemplos:

Você não comentou a logística de captura desta informação ao clicar no link para a confirmação, se é um código ou o próprio e-mail, não fornecer esta informação modifica a forma de consulta nos dois bancos de dados.

Você também não comentou qual o tipo de banco de dados que você está usando se é SQL, MYSQL ou ACCESS, não definir isto dificulta ajudar você na forma de consulta mais apropriada.

Bom Py2tz eu acredito que você está errando na lógica de consultar e retornar isto para você e definir se será feito o cadastro separadamente ou não.

Bom, vamos lá na consulta unificadas, este tipo de consulta se aplica bem ao seu caso, se trata de uma consulta em bancos de dados diferentes na mesma string( não coloquei aqui para não confundir você).

Esta função requer duas conexão individual na mesma página.

Para utilizar ela em seus dados use desta forma

EX

Mail = MailCadastro(request.QueryString("Mail"))

você pode usar outra forma, mas depende das informações acima mencionadas.

<% 
Public Function MailCadastro(variavel)
IF variavel <> "" THEN
'==================================================================================================
' Verifica e cadastra dados do banco de dados 1
SQL = "SELECT * FROM List WHERE Email = '" & variavel & "'"
Set LIST = LIST_Conexao.Execute(SQL)
IF LIST.EOF THEN
' Resposta que o e-mail não existe no banco de dados 1
SQLC = "insert into Email, Name_Last, Name_First, Date_In)"
SQLC = SQLC & "VALUES ("
SQLC = SQLC & "'" &request("Email")& "',"
SQLC = SQLC & "'" &request("Name_Last")& "',"
SQLC = SQLC & "'" &request("Name_First")& "',"
SQLC = SQLC & "'" &Date&  "')" 
set CadastroMail = LIST_Conexao.execute(SQLC)
ELSE
' Resposta que o e-mail existe no banco de dados 1
END IF
'--------------------------------------------------------------------------------------------------
' Verifica e cadastra dados do banco de dados 1
SQL2 = "SELECT * FROM Email_members WHERE Email = '" & variavel & "'"
Set EmailMembers = Email_members_Conexao.Execute(SQL2)
IF LIST.EOF THEN
' Resposta que o e-mail não existe no banco de dados 2
SQLC2 = "insert into Member_name, Member_Email)"
SQLC2 = SQLC2 & "VALUES ("
SQLC2 = SQLC2 & "'" &request("name")& "',"
SQLC2 = SQLC2 & "'" &request("email")&  "')" 
set CadastroMembers = Email_members_Conexao.Execute(sql)
ELSE
' Resposta que o e-mail existe no banco de dados 2
END IF
'---------------------------------------------------------------------------------------------------
 Set EmailMembers = nothing
 set CadastroMembers = nothing
Email_members_Conexao.Close
 Set LIST = nothing
 set CadastroMail = nothing
LIST_Conexao.Close
'==================================================================================================	
END IF
End Function
%>[/codebox]

está função é como exemplo você ter um de partida, mas como comentei lá em cima, seja o caso, comente mais sobre a logística que você fez, desta forma ficaria mais fácil ajudar você.

Com Deus e forte abraço.

Editado Fevereiro 24, 2007 por marciombl

[py2tz]

Olá pessoal,

Bem, vou tentar explicar, pois sou meio cru na coisa.

Funcionamento do Sistema 1

O usuario prenche uma caixa com seu email e clica enviar

O sistema verifica se existe este email, (está funcionando)

se existe informa que já existe (está funcionando)

se não existe emite msg que lhe foi enviado um pedido de confirmacao (está funcionando)

Se o email que o cara digitou é falso, não acontece a insercao dele no BD (access)

Se o email é verdadeiro ele entra no BD e tudo acaba bem

Funcionamento do sistema 2

Eu abro uma pagina que me mostra os registros feitos no BD do sistema 1

Copio email por email e adiciona no BD do sistema 2

Novamente o sistema 2 faz a consulta no BD

Se existe ele me informa que já existe e não cadastra

Se não existe ele adiciona o email do cara.

Isso já faço um bom tempo, o problema que a coisa tá aumentando e por dia são uns 30 novos emails que querem entrar e eu tõ cansado de fazer isso.

O BD é acess.

Sistema 1 é para somente confirmar se existe o email do cara

ele até envia email mas não em HTML somente TXT

Sistema 2 é um boletim que é enviado a todos os cadastrados

este sim me envia em HTML mas não faz a confirmacao do email

então uso os dois sistemas para completar a coisa.

O que preciso é um sistema que registre o email, peça confirmacao via email, e envie o boletim em HTML para todos os que estiverem ali.

Veja se precisa de mais alguma info e obrigado pela ajuda.

Fausto

[marciombl]

Fausto olá.

Se você preferir posso dar uma organizada em seu sistema, porem caso aceite gostaria que você seguisse os passos abaixo, passos:

Ao enviar o banco de dados, por favor, faça uma copia dele (mantenha o original) elimine os dados (e-mails e outros) e salve o banco de dados em branco.

Motivos:

Para evitar desconfiança da boa vontade, Fausto.

AO enviar as paginas, envie somente as paginas do sistema atual, evite enviar paginas que não tenha um vinculo com o sistema.

Motivos:

Não comprometer outros sistemas.

OBS:

Fausto eu não gosto muito de PHP, por este motivo não me dedico a esta tecnologia, minha dedicação é a ASP e Visual Base, caso seja em PHP acredito que seria trabalhoso para mim ajuda-lo já que não me dedico à tecnologia, porem caso queira em ASP será um Grande Prazer ajuda-lo.

Bom Fausto... Espero que possa ajudar você, caso seja em PHP com certeza ira ter alguém aqui que adora PHP e ira ajuda-lo(caso não encontre alguém poderei ajuda-lo porem será mais trabalhoso para mim e espero sua compreensão).

Forte abraço fica com Deus.

Meu E-mail

sitesnow@hotmail.com

Mande em arquivo ZIP.