<%@LANGUAGE="VBSCRIPT"%> <% Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 %> <% Dim ObjMail Dim ObjMailReceipt Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True 'Check if form submitted Dim sendEmail sendEmail = Request("SendMSG") IF sendEmail = "Send" then 'Perform validation check to see if all the required fields were filled out Dim myTitle, myFirstName, mySurname, strEmailEmail, myTel, myEmail, myMessage Dim validation validation = failed myTitle = Request.Form("myTitle") myFirstName = Request.Form("myFirstName") mySurname = Request.Form("mySurname") myTel = Request.Form("myTel") myEmail = Request.Form("myEmail") myMessage = Request.Form("myMessage") IF myFirstName <> "" AND mySurname <> "" AND myTel <> "" AND myEmail <> "" AND myMessage <> "" THEN 'We passed our validation checks so perform the following.... Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort ' send mail through Pipeten webform (Sheffield) .Item(cdoSMTPServer) = "dwebform.pipeten.co.uk" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Request.Form("myEmail") .To = "legalandproperty@hamiltonwatt.co.uk" .Subject = "Enquiry" Dim HTMLbody HTMLbody = "" HTMLbody = HTMLbody & "" HTMLbody = HTMLbody & "" HTMLbody = HTMLbody & "" HTMLbody = HTMLbody & "

" HTMLbody = HTMLbody & "

Enquiry

" HTMLbody = HTMLbody & "

" 'MESSAGE HTMLbody = HTMLbody & "

" & Replace(Request("myMessage"),Chr(13),"
") & "

" HTMLbody = HTMLbody & "

" 'SENDERS CONTACT DETAILS HTMLbody = HTMLbody & "

Contact Details

" HTMLbody = HTMLbody & "

Name: " & Request("myTitle") & " " & Request("myFirstName") & " " & Request("mySurname") & "
" HTMLbody = HTMLbody & "Tel: " & Request("myTel") & "
" HTMLBody = HTMLBody & "Email: " & Request("myEmail") & "

" HTMLbody = HTMLbody & "

" HTMLbody = HTMLbody & "" HTMLbody = HTMLbody & "" 'Wrap up .BodyPart.ContentTransferEncoding = "quoted-printable" .HTMLbody = HTMLbody .Send End With Set cdoMessageReceipt = Nothing Set cdoConfigReceipt = Nothing Response.Redirect "emailconfirm.asp" ELSE 'we did not pass our validation check so alert the user validation = failed Response.Redirect "emailerror.asp" END IF END IF else CheckCAPTCHA = False end if End Function %> Contact Us | Hamilton Watt & Co. Legal and Property Agents, Aberdeen, Scotland

Take the right road

Hamilton Watt & Co welcome your enquiries. Contact us and let us know what we can do.

Your Details

Title

Firstname

Please provide your first name.

Second name

Please provide your second name.

Telephone number

Please provide your daytime telephone number so we can contact you.

Email address

Please provide your email address.

This is not a valid email address.

Your Enquiry

Message

Please type a message.

Submit

Please verify the numbers you see displayed in the image below.

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = false then Response.Redirect "emailerror.asp" end if end if %>

Hamilton Watt & Co.

4 Bon Accord Crescent, Aberdeen, AB11 6DH

Phone: 01224 586685
Fax: 01224 586686

[ Top ]

A stack of pebbles on a beach

Hamilton Watt & Co.

Hamilton Watt & Co.
4 Bon Accord Crescent
Aberdeen
AB11 6DH

Phone: 01224 586685

Fax: 01224 586686