<% if Request("selected") <> "" then Dim from,subject,mailbody SendJmailEmail end if function SendJmailEmail GetSettings Set JMail = Server.CreateObject("JMail.Message") JMail.From = from JMail.Subject =subject JMail.AddRecipient Request("FriendEmail") JMail.Body = Mailbody JMail.Send( "smtp-au.server-mail.com" ) '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("xml/emailpage.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 %> KLINGER Australia : Compression Packings & Gaskets

Email Webpage

<%if Request("selected")="" then%>
Your name
Your email address
Recipients name
Recipients email address
" />
<%else%>
Thank you
<%end if%>