<%
if Request("selected") <> "" then
Dim from,subject,mailbody
SendEmail
end if
corpomensagem = "Olá " & Request("FriendName") & ",
Seu amigo " & Request("YourName") & " indicou o site da Peduti Sociedade de Advogados - Propriedade Intelectual.
Não deixe de visitar-nos em www.peduti.com.br
Atenciosamente, Equipe Peduti"
function SendEmail
GetSettings
'Response.Write(from&subject&mailbody&Request("FriendEmail"))
'Response.End()
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = from
objCDOMail.To = Request("FriendEmail")
objCDOMail.Subject = subject
objCDOMail.BodyFormat=0
objCDOMail.MailFormat=0
objCDOMail.Body = "Olá " & Request("FriendName") & ",
Seu amigo " & Request("YourName") & " indicou o site da Peduti Sociedade de Advogados - Propriedade Intelectual.
Não deixe de visitar-nos em www.peduti.com.br
Atenciosamente, Equipe Peduti"
objCDOMail.Send
Set objCDOMail = Nothing
end function
function SendJmailEmail
GetSettings
Set JMail = Server.CreateObject("JMail.Message")
JMail.From = from
JMail.Subject =subject
JMail.AddRecipient Request("FriendEmail")
JMail.Body = "Olá " & Request("FriendName") & ",
Seu amigo " & Request("YourName") & " indicou o site da Peduti Sociedade de Advogados - Propriedade Intelectual.
Não deixe de visitar-nos em www.peduti.com.br
Atenciosamente, Equipe Peduti"
JMail.Send( "localhost" ) 'Change localhost to correspond with your mail server
Set Jmail=nothing
end function
function GetSettings
mailbody=""
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.validateOnParse=True
objXML.load(Server.MapPath("send_friend_email.xml"))
set objNodeXML=objXML.documentElement
mailbody=objNodeXML.selectSingleNode("body").Text
subject=objNodeXML.selectSingleNode("subject").Text
from=objNodeXML.selectSingleNode("from").Text
Set objXML = Nothing
mailbody=replace(mailbody,"#FriendName#",Request("FriendName"))
mailbody=replace(mailbody,"#YourName#",Request("YourName"))
mailbody=replace(mailbody,"#Link#",Request("ref"))
end function
%>
::: Peduti Sociedade de Advogados :::
