<%@LANGUAGE="VBSCRIPT"%>
J'AMORI - Mail
<%
if Request("selected") <> "" then
Dim from,subject,mailbody
SendEmail
end if
function SendEmail
'GetSettings
'Response.Write(from&subject&mailbody&Request("FriendEmail"))
'Response.End()
Set objCDOMail = Server.CreateObject("CDO.message")
objCDOMail.From = Request("YourEmail")
objCDOMail.To = "marketing@jamori.com"
objCDOMail.Subject = Request("Subject")
objCDOMail.TextBody = Request("YourName")&" wrote:"& chr(13) & Request("Message")
objCDOMail.Send
Set objCDOMail = Nothing
end function
function GetSettings
mailbody=""
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.validateOnParse=True
objXML.load(Server.MapPath("xml/my_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"))
mailbody=replace(mailbody,"#message#",Request("Message"))
end function
%>
