Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

zanelati2002

como fazer isto

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

tipo cadastro o cara em um tabela chamada sites, e enviou uma mensagem para ele atravez do email como fazer para que depois disto eu inserir em outra tabela a mesma mensagem que foi para o email dele e dizer que foi o admin que mandou olhem o codigo..

 

<!--#include file="conectar.asp"--><% AbreConexaoIf Request.Form("enviado") = "sim" Then Cadastrado =Falsenome = Request.Form("nome")email = Request.Form("email")hora = Time()data = Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano")Sql = "INSERT INTO sites (nome, email, site, banner, conteudo, modo, codigo, ip, status, hora, data)"Sql = Sql & "VALUES('" & nome & "', '" & email & "', '" & site & "', '" & banner & "', '" & conteudo & "', '" & modo & "', '" & codigo & "', '" & ip & "', '" & status & "', '" & Time() & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql)Cadastrado = TrueEnd IfIf Cadastrado = False Then ElseSet Mail = Server.CreateObject("JMail.SMTPMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<font face=Verdana size=1>"	HTML = HTML & "Olá <b>"& nome &"</b>, Seu pedido de parceria foi realizado com sucesso ! Segue abaixo seus dados:<br>"	HTML = HTML & "--------------------------------------------------<br>"	HTML = HTML & "Nome: <b>"& nome &"</b><br>"	HTML = HTML & "Email: <b>"& email &"</b><br>"	HTML = HTML & "--------------------------------------------------<br>"	HTML = HTML & "</body>"	HTML = HTML & "</html>"Mail.ServerAddress = "mail.site.com.br"Mail.Logging = TrueMail.Sender = "parcerias@dabus.com" Mail.SenderName = "Olá Novo Parceiro(a)"Mail.AddRecipient Request.Form("email")Mail.AddRecipientBCC "parcerias@dabus.com"Mail.Subject = "Pedido de Parcerias"Mail.HTMLBody = HTMLMail.ExecuteSet Mail = Nothingend if %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Bruno Bim    0

Bruno Bim
Postado

zanelati2002, se sua msg for uma msg padrao você pode criar umas sessao para guarda essa menssagem, ou entao quando você envira a msg pra ele você guarda numa sessao e depois cria uma pagina com um insert normal mas no lugar da variavel você coloca o nome da sessao que você usou.Session("MSG") = "Mensagem do admin"quando você for dar um insert você coloca assim:SQL="INSERT INTO Logs (msg_logs) VALUES('"&Session(MSG)&"')ve se isso resolve....abraços...

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

acho que não fui tão claro depois que o user se cadastrar e enviado uma mensagem para ele certo que seria esta ai.Depois ele vai se logar no sistema certoE no meu site tem mensagem entre membrosE quero inserir esta mensagem que vai para o email dele também em oiutra tabela chamda message com este dados que foram para o email dele também

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

É só usar a variável que você criou para o corpo do e-mail e gravar, logo abaixo do envio do e-mail. É simples.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loma    0

Loma
Postado

Seguinte, agora entendi seu problema.O lance é não adianta muito gravar a msg na session pq o cara pode se cadastrar e sair do site e só entrar outro dia. E isso faria com que ele não recebesse a msg.gente o que ele precisa é uma outra tabela apenas para msgs e com o campo id secundário para fazer um relacionamento com a tabela principal do user. E coloca um campo na tabela msg lido ai você define se o cara ja recebeu a msg ou não!estou indo pro almoço depois uma rápida reunião, depois volto pra ajudar mais.bjks

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, você tem uma variável com o e-mail montado, é só gravá-la no BD.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Como assim? É realmente simples de ser feito! Aparece alguma mensagem de erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, no seu código mesmo já tem um INSERT, é só adaptá-lo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

mais tipo e os dados que precisam ser fizo com admim e assunto como que faria isto que não to conseguindo fazermais seria isto na verdade SQL = "INSERT INTO (admin, nome) VALUES ('nomedoadmin', " &variaveldonome & ")"mais como ficaria a mensagem que mando para o user

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

Vou tentar explicar porque não to conseguindo fazer. mesmo e só aqui neste forum que me ajudam;.Olhem só Este codigo que postei cadastra o cara no db certo.Depois tenho outra tabela chama message que teriasentfrom no de quem manda a mensagem no caso seria o admimsendto no caso o nome do cara recem cadastradosubject no caso o titulo da mensagem seria dado fixo teria que ser Dados do Seu CadastroMessage seria a mesma mensagem que to enviando para o email do cara recem cadastradoPreciso fazer um sql2 no caso um insert para inserir estes dados na tabela messages mais como cadastrar dados fixos já no db não to achando a forma de fazer o relacionamento Tenho no db uma tabela chamada sites que cadastra os caras que é o codigo de cima e outra messages que quero cadastras estas coisas como posso fazer isto

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Fonseca    0

Felipe Fonseca
Postado

