<%
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
