[Resolvido] formulário

[kikopinheiro 0]

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!!!!

 

<!--#include file="db_open.asp"-->
<%

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.<br><br>Equipamento: "& equipamento &"<br>Código: "& codigo &"<br>Número de Série: "& serie &"<br>Descrição 01: "& desc01 &"<br>Descrição 02: "& desc02  &"<br>Descrição 03: "& desc03 &"<br>Descrição 04: "& desc04 &"<br>Descrição 05: "& desc05 &"<br>Descrição 06: "& desc06 &"<br>Descrição 07: "& desc07 &"<br>Descrição 08: "& desc08 &"<br>Descrição 09: "& desc09 &"<br>Descrição 10: "& desc10 &"<br>Código 01: "& cod01 &"<br>Código 02: "& cod02 &"<br>Código 03: "& cod03 &"<br>Código 04: "& cod04 &"<br>Código 05: "& cod05 &"<br>Código 06: "& cod06 &"<br>Código 07: "& cod07 &"<br>Código 08: "& cod08 &"<br>Código 09: " &cod09 &"<br>Código 10: "& cod10 &"<br>Número de Série 01: "& num01 &"<br>Número de Série 02: "& num02 &"<br>Número de Série 03: "& num03 &"<br>Número de Série 04: "& num04 &"<br>Número de Série 05: "& num05 &"<br>Número de Série 06: "& num06 &"<br>Número de Série 07: "& num07 &"<br>Número de Série 08: "& num08 &"<br>Número de Série 09: "& num09 &"<br>Número de Série 10: "& num10 &"<br>Nota Fiscal KTK: "& notafiscal &"<br>N° NF KTK: "& numeronota &"<br>Representação: "& representacaonota &"<br>Razão Social: "& razaosocial &"<br>CNPJ: "& cnpj &"<br>Endereço: "& endereco &"<br>Cidade: "& cidade &"<br>Estado: "& estado &"<br>CEP: "& cep &"<br>Responsável: "& responsavel &"<br>Cargo: "& cargo &"<br>Setor: "& setor &"<br>Telefone: ("& ddd &") "& telefone &"<br>E-mail: "& email &"<br><br>A entrega do(s) produto(s) foi feita com pontualidade em relação ao prazo acordado?<br>Resp: "& entrega_produtos &"<br><br>O(s) produto(s) e o(s) acessório(s) estava(m) de acordo com o pedido?<br>Resp: "& produtos_ok &"<br><br>A instalação do equipamento foi fácil e simples?<br>Resp: "& instalacao_equipamento &"<br><br>O(s) equipamento(s) e acessórios está(ão) funcionando de acordo?<br>Resp: "& produto_estado &"<br><br>Foram fáceis as conexões de acessórios, tubos e cabos?<br>Resp: "& conexoes_acessorios &"<br><br>A nota fiscal está com os seus dados, valores, descrição do produto, quantidade e condição de pagamento, corretos?<br>Resp: "& nota_ok &"<br><br>De 1 a 10, qual a nota geral para os serviços da K. Takaoka?<br>Resp: "& nota &"<br><br>Comente eventual inconveniente ocorrido:<br>"& comentario &"<br><br>Instalação realizada por:"& instalacao_realizada &"<br><br>Data: "& data

corpoMensagem = Replace(corpoMensagem, vbCrLf, "<br />")

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)

%>

[xanburzum 169]

com você esta recuperando esse código do bd, porvavelmente precisará fazer um SQL SELECT e inserir na mensagem do CDOSYS

[kikopinheiro 0]

com você esta recuperando esse código do bd, porvavelmente precisará fazer um SQL SELECT e inserir na mensagem do CDOSYS

 

Olá xanburzum

 

Estou recuperando assim:

'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")

 

O formulário eu pego com objeto chamado corpoMensagem, este monta em HTML as informações do formulário e envia para e-mail. Gostaria de colocar o ID de registro nessa mensagem ou então no subject (não sei se é possível) da mensagem.

 

abços

[xanburzum 169]

você vai inserir na sua mensagem, mais detalhadamente em corpoMensagem , da mesma forma que você inserir e concatenou as variaveis, você coloca ela na mensagem

[kikopinheiro 0]

você vai inserir na sua mensagem, mais detalhadamente em corpoMensagem , da mesma forma que você inserir e concatenou as variaveis, você coloca ela na mensagem

 

Você teria algum exemplo?? Eu tentei e não deu certo...

[xanburzum 169]

você sabe trabalhar com recorset´s ?

[kikopinheiro 0]

Ok, obrigado. Resolvido.