<% geral_sql = "select * from geral" set geral = objconexao.execute(geral_sql) %> <% Nome = request("Form_Nome") OAB = request("Form_oab") Endereco = request("Form_Endereco") Telefone = request("Form_Fone1") Celular = request("Form_Fone2") Email = request("Form_Email") Site = request("Form_Site") ComarcaAtuacao = request("Form_comarca") Servicos = request("Form_servicos") Obs = request("Form_Obs") sqlpasta = "insert into tab_correspondente(nome, oab, endereco, tel, cel, email, site, comarca, servicos, obs) values ('"&Nome&"','"&OAB&"', '"&Endereco&"', '"& Telefone &"', '"& Celular &"', '"& Email &"', '"& Site &"', '"& ComarcaAtuacao &"', '"& Servicos &"', '"& Obs &"')" set rstpasta=objconexao.execute(sqlpasta) 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 & "

Cadastro de Correspondentes
Nome:	" & Nome & "
N. OAB:	" & OAB & "
Endereço:	" & Endereco & "
Telefone:	" & Telefone & "
Celular:	" & Celular & "
Email:	" & Email & "
Site:	" & Site & "
Cormarcas de Atuação:	" & ComarcaAtuacao & "
Serviços Selecionados:	" & Servicos & "
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="correspondentes@oabpiracicaba.com.br" objCDOSYSMail.Subject=geral("titulo")&": Cadastro de Correspondentes" objCDOSYSMail.HtmlBody=mensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing session("confirma_correspondentes") = "1" response.redirect "/correspondentes" %>