Ir para conteúdo
Fórum Script Brasil
  • 0

Mandar Informaçoes De Um Bd Por E-mail

pedro lopes

Perguntado por pedro lopes,

 Share

Pergunta

pedro lopes

pedro lopes

Postado
Postado

tenho um BD cadastro, quero que ele mande o endereco da pagina pro cadastrado poder imprimir depois la no seu e-mail como faco isso....

recebi algumas dicas mas te juro não sei como fazer ainda já quebrei a cabeca muitoooo me ajuden.........

respost minha pra um companheiro que me deu a seguinte dica

Ola Pedro,

Estas informações estão gravaas em um BD ?? Né??

Se você gravou deve ter um ID e este ID é o do cadastro....

Então envia por e-mail o Link

http://www.seusite.com.br/cadastrado.asp?id=25

na página cadastrado.asp você busca pelo ID e mostra os dados................

Mas se quiser enviar este dados por e-mail também dá, mas as imagens do site fica difícil se foram diferentes para cada cadastro... se forem tudo igual, como um fundo, monta em HTML e envia por e-mail com os dados vindo do BD....

Bem, eu faria enviando o Link..........

so que tem um problema , na hora de fazer o cadastro na barra de end. sai www.mausite.com.br/cadastro.asp. como faço pra ele ir direto mostrando a "ID" da cadastrado?

eu uso um script de mandar e-mail

eu uso uma sting pra direcionar o id

stgid= RS="registro" '(como id cadastrado no BD)

como faço pra ele ir por-email com o ID do cadastrado...

que tipo de comando eu uso????

<%

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>"

objCDOMail.To = strTo

objCDOMail.Subject = stRSubject

objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing

como posso fazer a aquisicao da pagina descrita acima?

Link para o comentário
Compartilhar em outros sites

25 respostass a esta questão

Posts Recomendados

  • 0
pedro lopes

pedro lopes

Postado
  • Autor
Postado

Amigo não funcionou quando coloco na pagina ela sai o resultado em Branco não vem o restos dos dados e não me da nenhum tipo de erro. o que sera. já tentei de tudo inclusive este:::

str_mensagememail = "<html>" _

& "<head>" _

& "</head>" _

& "<body bgcolor=""white"">" _

& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><center><u>Ativação de Cadastro</u></center><br><br><a href=""http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO=<%=rs(""REGISTRO"")%>Ativar Cadastro</a>""</font></p></p>" _

& "</body>" _

& "</html>"

este da o seguinte erro:::

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/eventos/modalidades/modalidade.asp, line 76

& "<p align=""left""><font face=""Verdana, Arial, Helvetica, sans-serif"" size=""2""><center><u>Ativação de Cadastro</u></center><br><br><a href=""http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO=<%=rs(""REGISTRO"")

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

por que sera que não consigo por favor alguém tem alguma solucao????????????????????????????????

Link para o comentário
Compartilhar em outros sites
  • 0
pedro lopes

pedro lopes

Postado
  • Autor
Postado

o codigo completo e este ; este se chama modalidade.asp. eo outro do form e default.asp

<%

Dim strTo, stRSubject,strBody

Dim objCDOMail

Dim strID

strTo = Request.Form("to")

stRSubject = "Sistema de Inscricao de modalidades FUCE" 'Assunto da mensagem

strBody = "Obrigado pela sua inscricao " 'corpo da minha mensagem

strBody = strBody & "Este e-mail está sendo enviado para confirmação de sua inscrição."

strBody = strBody & "A Partir de agora seus dados estarão em nosso banco de dados; não ESQUECA DE IR A FUCE CONFIRMAR SUA INSCRICAO "

strBody = strBody & "Dúvidas ou sugestões: fuce@fuce.esp.br"

strBody = strBody & " visite constantemente nossa página http://www.fuce.esp.br"

strBody = strBody & "<a href=http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO="&RS("REGISTRO")&">link</a>" ' este ta dando erro...

' Espaços e enteRS

strBody = strBody & vbCrLf & vbCrLf

strBody = strBody & "Data da Inscrição : "

strBody = strBody & Request.Form("DatadaInscricao")

strBody = strBody & vbCrLf

