Quase Certo Gravaçao +Cdonts+envio de link p/ email

[Arrasted 0]

Auda ai por favorrrrrrr

 

<%

nome = Request.Form("nome")

email = Request.Form("email")

telres = Request.Form("telres")

telcom = Request.Form("telcom")

estcivil = Request.Form("estcivil")

cpf = Request.Form("cpf")

rg = Request.Form("rg")

nascimento = Request.Form("nascimento")

ender = Request.Form("ender")

bairro = Request.Form("bairro")

cep = Request.Form("cep")

cidade = Request.Form("cidade")

selestado = Request.Form("selestado")

seletipo = Request.Form("seletipo")

operadora = Request.Form("operadora")

modali = Request.Form("modali")

%>

<%

Set Conn = Server.CreateObject("ADODB.CONNECTION")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=E:\DADOS\digitaldna\corretora.mdb"

 

theSQL = "INSERT INTO propostas"

theSQL = theSQL & "(nome, email, telres, telcom, estcivil, cpf, rg, nascimento, ender, bairro, cep, cidade, selestado, seletipo, operadora, modali)"

theSQL = theSQL & " values ('"&nome&"', '"&email&"', '"&telres&"', '"&telcom&"', '"&estcivil&"', '"&cpf&"', '"&rg&"', '"&nascimento&"', '"&ender&"', '"&bairro&"', '"&cep&"', '"&cidade&"', '"&selestado&"', '"&seletipo&"', '"&operadora&"', '"&modali&"')"

Conn.Execute(theSQL)

 

'*****************************************************

Set rs = Conn.Execute("SELECT id FROM propostas WHERE nome = '"& nome &"' ORDER BY id DESC")

id = rs("id")

rs.Close

Set rs = Nothing

'*****************************************************

Dim HTML

strNome = Request.Form("nome")

strEmail = Request.Form("email")

strTelRes = Request.Form("telres")

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

objMail.To = "erico@acrtecnologia.com.br"

objMail.From = strEmail

strMsgParaCadastro = "Nome: " & strNome & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "Email: " & strEmail & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "Telefone Residencial:" & strTelRes & vbcrlf

strMsgParaCadastro = strMsgParaCadastro & "<a href='http://www.digitaldna.com.br/VerProposta.asp?id="& id &"'>Veja aqui</a>" nao aparece o

objMail.Body = strMsgParaCadastro

objMail.MailFormat = 0

objMail.Send

Set objMail = nothing

strMsgObrigado = "Olá " & strNome & vbcrlf

strMsgObrigado = strMsgObrigado & "Obrigado Pela Sua Solicitação Online" & vbcrlf

strMsgObrigado = strMsgObrigado & "Você Será Contatado Brevemente."

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

objMail.From = "erico@acrtecnologia.com.br"

objMail.To = strEmail

objMail.Subject = "Proposta Online!"

objMail.Body = strMsgObrigado

objMail.Send

Set objMail = Nothing

Response.Redirect "Default.asp"

%>

[dark0 0]

brother, pode ser mais claro ao explicar o problema?nao entendi..

[Arrasted 0]

Valeu dark0 ja resolvi caraObrigado

[Akwen 1]

Quando postar duvida, e resolver... poste a solução, assim você ajuda outros com a mesma duvida. Abraços!