<% if request("enviar") <> "" then Set Fso = CreateObject("Scripting.FileSystemObject") Set ObjFile = Fso.GetFile(Server.MapPath("/") & "\www.rdmec.ind.br") Set objStream = ObjFile.OpenAsTextStream(1,false) While Not ObjStream.AtEndOfStream Linha = Linha & ObjStream.Readline Wend objStream.Close linha = replace(linha,"[Nome]",request("txtnome")) linha = replace(linha,"[eMail]",request("txtemail")) linha = replace(linha,"[Codigo]",request("txtCodigo")) linha = replace(linha,"[DDD]",request("txtDDD")) linha = replace(linha,"[Telefone]",request("txtTelefone")) linha = replace(linha,"[Cidade]",request("txtCidade")) linha = replace(linha,"[Estado]",request("cmbEstado")) linha = replace(linha,"[Pais]",request("txtPais")) linha = replace(linha,"[Nascimento]",request("txtNascimento")) linha = replace(linha,"[Formacao]",request("txtFormacao")) linha = replace(linha,"[Instituicao]",request("txtInstituicao")) linha = replace(linha,"[Experiencia]",request("txtExperiencia")) linha = replace(linha,"[Linguas]",request("txtLinguas")) linha = replace(linha,"[Apresentacao]",request("txtApresentacao")) set objStream = nothing set Fso = nothing set objFile = nothing set objEmail = Server.CreateObject("Persits.MailSender") 'objEmail.Username = "site@rdmec.ind.br" 'objEmail.Password = "" objEmail.Host = "localhost" objEmail.From = "rdmec@task.com.br" objEmail.FromName = request("txtnome") objEmail.Subject = "Trabalhe conosco - Via site" objEmail.Body = Linha objEmail.AddAddress "martuse@gmail.com" objEmail.IsHTML = True objEmail.Port = 25 if request("txtFile") <> "" then objEmail.AddAttachment(request("txtFile")) end if objEmail.Send() msg = "Seus dados foram enviados com sucesso." end if %> RD MEC
 

 

Nome
E-mail
Telefone
Cidade
Estado   País:
Nascimento
Formação
Instituição
Experiência
Linguas
Apresentação
Currículo


 

 

<%if msg <> "" then%> <%end if%>