Thank you.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim oEmail, Err Set oEmail = Server.Createobject("Dynu.Email") oEmail.Host = "mail.pathfinderpublications.com" oEmail.AddAddress Request("FriendsEmail") oEmail.From = "info@pathfinderpublications.com" oEmail.Subject = "Web Site Recommendation from " & Request("YourName") oEmail.Body = "Hi" & Request("FriendsName")& VbCrlf &VbCrlf & Request("YourName") & " has recommended you visit http://www.pathfinderpublications.com " & VbCrlf & VbCrlf& Request("Message") oEmail.SetPriority(1) %> Thank you.

EditRegion4

<% If oEmail.Send() Then Response.write("") Else Response.write("") End If Set oEmail = nothing %>

Thank you. An email has been sent to your friend.

« Home

Home	About Us	Products	Contact Us	Terms & Conditions	Useful Links	Articles	Portals
All Rights Reserved Copyright (c) 2006 Pathfinder Publications Limited