email de resposta com CDO.

[majaque 0]

Olá keridos....No meu código o usuário solicita o material e uma mensagem e enviada para a pessoa q controla tudo. via CDO.Eu gostaria que o usuario tambem recebesse uma mensagem tipo "nos da administração recebemos sua mensagem..aguarde contato" isso no momento que ele envia a solicitaçãovalew pessoal !

[majaque 0]

<%'Força a declaração de todas as variáveisOption Explicit'Não deixa informações no CacheResponse.Expires = 0'Declaração das variáveisDim objConn, objRs, strQuery, strConnection,contador,nome,chave,lotacao,Data,tipomanu,local,descricao,observacao,objeto,mailer,escrita 'Atrubuição dos valores as respectivas variáveis contador = Request.Form("contador") nome = Request.Form("NOME") chave = Request.Form("CHAVE") lotacao = Request.Form("LOTACAO") Data = Request.Form("Data") tipomanu = Request.Form("tipomanu") local = Request.Form("Quantidade") descricao = Request.Form("Observacao") observacao= Request.Form("descricao") '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("usuario_revap.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password" 'Insere os dados na tabela aberta strQuery = "INSERT INTO tabela_principal (contador,nome,chave,lotacao,Data,tipomanu,local,descricao,observacao) VALUES ('"&contador&"','"&nome&"','"&chave&"','"&lotacao&"','"&Data&"','"&tipomanu&"','"&local&"','"&descricao&"', '"&observacao&"')" '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 0if err = 0 Then 'Caso não haja nenhum erro, um correio é enviado para o responavél, informando que um novo cadastro foi realizado. e a mensagem de sucesso é mostrada. Set objeto = CreateObject("Scripting.FileSystemObject") Set escrita = objeto.OpenTextFile(txtPath,ForWriting,True) Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "SO. NET " Mailer.To = "xvhw@petrobras.com.br" Mailer.BodyFormat = 1 Mailer.MailFormat = cdoMailFormatText Mailer.Subject = "Uma nova solicitação de " + tipomanu + " foi realizada" Mailer.Body = "Uma nova Requisição foi feita por " + chave + nome + lotacao + "Entre no SO.NET para consultar!" Mailer.Send Set Mailer = Nothing response.redirect "RequisicaoMaterial_CadOK.asp"end if %>

[majaque 0]

ahh brigadinha..eu tinha duplicadoo e ja tinha dadoo certoo como você me falou...valew mesmo !