Muito fácil cara .... Se você ja tem um tabel com os Dados eh só recuperar os dados da Tabela q Inserir em Outra ....por exemplo ...Pelo que entendi .. eh na tabela sites ... certo entao ... vai ... você precisa dar um SELECT NA TABELA SITES ... X = RS("nomeDaColunaDB")X1 = RS("nomeDaColunaDB1")X2 = RS("nomeDaColunaDB2")DEPOIS você dá um INSERT com os Dados recuperados em X, X1, X2 .... Nao tem Erro .. eh fácil ...

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

mais eu tenho 2 tabelas uma que cadastro os users que é na tabela sitee e outra na tabela messages quero cadstrar os seguinte não tenho que recuperar os dados somente cadastrar estes dados na tabela messagessentfrom no caso de quem manda a mensagem no caso seria o admimsendto no caso o nome do cara recem cadastradosubject no caso o titulo da mensagem seria dado fixo teria que ser Dados do Seu CadastroMessage seria a mesma mensagem que to enviando para o email do cara recem cadastradomais o que não to conseguindo é fazer isto os dados fixosNão to sendo claro

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Fonseca    0

Felipe Fonseca
Postado

Cara coloca um Exemplo senao nao nao tem como . Faz uma simulaçaoo assimNa tabela TAL .. tem os campos tal tal e tal ... com os valores a, b ,c quero inserir na tabela tal ... o o campo tal da tabela tal que tem o valor tal.FAZ UMA SIMULAÇÃO .........

Compartilhar este post

Link para o post
Compartilhar em outros sites

zanelati2002    0

zanelati2002
Postado

olha vamos ver se consigo dizer o que quro fazer

 

aqui ta o codigo do cadastro e junto esta o sql2 vejam só

 

<!--#include file="conectar.asp"--><% AbreConexaoIf Request.Form("enviado") = "sim" Then Cadastrado =Falsenome = Request.Form("nome")email = Request.Form("email")hora = Time()data = Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano")Sql = "INSERT INTO sites (nome, email, site, banner, conteudo, modo, codigo, ip, status, hora, data)"Sql = Sql & "VALUES('" & nome & "', '" & email & "', '" & site & "', '" & banner & "', '" & conteudo & "', '" & modo & "', '" & codigo & "', '" & ip & "', '" & status & "', '" & Time() & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql)Cadastrado = TrueEnd IfIf Cadastrado = False Then ElseSet Mail = Server.CreateObject("JMail.SMTPMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<font face=Verdana size=1>"	HTML = HTML & "Olá <b>"& nome &"</b>, Seu pedido de parceria foi realizado com sucesso ! Segue abaixo seus dados:<br>"	HTML = HTML & "--------------------------------------------------<br>"	HTML = HTML & "Nome: <b>"& nome &"</b><br>"	HTML = HTML & "Email: <b>"& email &"</b><br>"	HTML = HTML & "--------------------------------------------------<br>"	HTML = HTML & "</body>"	HTML = HTML & "</html>"Mail.ServerAddress = "mail.site.com.br"Mail.Logging = TrueMail.Sender = "parcerias@dabus.com" Mail.SenderName = "Olá Novo Parceiro(a)"Mail.AddRecipient Request.Form("email")Mail.AddRecipientBCC "parcerias@dabus.com"Mail.Subject = "Pedido de Parcerias"Mail.HTMLBody = HTMLMail.ExecuteSet Mail = Nothing[b]'sendto no caso de quem manda a mensagem no caso seria o admim sentfrom no caso o nome do cara recem cadastradosubject no caso o titulo da mensagem seria dado fixo teria que ser Dados do Seu CadastroMessage seria a mesma mensagem que to enviando para o email do cara recem cadaSql2 = "INSERT INTO messages  (nome, email, site, banner, conteudo, modo, codigo, ip, status, hora, data)"Sql = Sql & "VALUES('" & nome & "', '" & email & "', '" & site & "', '" & banner & "', '" & conteudo & "', '" & modo & "', '" & codigo & "', '" & ip & "', '" & status & "', '" & Time() & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql)[/b]end if %>

O que não to conseguindo fazer e colocar no sql2 este dados em negrito a mensagem quero gravar e a mesma que vai para o user.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Fonseca    0

Felipe Fonseca
Postado

Pra começar seu SQL2 está errado.ERRADO:Sql2 = "INSERT INTO messages (nome, email, site, banner, conteudo, modo, codigo, ip, status, hora, data)"Sql = Sql & "VALUES('" & nome & "', '" & email & "', '" & site & "', '" & banner & "', '" & conteudo & "', '" & modo & "', '" & codigo & "', '" & ip & "', '" & status & "', '" & Time() & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql)[/b]Certo:Sql2 = "INSERT INTO messages (nome, email, site, banner, conteudo, modo, codigo, ip, status, hora, data)"Sql2 = Sql2 & "VALUES('" & nome & "', '" & email & "', '" & site & "', '" & banner & "', '" & conteudo & "', '" & modo & "', '" & codigo & "', '" & ip & "', '" & status & "', '" & Time() & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql2)[/b]Erro: onde tem SQL tem que ficar SQL2 primeiro erro eh esse

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito