<% noab=request("CampNumOab") nome=request("CampNome") senha_site=request("CampSenha") cpf=request("CampCPF") dtnasc=request("CampDtNasc") endereco=request("CampEnd") numero=request("CampNum") complemento=request("CampCompl") bairro=request("CampBairro") cidade = request("CampCid") uf = request("CampUF") cep = request("CampCEP") fone = request("CampFone") inf_tel = request("InfTel") cel=request("CampCel") ope_cel=request("CampOpe1") cel2=request("CampCel2") ope_cel2=request("CampOpe2") email_escr=request("CampEmailEscr") email_pess=request("CampEmailPess") sit_oab=request("CampSitOab") site=request("CampSite") rtoggler=request("toggler") nome_corres=request("CampNomeCorres") fone_corres=request("CampFoneCorres") inf_tel_corres=request("InfTelCorres") cel_corres=request("CampCelCorres") ope1_corres=request("CampOpe1Corres") email_pess_corres=request("CampEmailPessCorres") site_corres=request("CampSiteCorres") comarca_corres=request("Form_comarcaCorres") servicos_corres=request("Form_servicosCorres") obs_corres=request("Form_ObsCorres") rtoggler2=request("toggler2") area_atuacao=request("Form_areaAtuacao") obs_classi=request("Form_ObsClass") 'comentario=replace(request("CampComentario"), VbCrLf, "
") '**** 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="contato@oabpiracicaba.com.br" objCDOSYSMail.Subject="Assunto" objCDOSYSMail.HtmlBody="Nome: " & nome & "
Empresa: " & empresa & "
Email: " & email & "
Fone: " & telefone & "

Mensagem:

" & comentario & "" objCDOSYSMail.Send IPrd_Sql = "update tab_correspondente set nome = '"&nome&"', data_nasc = '"&dtnasc&"', cpf = '"&cpf&"', endereco = '"&endereco&"', numero = '"&numero&"', complemento = '"&complemento&"', bairro = '"&bairro&"', cidade = '"&cidade&"', uf = '"&uf&"', cep = '"&cep&"', tel = '"&fone&"', informe_tel = '"&inf_tel&"', cel = '"&cel&"', operadora_cel = '"&ope_cel&"', cel2 = '"&cel2&"', operadora_cel2 = '"&ope_cel2&"', email = '"&email_escr&"', email_pessoal = '"&email_pess&"', situacao_oab = '"&sit_oab&"', site = '"&site&"', adv_correspondente = '"&rtoggler&"', comarca = '"&comarca_corres&"', obs = '"&obs_corres&"', oab = '"&noab&"', servicos = '"&servicos_corres&"', nome_corresp = '"&nome_corres&"', tel_corresp = '"&fone_corres&"', informe_tel_corresp = '"&inf_tel_corres&"', cel_corresp = '"&cel_corres&"', operadora_corresp = '"&ope1_corres&"', email_corresp = '"&email_pess_corres&"', site_corresp = '"&site_corres&"', senha = '"& senha_site &"', adv_classificado = '"&rtoggler2&"', areaatuacao_classificado = '"&area_atuacao&"', obs_classificado = '"&obs_classi&"' where cod="&session("login_cod")&"" Set IPrd_Rs = Server.CreateObject("ADODB.RecordSet") IPrd_Rs.Open IPrd_Sql, ObjConexao 'Response.redirect "../default2.asp?galerias=admin&ref=Galerias&msg=4&idp="&request("FrmAdpIdp") Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing session("cadastro-editar") = "1" response.redirect "/cadastro-editar" %>