<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.asone.co.uk" ' SMTP Server Name
Mail.FromName = request.form("useremail") ' Sender's Name
Mail.From = request.form("useremail") ' Sender's Email
Mail.AddAddress request.form("friendemail") ' YOUR Email address
Mail.Subject = "Capital Residence - Homes For Sale By Owner "
Mail.Body = "You have been invited by " & request.form("useremail") & _
vbNewLine _
& "to visit the Capital Residence website at www.capital-residence.com" & _
vbNewLine _
& _
vbNewLine _
& "Click the link below to see the property that your friend thought you might like." & _
vbNewLine _
& "http://www.capital-residence.com/buy_property/details.asp?ID=" & request.form("ID") & _
vbNewLine _
& _
vbNewLine _
& "Capital Residence - Homes For Sale By Owner" & _
vbNewLine _
& _
vbNewLine _
& "Sell Your Home" & _
vbNewLine _
& "Sell your property privately anywhere in the UK for only £49.99 and pay no commission fees. We offer a complete service and advertise your property to millions of buyers on the UK`s top property web sites." & _
vbNewLine _
& _
vbNewLine _
& "House Hunting?" & _
vbNewLine _
& "Browse our property listings and register your requirements to receive automatic email updates when suitable properties become available." & _
vbNewLine _
& _
vbNewLine _
& "Need a mortgage?" & _
vbNewLine _
& "We can help with expert mortgage advice and tailor made mortgage solutions sourced from the UK leading mortgage lenders."
Mail.ContentTransferEncoding = "Quoted-Printable"
On Error Resume Next
Mail.Send
%>
Sending E-Mail...