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

Recuperar Dados De Formulário


neo

Pergunta

Galera não estou conseguindo enviar o email para a pessoa que se cadastra no portal. O codigo que estou usando para cadastro e o seguinte...e o do email e o outro abaixo......

Se alguém poder me ajudar ficarei muito grato....

<%
'Força a declaração de todas as variáveis
Option Explicit
'Não deixa informações no Cache
Response.Expires = 0
'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, nome, assunto, de, mensagem
'Atrubuição dos valores as respectivas variáveis
nome = Request.Form("nome")
assunto = Request.Form("assunto")
de = Request.Form("de")
mensagem = Request.Form("mensagem")
'Cria o objeto RecordSet e atribui a variável 
Set objConn =  Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & Server.MapPath("\julliano\db\contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO contato (nome,assunto,de,mensagem) VALUES ('"&nome&"','"&assunto&"','"&de&"','"&mensagem&"')"
'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing
'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
if err = 0 Then
'Redireciona o usuário caso não tenha ocorrido erro na transação
response.redirect "sendmail.asp"
end if
%>
Sendmail.asp
<%
'define o objeto JMAIL
Set JMail = Server.CreateObject ("JMail.message")

JMail.logging=True

JMail.From = request.form ("De")

JMail.FromName = request.form ("Assunto")

JMail.AddRecipient "juliano@curinga.com.br"

JMail.Subject = "Cadastro" 

dim body,link

body= body & "Webmaster" & vbcrlf
body= body & "Recebemos sua solitação." & vbcrlf
body= body & "Ainda hoje um de nossos atendentes estara entrando em contato." & vbcrlf
body= body & "Aguarde nosso contato." & vbcrlf

body= body & "_________________________________________________________________" & vbcrlf
body= body & "Name : " & request.form ("Assunto")& vbcrlf
body= body & "E-Mail : " & request.form("De")& vbcrlf
body= body & "Message : " & request.form("Mensagem")& vbcrlf
body= body & "_________________________________________________________________" & vbcrlf

JMail.Body = body

JMail.Send ("mail.thewesthorse.com") 
%>

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...