strBody = strBody & "Instituioçaõ de Ensino Superior: "

strBody = strBody & Request.Form("IES")

strBody = strBody & vbCrLf

strBody = strBody & "Evento : "

strBody = strBody & Request.Form("Evento")

strBody = strBody & vbCrLf

strBody = strBody & "Responsavel pela Inscrição : "

strBody = strBody & Request.Form("Responsavel")

Dim conn

Dim RS

StrConn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("../../../dados/inscricaodemodalidades.mdb")

Set Conn = server.createobject("adodb.connection")

Conn.Open StrConn

Set RS = server.createobject("adodb.recordset")

RS.open "tblcadastra", conn, 2, 3 'abrindo a tabela tblcadastra para a inserção ADO

RS.addnew

RS("IES") = request("IES")

RS("CadastroFuce") = request("CadastroFuce")

RS("Email") = request("to")

RS("DatadaInscricao") = request("DatadaInscricao")

RS("Evento") = request("Evento")

RS("Responsavel") = request("Responsavel")

RS("Centro") = request("Centro")

RS("modalidade1") = request("modalidade1")

RS("modalidade2") = request("modalidade2")

RS("modalidade3") = request("modalidade3")

RS("modalidade4") = request("modalidade4")

RS("modalidade5") = request("modalidade5")

RS("modalidade6") = request("modalidade6")

RS("modalidade7") = request("modalidade7")

RS("modalidade8") = request("modalidade8")

RS("modalidade9") = request("modalidade9")

RS("modalidade10") = request("modalidade10")

RS.update

RS.movelast

strID = RS("REGISTRO")

RS.close

Set RS=nothing 'Fechando os Recursos

Set conn=nothing

%>

</p>

<p>&nbsp; </p>

</div>

<p align="center"> <font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#666666">Confira

os dados que foram cadastrados abaixo.<br>

</font><font size="1"><strong><em><font color="#FF0000" size="2" face="Verdana, Arial, Helvetica, sans-serif">Sua

incri&ccedil;&atilde;o so ser&aacute; V&aacute;lida depois de confirmar o Pagamento

de Inscri&ccedil;&atilde;o de IES.</font></em></strong></font></p>

<p align="center"><font color="#666666" size="2" face="Verdana, Arial, Helvetica, sans-serif">Imprima

e Leve-o a FUCE</font></p>

<table border="0" align="center" cellpadding="0" cellspacing="0" width="473">

<tr>

<td width="471">

<p><strong><font color="#808080" face="Courier New, Courier, mono">Registro

no Evento N°</font></strong><font color="#000000">:<%= strID %><br>

</font><font color="#808080"> <strong><font face="Courier New, Courier, mono">IES</font>

:</strong>

<% = request("IES") %>

<br>

<strong><font face="Courier New, Courier, mono">Cadastro da Fuce</font>:</strong>

<% = request("CadastroFuce") %>

<br>

<font face="Courier New, Courier, mono"><strong>Centro</strong></font><strong>:</strong>

<% = request("Centro") %>

<br>

<font face="Courier New, Courier, mono"><strong>Evento</strong></font><strong>

:</strong>

<% = request("Evento") %>

<br>

<strong><font face="Courier New, Courier, mono">Data de Inscrição</font>

:</strong>

<% = request("DatadaInscricao") %>

&nbsp; </font><font color="#666666"><strong><font face="Courier New, Courier, mono">Responsável</font>

:</strong>

<% = request("Responsavel") %>

</font></p>

<p align="center"><font color="#666666" size="5" face="Courier New, Courier, mono"><strong>Modalidades</strong></font></p>

<p><font color="#808080"> <font color="#666666">

<% = request("modalidade1") %>

-

<% = request("modalidade2") %>

-

<% = request("modalidade3") %>

</font></font></p>

<p><font color="#666666">

<% = request("modalidade4") %>

-

<% = request("modalidade5") %>

-

<% = request("modalidade6") %>

-</font></p>

<p><font color="#666666">

<% = request("modalidade7") %>

-

<% = request("modalidade8") %>

-

<% = request("modalidade9") %>

</font></p>

<p><font color="#666666">

<% = request("modalidade10") %>

</font><font color="#808080"> </font> </p>

