<% geral_sql = "select * from geral" set geral = objconexao.execute(geral_sql) %> <% Empresa = request("Form_Empresa") Endereco = request("Form_Endereco") N = request("Form_N") Complemento = request("Form_Complemento") Bairro = request("Form_Bairro") Cidade = request("Form_Cidade") Uf = request("Form_Uf") Cep = request("Form_Cep") Nome = request("Form_Nome") Fone1 = request("Form_Fone1") Fone2 = request("Form_Fone2") email = request("Form_Email") Atividade = request("Form_Atividade") Filial = request("Form_Filial") FilialLocal = request("Form_Filial_Localidade") Constituicao = request("Form_Constituicao") Tributacao = request("Form_Tributacao") Balanco = request("Form_Balanco") Funcionario = request("Form_Funcionario") Estagiario = request("Form_Estagiario") SocPJN = request("Form_SocPJN") SocPJI = request("Form_SocPJI") SocPFB = request("Form_SocPFB") SocPFE = request("Form_SocPFE") Banco = request("Form_Banco") Cheque = request("Form_Cheque") NF = request("Form_NF") NFE = request("Form_NFE") ImpE = request("Form_ImpE") ConSite = request("Form_ComoConheceu") ServDesejado = request("Form_ServDesejado") Obs = request("Form_Obs") mensagem = "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "" mensagem = mensagem & "

Solicitação de Orçamento
Empresa:	" & Empresa & "
Endereço:	" & Endereco & "
Nº:	" & N & "
Complemento:	" & Complemento & "
Bairro:	" & Bairro & "
Cidade:	" & Cidade & "
UF:	" & Uf & "
Cep:	" & Cep & "
Nome:	" & Nome & "
Fone 1:	" & Fone1 & "
Fone 2:	" & Fone2 & "
Email:	" & Email & "
Ramo(s) de Atividade:	" & Atividade & "
Filial:	" & Filial &" "& FilialLocal & "
Constituição:	" & Constituicao & "
Tributação:	" & Tributacao & "
Balanço:	" & Balanco & "
Funcionários Registrados: (Qt.)	" & Funcionario & "
Estagiários: (Qt.)	" & Estagiario & "
Sócios Pessoa Jurídica Nacional: (Qt.)	" & SocPJN & "
Sócios Pessoa Jurídica Internacional (Qt.)	" & SocPJI & "
Sócios Pessoa Física Brasileira (Qt.)	" & SocPFB & "
Sócios Pessoa Física Estrangeira (Qt.)	" & SocPFE & "
Bancos em que tem conta (Qt.)	" & Banco & "
Cheques emitidos p/mês (Qt.)	" & Cheque & "
Notas fiscais de venda emitidas (p/mês)	" & NF & "
Notas fiscais de Serviço emitidas (p/mês)	" & NFE & "
Importações efetuadas no mês (p/mês)	" & ImpE & "
Como conheceu nosso escritório	" & ConSite & "
Serviços desejados:	" & ServDesejado & "
Observações	" & Obs & "

" mensagem = mensagem & "" '**** Encontra o email autenticado do banco de dados sql_mailx = "select * from geral" set sql_mailx_rs = objconexao.execute(sql_mailx) sql_mail_auth = sql_mailx_rs("email_smtp") sql_pass_auth = sql_mailx_rs("senha_smtp") sql_smtp_auth = sql_mailx_rs("smtp_server") sql_porta_auth = sql_mailx_rs("porta_smtp") Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sql_smtp_auth objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sql_porta_auth objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") =sql_mail_auth objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") =sql_pass_auth objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From=sql_mail_auth objCDOSYSMail.To=geral("orcamento_email") objCDOSYSMail.Subject=geral("titulo")&": Pedido de orçamento enviado pelo site" objCDOSYSMail.HtmlBody=mensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing session("confirmacotacao") = "1" response.redirect "/orcamento" %>