%Option Explicit%>
<%
Dim Obj_Email, Mensagem
if Request.QueryString("Acao") = "Enviar" then
Set Obj_Email = Server.CreateObject("CDONTS.NewMail")
Obj_Email.From = Trim(Request.Form("Inp_Email"))
Obj_Email.To = "faserra@faserra.edu.br"
' Obj_Email.To = "monica@morrodomoreno.com.br"
Obj_Email.Subject = "Envio de Currículo"
Obj_Email.MailFormat = 0
Obj_Email.BodyFormat = 0
Mensagem = "
"
Mensagem = Mensagem & "A seguinte pessoa enviou seu currículo pelo site da Faserra: "
Mensagem = Mensagem & "Nome..........: " & Request.Form("Inp_Nome") & " "
Mensagem = Mensagem & "Nascimento....: " & Request.Form("Inp_Idade") & " "
Mensagem = Mensagem & "Email.........: " & Request.Form("Inp_Email") & " "
Mensagem = Mensagem & "Telefone......: " & Request.Form("Inp_DDD_Tel") & " " & Request.Form("Inp_Tel") & " "
Mensagem = Mensagem & "Celular.......: " & Request.Form("Inp_DDD_Cel") & " " & Request.Form("Inp_Cel") & " "
Mensagem = Mensagem & "Rua...........: " & Request.Form("Inp_Rua") & " "
Mensagem = Mensagem & "Número........: " & Request.Form("Inp_Num") & " "
Mensagem = Mensagem & "Complemento...: " & Request.Form("Inp_Comple") & " "
Mensagem = Mensagem & "Bairro........: " & Request.Form("Inp_Bairro") & " "
Mensagem = Mensagem & "Cidade........: " & Request.Form("Inp_Cidade") & " "
Mensagem = Mensagem & "Estado........: " & Request.Form("Sel_UF") & " "
Mensagem = Mensagem & "Instrução.....: " & Request.Form("grau_instrucao") & " "
Mensagem = Mensagem & "Formação......: " & Request.Form("principal_formacao") & " "
Mensagem = Mensagem & "Objetivo......: " & Request.Form("Inp_Objetivo") & " " & " "
Mensagem = Mensagem & "Experiência Profissional: "
Mensagem = Mensagem & "Empresa.......: " & Request.Form("Inp_Empresa1") & " "
Mensagem = Mensagem & "Cargo.........: " & Request.Form("Inp_Cargo1") & " "
Mensagem = Mensagem & "Período Ini...: " & Request.Form("Inp_Perido_1A") & " "
Mensagem = Mensagem & "Período Fim...: " & Request.Form("Inp_Perido_1B") & " "
Mensagem = Mensagem & "Realizações...: " & Request.Form("Txt_Realizacoes1") & " " & " "
Mensagem = Mensagem & "Empresa.......: " & Request.Form("Inp_Empresa2") & " "
Mensagem = Mensagem & "Cargo.........: " & Request.Form("Inp_Cargo2") & " "
Mensagem = Mensagem & "Período Ini...: " & Request.Form("Inp_Perido_2A") & " "
Mensagem = Mensagem & "Período Fim...: " & Request.Form("Inp_Perido_2B") & " "
Mensagem = Mensagem & "Realizações...: " & Request.Form("Txt_Realizacoes2") & " " & " "
Mensagem = Mensagem & "Empresa.......: " & Request.Form("Inp_Empresa3") & " "
Mensagem = Mensagem & "Cargo.........: " & Request.Form("Inp_Cargo3") & " "
Mensagem = Mensagem & "Período Ini...: " & Request.Form("Inp_Perido_3A") & " "
Mensagem = Mensagem & "Período Fim...: " & Request.Form("Inp_Perido_3B") & " "
Mensagem = Mensagem & "Realizações...: " & Request.Form("Txt_Realizacoes3") & " " & " "
Mensagem = Mensagem & "Idiomas.......: " & Request.Form("Txt_Idiomas") & " "
Mensagem = Mensagem & "Cursos........: " & Request.Form("Txt_Cursos") & " "
Mensagem = Mensagem & "Adicionais....: " & Request.Form("Txt_Adicionais") & " " & " "
Mensagem = Mensagem & "
"
Obj_Email.Body = Mensagem
Obj_Email.Send
Set Obj_Email = Nothing
Set Obj_Email = Server.CreateObject("CDONTS.NewMail")
Obj_Email.From = "faserra@faserra.edu.br"
Obj_Email.To = Trim(Request.Form("Inp_Email"))
'Obj_Email.To = "monica@morrodomoreno.com.br"
Obj_Email.Subject = "Envio de Currículo - Resposta Automática"
Obj_Email.MailFormat = 0
Obj_Email.BodyFormat = 0
Mensagem = ""
Mensagem = Mensagem & "Agradecemos seu interesse em trabalhar com a Faserra. "
Mensagem = Mensagem & "Analisaremos seu currículo, "
Mensagem = Mensagem & "e caso haja alguma oportunidade, entraremos em "
Mensagem = Mensagem & "contato para marcar entrevista. "
Mensagem = Mensagem & "Faserra"
Mensagem = Mensagem & "
"
Obj_Email.Body = Mensagem
Obj_Email.Send
Set Obj_Email = Nothing
end if
%>
FASERRA - Centro de Ensino Superior Serrano S/A
Trabalhe
Conosco
----------------------------------------------------
A Faculdade FASERRA, uma instituição que é
referência regional, abre este espaço para
os profissionais que desejam se juntar a essa trajetória
de sucesso no Ensino Superior de Qualidade. Preencha as
informações abaixo e passe a integrar nosso
cadastro.
Calendário
Letivo
+
Clique aqui e veja mais.
_____________________________________________________________________________________________
ENDEREÇO
Rua Ipatinga, 82,
Barcelona, Serra - ES, Cep.: 29.166-210, Anexo ao Colegio Alternativo
Barcelona