</td>

</tr>

</table>

<font color="#000000"><%

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>"

objCDOMail.To = strTo

objCDOMail.Subject = stRSubject

objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing

Response.Write "<font face=tahoma>Mensagem enviada com sucesso para " & strTo & "!"

%></font>

Link para o comentário
Compartilhar em outros sites
  • 0
pedro lopes

pedro lopes

Postado
  • Autor
Postado

o codigo do erro não existe ou seja quando coloco a funcao pra chama "strid" la no campo que e pra ser HTML na resposta pagina ele não me mostra nada.

sera que problema no server de hospedagem?

a pagina sai em branco quem quiser depois testar e so ver como e

CODE

strBody = strBody & "<a href=http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO="&RS("REGISTRO")&">link</a>" ' este ta dando erro...

Link para o comentário
Compartilhar em outros sites
  • 0
pedro lopes

pedro lopes

Postado
  • Autor
Postado

Quando adiciono este codigo seguinte a pagina sai em branco e como se o BD não não recebece dado algum

CODE

strBody = strBody & "<a href=http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?REGISTRO="&RS("REGISTRO")&">link</a>" ' este ta dando erro...

a pagina sai em branco........

ou seja so aparece a figura da logo e o titulo da pagina os request.() não vem na pagina seguinte.....

o que sera que ta acontecendo ,,, erro de programção ou server????

de hospedagem...............

Link para o comentário
Compartilhar em outros sites
  • 0
.Andreia.

.Andreia.

Postado
Postado

Pedro, montei um exemplo:

<%
id_usuario = 8

strBody = "Clique no <a href='http://www.seusite.com.br/cadastrado.asp?id_usuario="&id_usuario&"'>Link</a>"

Set objCDOMail = Server.CreateObject ("CDONTS.NewMail")
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>"
objCDOMail.To = strTo
objCDOMail.Subject = stRSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = nothing

%>

Mas eu usei uma constante, daí você adapta.

Link para o comentário
Compartilhar em outros sites
  • 0
pedro lopes

pedro lopes

Postado
  • Autor
Postado

Eu testei deu certo ,em parte ,a pagina parou de da o erro so que quando eu clico no link ele abre um novo registro , não aquele que eu quero que ele consulte

entendeu

fiz um registro ele me mostrou id=42

http://www.meusite.com.br/cadastro/cadastro.asp?=42

ele me manda um novo registro como id=43

e os dados vem em branco , nossa estou pra pirarrr

pode ser besteira . mas não decobri onde "ela " mora

me ajudem..........

Link para o comentário
Compartilhar em outros sites
  • 0
pedro lopes

pedro lopes

Postado
  • Autor
Postado

Deia no link ta vindo assim

http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?id_usuario='>http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?id_usuario=

agora não vem o id que chamo aqui de "strID "

strBody = strBody & "Clique no <a href='http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?id_usuario="&strID&"'>Link</a>"

o que sera sera que eu errei...

Link para o comentário
Compartilhar em outros sites
  • 0
.Andreia.

.Andreia.

Postado
Postado

Deixa ver se entendi sua aplicação. O usuario preenche um formulario e na tela seguinte esses dados são gravados no BD e exibidos na tela. Um e-mail é enviado para ele com um link da página. Certo?

Supondo que seja, essa ID no seu banco de dados é auto-numeração? porque assim, se você está inserindo um novo registro e precisa saber um campo deste novo registro, é necessário que você faça um SELECT antes de enviar o e-mail para saber qual é a ID gerada para este usuário, entendeu?

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Guest

Guest Guest

Postado
Postado

não entendi não , sou novatinho,....

bem mas deixa ver , eu deu um jeito aqui assim

strBody = " visite constantemente nossa página http://www.fuce.esp.br/eventos/modalidades...'>"

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>"

objCDOMail.BodyFormat = 1

objCDOMail.MailFormat = 0

objCDOMail.To = strTo

objCDOMail.Subject = stRSubject

objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing

e estou recebendo um e-mail assim:

visite constantemente nossa página http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?id_usuario=62'>

nota que ele já vem com o registro "ID"

so que quando linko ele me mostra o BD com um registro acima

ou seja o =63

