Ir para conteúdo

Arquivado

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

marvazoler

Cadastro de email com envio do mesmo

Por , em ASP Clássico

Recommended Posts

marvazoler    0

marvazoler
Postado

Olá Galera beleza?Bom dia para todosSeguintePostei uma questão ontem eu fiz, mas aconteceu algo estranho, fiz o insert, após fiz um selecte eviei um email no ato do cadastro, só que enviou no nome certo mas enviou o código de outroiai?Desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

OLHA COMO ESTÁ

 

 

 

<%@ LANGUAGE = VBScript %><% Option Explicit %> <HTML><HEAD><TITLE>Confirmação de cadastr de E-mail</TITLE></HEAD><BODY BGCOLOR="#F1EFE2" topmargin="10" leftmargin="10"><font size="4" face="Arial, Helvetica"> <b>Confirmação de Cadastro de Email<br></b></font><br><strong>Atenção</strong>,<br>Foi enviado para sua conta de e-mail uma senha acesso para uma eventual troca de Linha. <hr size="1" color="#006600"><br><br><%Dim oConn Dim oRs Dim filePath Dim varnomeDim varemailDim varlinha1Dim varlinha2Dim schDim cdoConfigDim cdoMessagefilePath = Server.MapPath("/banco/db.mdb")Set oConn = Server.CreateObject("ADODB.Connection")oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePathSet oRs = Server.CreateObject("ADODB.Recordset")varnome = request.Form("txtnome")varemail = request.Form("txtemail")varlinha1 = request.Form("linha1")varlinha2 = request.Form("linha2")Set oRs = oConn.Execute("insert into tbl_email(nome,email,linha1,linha2)values('"&varnome&"','"&varemail&"','"&varlinha1&"','"&varlinha2&"')")%><%Dim oConn1Dim oRs1 Dim filePath1Dim varemail2'Dim sch'Dim cdoConfig'Dim cdoMessagefilePath1 = Server.MapPath("/banco/db.mdb")Set oConn1 = Server.CreateObject("ADODB.Connection")oConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath1Set oRs1 = Server.CreateObject("ADODB.Recordset")varemail2 = request.Form("txtemail")Set oRs1 = oConn1.Execute("select * from tbl_email where email = '"&varemail2&"'")%><%sch = "http://schemas.microsoft.com/cdo/configuration/"Set cdoConfig = Server.CreateObject("CDO.Configuration")cdoConfig.Fields.Item(sch & "sendusing") = 2cdoConfig.Fields.Item(sch & "smtpserver") = "localhost"cdoConfig.fields.updateSet cdoMessage = Server.CreateObject("CDO.Message")Set cdoMessage.Configuration = cdoConfigcdoMessage.From = "faleconosco@vjd.com.br"cdoMessage.to = Request.Form("txtemail")cdoMessage.Subject = "Cadastro de E-Mail"cdoMessage.HTMLBody ="<b>" & "EMPRESA"& "<BR>"&"Confirmação de Cadastro E-Mail"&"</b>" & "<br>"&"<br>" & "Senhor(a), Passageiro(a): "&"<b>"& Request.Form("txtnome")&"</b>" & "<br>" & "Segue abaixo o seu Login e senha para eventual troca de linha." & "<br>" & "Login: "& oRs1("Email") &"<br>" &"Senha: "& oRs1("Controle") & "<br>" &"Desde já agradecemos o seu cadastro."cdoMessage.SendSet cdoMessage = NothingSet cdoConfig = Nothing%><% response.Write("Seu E-Mail foi cadastrado com sucesso, OBRIGADO!!")%></BODY></HTML>

Desde já agradeço pela ajuda

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