<%
If (Request("submit") <> "") Then
var_name_1 = Replace(Trim(request.form("name_1")),"'","''")
var_email_1 = Replace(Trim(request.form("email_1")),"'","''")
var_message = Replace(Trim(request.form("message")),"'","''")
msg = ""
msg = msg & "Name: " & var_name_1 & chr(13)
msg = msg & "Email: " & var_email_1 & chr(13)
msg = msg & "Comments: " & var_message & chr(13)
Set objMail = CreateObject("CDONTS.Newmail")
objMail.From = "feathergills.co.uk"
objMail.To = "mail@rhorn.co.uk"
objMail.Subject = "Website Email Form"
objMail.Body = msg
objMail.Send
Set ObjMail = Nothing
Response.Redirect ("thanks_email.html")
End If
%>
Contact Details
|
VISITORS BOOK
|
COMING SOON |
|
