<% dim arquivo arquivo = session("arquivo") caminho = Server.MapPath("curriculo") caminho = caminho & "/" & arquivo geral_sql = "select * from geral" set geral = objconexao.execute(geral_sql) %> <% Nome = request("Form_Nome") Idade = request("Form_Idade") Civil = request("Form_Civil") Instituicao = request("Form_Instituicao") Semestre = request("Form_sem") tel = request("telefone") cel = request("celular") email = request("email") Periodo = request("Form_Periodo") Veiculo = request("Form_Veiculo") Obs = request("Form_Obs") sqlpasta = "insert into tab_estagio(nome, idade, civil, instituicao, semestre, tel, cel, email, periodo, veiculo, obs) values ('"&Nome&"', '"&Idade&"', '"&Civil&"', '"&Instituicao&"', '"& Semestre &"', '"& tel &"', '"& cel &"', '"& email &"', '"& Periodo &"', '"& Veiculo &"', '"& 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 & "" mensagem = mensagem & "

Cadastro de Classificados
Nome:	" & Nome & "
Idade:	" & Idade & "
Estado Civil:	" & Civil & "
Instituição de Ensino:	" & Instituicao & "
Semestre:	" & Semestre & "
Telefone:	" & tel & "
Celular:	" & cel & "
Email:	" & email & "
Periodo Livre:	" & Periodo & "
Veiculo próprio:	" & Veiculo & "
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="centraldeestagio@oabpiracicaba.com.br" objCDOSYSMail.Subject=geral("titulo")&": Central de Estágios" objCDOSYSMail.HtmlBody=mensagem '----------------linha onde vai anexar o arquivo ao e-mail '----------------Anexando arquivos no corpo do e-mail if arquivo <> "" then objCDOSYSMail.AddAttachment(caminho) end if '----------------Apagando arquivos do Servidor '----------------DeleteFile caminho1 objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing session("confirma_estagio") = "1" response.redirect "/estagios" %>