|
DUVIDA URENTE olhe o que está em
Negrito
[EMAIL PROTECTED]
ICQ 121956408 <% @Language = VBScript %>
<% Function rndit() 'Gerando uma Senha Dim RndTemp Randomize RndTemp = Rnd * 1000000 RndTemp= Int(RndTemp) rndit = RndTemp End Function strSenha = rndit() strCorLetraTitulo = Request.Form("CorLetraTitulo") strTamanhoLetraTitulo = Request.Form("TamanhoLetraTitulo") strAlinhamentoTitulo = Request.Form("AlinhamentoTitulo") strTitulo = Request.Form("Titulo") strImagem = Request.Form("Imagem") strCorLetraMensagem = Request.Form("CorLetraMensagem") strTamanhoLetraMensagem = Request.Form("TamanhoLetraMensagem") strAlinhamentoMensagem = Request.Form("AlinhamentoMensagem") strMensagem = Request.Form("Mensagem") strMusica = Request.Form("Musica") strNomeRemetente = Request.Form("NomeRemetente") strEmailRemetente = Request.Form("EmailRemetente") strNomeDestino = Request.Form("NomeDestino") strEmailDestino = Request.Form("EmailDestino") strDatadeCadastro = Now strDataParaEnvio = Request.Form("DataParaEnvio") strConexao = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & Server.MapPath("../../dados/cartaovirtual.mdb") & ";" Set objConexao = Server.CreateObject("ADODB.Connection") objConexao.Open strConexao SQL = "INSERT INTO CartoesVirtuais (CorLetraTitulo, TamanhoLetraTitulo, AlinhamentoTitulo, FonteTitulo, Titulo, Imagem, CorLetraMensagem, TamanhoLetraMensagem, AlinhamentoMensagem, FonteMensagem, Mensagem, Musica, NomeRemetente, EmailRemetente, NomeDestino, EmailDestino, DatadeCadastro, DataParaEnvio, Senha)" SQL = SQL & "VALUES ('"&strCorLetraTitulo&"', '"&strTamanhoLetraTitulo&"', '"&strAlinhamentoTitulo&"', '"&strFonteTitulo&"', '"&strTitulo&"', '"&strImagem&"','"&strCorLetraMensagem&"', '"&strtamanhoLetraMensagem&"', '"&strFonteMensagem&"', '"&strMensagem&"', '"&strMusica&"', '"&strNomeRemetente&"', '"&strEmailRemetente&"', '"&strNomeDestino&"', '"&strEmailDestino&"', '"&strDatadeCadastro&"', '"&strDataParaEnvio&"', '"&strSenha&"')" SET objRecordSet = objConexao.Execute(SQL) strID = 'Como Faço para pegar o id do insert que foi executado acima para colocar no Codigo de ASPEMAIL abaixo Set Mail =
Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.panet.com.br" Mail.From = "[EMAIL PROTECTED]" Mail.FromName = "Cartao Virtual - Active" Mail.AddAddress strEmail Mail.AddReplyTo "[EMAIL PROTECTED]" Mail.Subject = "Sua Senha" strMensagem = strMensagem & "Você Recebeu um Cartão Virtual Active" & vbcrlf & vbcrlf strMensagem = strMensagem & "Nome do Remetente: " & strNomeRemetente & vbcrlf strMensagem = strMensagem & "Email do Remetente:" & strEmailRemetente & vbcrlf & vbcrlf strMensagem = strMensagem & "Acesse http://active.panet.com.br/cartaovirtual" & vbcrlf strMensagem = strMensagem & "Identificação para acesso: " & strID & vbcrlf strMensagem = strMensagem & "Senha:" & strSenha & vbcrlf & vbcrlf Mail.Body = strMensagem On Error Resume Next Mail.Send %>
http://www.asp10.net ========================================== Solu��es simples para problemas complexos ==========================================
| ||||||||
