Pessoal. bom dia! preciso de uma pequena ajuda: Tenho um formulário em ASP que está funcionando corretamente, ele grava algumas informações em um banco e envia um e-mail, porém preciso que ele envie também o código deste formulário, este código é gerado pelo banco. O problema é que não consigo pegar esse número e envia-lo por e-mail junto com o formulário. Segue o código: Obrigado pela ajuda!!!! <% equipamento = request("equipamento") codigo = request("codigo") serie = request("serie") desc01 = request("desc01") desc02 = request("desc02") desc03 = request("desc03") desc04 = request("desc04") desc05 = request("desc05") desc06 = request("desc06") desc07 = request("desc07") desc08 = request("desc08") desc09 = request("desc09") desc10 = request("desc10") cod01 = request("cod01") cod02 = request("cod02") cod03 = request("cod03") cod04 = request("cod04") cod05 = request("cod05") cod06 = request("cod06") cod07 = request("cod07") cod08 = request("cod08") cod09 = request("cod09") cod10 = request("cod10") num01 = request("num01") num02 = request("num02") num03 = request("num03") num04 = request("num04") num05 = request("num05") num06 = request("num06") num07 = request("num07") num08 = request("num08") num09 = request("num09") num10 = request("num10") notafiscal = request("notafiscal") numeronota = request("numeronota") representacaonota = request("representacaonota") razaosocial = request("razaosocial") cnpj = request("cnpj") endereco = request("endereco") cidade = request("cidade") estado = request("estado") cep = request("cep") responsavel = request("responsavel") cargo = request("cargo") setor = request("setor") telefone = "("&request("ddd") &") "& request("telefone") email = request("email") entrega_produtos = request("entrega_produtos") produtos_ok = request("produtos_ok") produto_estado = request("produto_estado") instalacao_equipamento = request("instalacao_equipamento") equipamento_funcionando = request("equipamento_funcionando") conexoes_acessorios = request("conexoes_acessorios") nota_ok = request("nota_ok") comentario = request("comentario") instalacao_realizada = request("instalacao_realizada") nota = request("nota") IF request("dia") <> "" AND request("mes") <> "" AND request("ano") <> "" THEN 'Altaração de ordem dia/mes/ano para apresentação e gravação correta data = request("mes") &"/"& request("dia") &"/"& request("ano") campo_data = ",dt_data" valor_data = ",#"& data &"#" END IF imprimir = request("imprimir") campos = "tx_equipamento,tx_codigo,tx_serie,tx_desc01,tx_desc02,tx_desc03,tx_desc04,tx_desc05,tx_desc06,tx_desc07,tx_desc08,tx_desc09,tx_desc10" &_ ",tx_cod01,tx_cod02,tx_cod03,tx_cod04,tx_cod05,tx_cod06,tx_cod07,tx_cod08,tx_cod09,tx_cod10,tx_num01,tx_num02,tx_num03,tx_num04,tx_num05,tx_num06,tx_num07" &_ ",tx_num08,tx_num09,tx_num10,tx_notafiscal,tx_numeronota,tx_representacaonota,tx_razaosocial,tx_cnpj,tx_endereco,tx_cidade,tx_estado,tx_cep,tx_responsavel" &_ ",tx_cargo,tx_setor,nr_telefone,tx_email,tx_entrega_produtos,tx_produtos_ok,tx_produto_estado,tx_instalacao_equipamento,tx_equipamento_funcionando,tx_conexoes_acessorios" &_ ",tx_nota_ok,tx_comentario,tx_instalacao_realizada"&campo_data valores = "'"& equipamento &"','"& codigo &"','"& serie &"','"& desc01 &"','"& desc02 &"','"& desc03 &"','"& desc04 &"','"& desc05 &"','"& desc06 &"'" &_ ",'"& desc07 &"','"& desc08 &"','"& desc09 &"','"& desc10 &"','"& cod01 &"','"& cod02 &"','"& cod03 &"','"& cod04 &"','"& cod05 &"','"& cod06 &"'" &_ ",'"& cod07 &"','"& cod08 &"','"& cod09 &"','"& cod10 &"','"& num01 &"','"& num02 &"','"& num03 &"','"& num04 &"','"& num05 &"','"& num06 &"','"& num07 &"'" &_ ",'"& num08 &"','"& num09 &"','"& num10 &"','"& notafiscal &"','"& numeronota &"','"& representacaonota &"','"& razaosocial &"','"& cnpj &"','"& endereco &"'" &_ ",'"& cidade &"','"& estado &"','"& cep &"','"& responsavel &"','"& cargo &"','"& setor &"','"& telefone &"','"& email &"','"& entrega_produtos &"','"& produtos_ok &"'" &_ ",'"& produto_estado &"','"& instalacao_equipamento &"','"& equipamento_funcionando &"','"& conexoes_acessorios &"','"& nota_ok &"','"& comentario &"','"& instalacao_realizada &"'"&valor_data SET InsValidacao = regs.execute("INSERT INTO TBValidacao ("& campos &") values ("& valores &")") 'Retorna Id_registro inserido para impressão de formulário de validação de garantia ``` Set SelIdReg = regs.execute("SELECT MAX(id_registro) as IDReg from TBValidacao") corpoMensagem = "Segue abaixo o formulário enviado através do site da KTK.

Equipamento: "& equipamento &"
Código: "& codigo &"
Número de Série: "& serie &"
Descrição 01: "& desc01 &"
Descrição 02: "& desc02 &"
Descrição 03: "& desc03 &"
Descrição 04: "& desc04 &"
Descrição 05: "& desc05 &"
Descrição 06: "& desc06 &"
Descrição 07: "& desc07 &"
Descrição 08: "& desc08 &"
Descrição 09: "& desc09 &"
Descrição 10: "& desc10 &"
Código 01: "& cod01 &"
Código 02: "& cod02 &"
Código 03: "& cod03 &"
Código 04: "& cod04 &"
Código 05: "& cod05 &"
Código 06: "& cod06 &"
Código 07: "& cod07 &"
Código 08: "& cod08 &"
Código 09: " &cod09 &"
Código 10: "& cod10 &"
Número de Série 01: "& num01 &"
Número de Série 02: "& num02 &"
Número de Série 03: "& num03 &"
Número de Série 04: "& num04 &"
Número de Série 05: "& num05 &"
Número de Série 06: "& num06 &"
Número de Série 07: "& num07 &"
Número de Série 08: "& num08 &"
Número de Série 09: "& num09 &"
Número de Série 10: "& num10 &"
Nota Fiscal KTK: "& notafiscal &"
N° NF KTK: "& numeronota &"
Representação: "& representacaonota &"
Razão Social: "& razaosocial &"
CNPJ: "& cnpj &"
Endereço: "& endereco &"
Cidade: "& cidade &"
Estado: "& estado &"
CEP: "& cep &"
Responsável: "& responsavel &"
Cargo: "& cargo &"
Setor: "& setor &"
Telefone: ("& ddd &") "& telefone &"
E-mail: "& email &"

A entrega do(s) produto(s) foi feita com pontualidade em relação ao prazo acordado?
Resp: "& entrega_produtos &"

O(s) produto(s) e o(s) acessório(s) estava(m) de acordo com o pedido?
Resp: "& produtos_ok &"

A instalação do equipamento foi fácil e simples?
Resp: "& instalacao_equipamento &"

O(s) equipamento(s) e acessórios está(ão) funcionando de acordo?
Resp: "& produto_estado &"

Foram fáceis as conexões de acessórios, tubos e cabos?
Resp: "& conexoes_acessorios &"

A nota fiscal está com os seus dados, valores, descrição do produto, quantidade e condição de pagamento, corretos?
Resp: "& nota_ok &"

De 1 a 10, qual a nota geral para os serviços da K. Takaoka?
Resp: "& nota &"

Comente eventual inconveniente ocorrido:
"& comentario &"

Instalação realizada por:"& instalacao_realizada &"

Data: "& data corpoMensagem = Replace(corpoMensagem, vbCrLf, "
") ``` Dim objCDOSYSMail Dim objCDOSYSCon 'CRIA A INSTÂNCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "*************" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "****************" 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "********************" 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon 'NOME DO REMETENTE, E-MAIL DO REMETENTE objCDOSYSMail.From = "***************************" 'NOME DO DESINATÁRIO, E-MAIL DO DESINATÁRIO objCDOSYSMail.To = "**********************************" 'ASSUNTO DA MENSAGEM objCDOSYSMail.Subject = "Validacao de Garantia" 'PARA ENVIO DA MENSAGEM NO FORMATO HTML, ALTERE O TextBody PARA HtmlBody objCDOSYSMail.HtmlBody = corpoMensagem 'ENVIA A MENSAGEM objCDOSYSMail.Send 'DESTRÓI OS OBJETOS Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.redirect("default.asp?sec=suporte&subsec=validacao&envio=ok&idreg=" & SelIdReg("IDReg") & "&imprimir=" & imprimir) %>

kikopinheiro

[Resolvido] formulário