<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If request.Form("email1")<>"" then
Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP")
xml.Open "GET", "http://www.biocana.com.br/admin/curriculo/detalhecurriculo.asp?id=" & request.QueryString("id") , False
xml.Send
corpo=xml.responseText
Set eObjMail = Server.CreateObject("Persits.MailSender")
eObjMail.Host = "localhost"
eObjMail.From = "rh@biocana.com.br"
eObjMail.FromName = "Biocana"
eObjMail.IsHTML = True
if request.Form("email1")<>"" then
eObjMail.AddReplyTo request.Form("email1"), request.Form("email1")
eObjMail.AddAddress request.Form("email1"), request.Form("email1")
end if
if request.Form("email2")<>"" then
eObjMail.AddReplyTo request.Form("email2"), request.Form("email2")
eObjMail.AddAddress request.Form("email2"), request.Form("email2")
end if
if request.Form("email3")<>"" then
eObjMail.AddReplyTo request.Form("email3"), request.Form("email3")
eObjMail.AddAddress request.Form("email3"), request.Form("email3")
end if
eObjMail.Subject = "Curriculo Biocana"
eObjMail.Body = corpo
eObjMail.Send
Set eObjMail = nothing
%>
Curriculo enviado com sucesso!
<%
response.End()
end if
%>
Enviar Noticia