e na pagina não aprece os dados cadastrados , so o numero do registro "ID"

entendeu Deia , sera que estou esquecendo algo do tipo consultar todos os dados e gerar um apgina em html pra ser consultada depois... não sei me diga uma solucao.... huh.gif

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Guest

Guest Guest

Postado
Postado

DEIA disee:

"Pedro, você não me disse se sua aplicação funciona daquela forma que eu te disse. Talvez no link ele esteja pegando o primeiro registro que o banco acha. Sempre é com 1 a mais? Tentou com varios ID e sempre aparece a mais? "

Desculpe Deia, sim eu uso uma tabela de auto numeracao, junto com uma chave primaria...

Deia pergunta:

Sempre é com 1 a mais?

sim Deia e sempre com um a mas exemplo quero o 62 ele me mostra o 63 entendeu...

Deia pergunta:

Tentou com varios ID e sempre aparece a mais?

Sim Deia outros e a mesma coisa tentei ate com um registro existente e nada sempre me mostra um registro acima....

sera que tenho que criar outro banco???? ohmy.gif

Link para o comentário
Compartilhar em outros sites
  • 0
.Andreia.

.Andreia.

Postado
Postado

Calma Pedro, rsss. Um problema que achei é que você está montando o link ANTES da inserção, ou seja.... você pede a ID antes de saber. Então recorte o trecho que está em vermelho e deixe como está no trecho abaixo:

<% = request("modalidade10") %>

</font><font color="#808080"> </font> </p>

</td>

</tr>

</table>

<font color="#000000">

<%

Dim strTo, stRSubject,strBody

Dim objCDOMail

Dim strID

strTo = Request.Form("to")

stRSubject = "Sistema de Inscricao de modalidades FUCE" 'Assunto da mensagem

strBody = strBody & "Obrigado pela sua inscricao " 'corpo da minha mensagem

strBody = strBody & "Este e-mail está sendo enviado para confirmação de sua inscrição."

strBody = strBody & "A Partir de agora seus dados estarão em nosso banco de dados; não ESQUECA DE IR A FUCE CONFIRMAR SUA INSCRICAO "

strBody = strBody & "Dúvidas ou sugestões: fuce@fuce.esp.br"

strBody = strBody & " visite constantemente nossa página http://www.fuce.esp.br"

strBody = strBody & "Clique no <a href='http://www.fuce.esp.br/eventos/modalidades/modalidade.asp?id_usuario="&strID&"'>Link</a>"

' Espaços e enteRS

strBody = strBody & vbCrLf & vbCrLf

strBody = strBody & "Data da Inscrição : "

strBody = strBody & Request.Form("DatadaInscricao")

strBody = strBody & vbCrLf

strBody = strBody & "Instituioção de Ensino Superior: "

strBody = strBody & Request.Form("IES")

strBody = strBody & vbCrLf

strBody = strBody & "Evento : "

strBody = strBody & Request.Form("Evento")

strBody = strBody & vbCrLf

strBody = strBody & "Responsavel pela Inscrição : "

strBody = strBody & Request.Form("Responsavel")

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

objCDOMail.From = "FUCE inscricao de Modalidades <fuce@fuce.esp.br>"

objCDOMail.BodyFormat = 0

objCDOMail.MailFormat = 0

objCDOMail.To = strTo

objCDOMail.Subject = stRSubject

objCDOMail.Body = strBody

objCDOMail.Send

Set objCDOMail = Nothing

Response.Write "<font face=tahoma>Mensagem enviada com sucesso para " & strTo & "!"

%>

</font>

<p align="center">&nbsp;</p>

</form>

Link para o comentário
Compartilhar em outros sites
  • 0
pedro lopes

pedro lopes

Postado
  • Autor
Postado

Deia , sera que tenho que direcionar esta pagina pra uma em HTML e depois capturar os dados .

atraver de um link de consulta

ou Fazer uma rotina em asp de criar uma pagina com os dados em Html

ou seja com os dados cadastrados...

e depois linkar...

se for o que você acha?

me diga as ferramentas pra tal situacao de criar a pagina e linkar a mesma..

Agradeço!!!

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,1k
    • Posts
      651,8k
×
×
  • Criar Novo...