%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.asone.co.uk" ' SMTP Server Name
Mail.FromName = request.form("name") ' Sender's Name
Mail.From = request.form("email") ' Sender's Email
Mail.AddAddress "enquiries@capital-residence.com" ' YOUR Email address
Mail.Subject = request.form("subject")
Mail.Body = "Name : " & request.form("name") & _
vbNewLine _
& "E-Mail Address : " & request.form("email") & _
vbNewLine _
& "Phone Number : " & request.form("phone") & _
vbNewLine _
& "Message : " & request.form("message")
Mail.ContentTransferEncoding = "Quoted-Printable"
On Error Resume Next
Mail.Send
%>
UK Maps Map Road Directions Map Driving directions Uk Maps