<% noab=request("CampNumOab") senha_site=request("CampSenha") nome=request("CampNome") 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="suporte01@tbrweb.com.br" objCDOSYSMail.Subject="Assunto" objCDOSYSMail.HtmlBody="Nome: " & nome & "
Empresa: " & empresa & "
Email: " & email & "
Fone: " & telefone & "

Mensagem:

" & comentario & "" objCDOSYSMail.Send IPrd_Sql = "Insert into tab_correspondente (nome, data_nasc, cpf, endereco, numero, complemento, bairro, cidade, uf, cep, tel, informe_tel, cel, operadora_cel, cel2, operadora_cel2, email, email_pessoal, situacao_oab, site, adv_correspondente, comarca, obs, oab, servicos, nome_corresp, tel_corresp, informe_tel_corresp, cel_corresp, operadora_corresp, email_corresp, site_corresp, senha,adv_classificado,areaatuacao_classificado,obs_classificado) values('"&nome&"', "&dtnasc&", '"& cpf &"', '"& endereco &"', '"& numero &"', '"& complemento &"', '"& bairro &"', '"& cidade &"', '"& uf &"', '"& cep &"', '"& fone &"', '"& inf_tel &"', '"& cel &"', '"& ope_cel &"', '"& cel2 &"', '"& ope_cel2 &"', '"& email_escr &"', '"& email_pess &"', '"& sit_oab &"', '"& site &"', '"& rtoggler &"', '"& comarca_corres &"', '"& obs_corres &"', '"& noab &"', '"& servicos_corres &"', '"& nome_corres &"', '"& fone_corres &"', '"& inf_tel_corres &"', '"& cel_corres &"', '"& ope1_corres &"', '"& email_pess_corres &"', '"& site_corres &"', '"& senha_site &"','"&rtoggler2&"', '"&area_atuacao&"', '"&obs_classi&"')" 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-msg") = "1" response.redirect "/cadastro" %>