<%@LANGUAGE="VBSCRIPT"%> <% 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 else CheckCAPTCHA = False end if End Function %>

<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then strCAPTCHA = Trim(Request.Form("strCAPTCHA")) if CheckCAPTCHA(strCAPTCHA) = true then Set myEmailObject = Server.CreateObject("CDO.Message") 'myEmailObject.BodyFormat = 0 'myEmailObject.MailFormat = 0 myEmailObject.To = "stephen.m@mortgages-online.co.uk" myEmailObject.CC = request("email") myEmailObject.BCC = "sjmcaneaney@yahoo.com" myEmailObject.From = request("email") myEmailObject.Subject = "Mortgage Enquiry" myEmailObject.HTMLBody = "

Mortgage Enquiry Form
Your information is treated in the strictest confidence and will never be passed to third parties.
Title
First name
Surname
Postcode
email address
Contact Number
Date of Birth
Enquiry Type	..... First time Buyer Home Mover Re-Mortgage Buy to Let Purchase Buy to Let Remortgage
Loan Amount
Deposit
	enter image

Mortgages-Online
Dear "+request("title")+" "+request("surname")+" Thank you for your enquiry which has been passed to one of our mortgage advisers. Please find below a copy of the information that was provided. Should any of this be incorrect then we may not be able to contact you, in which case please contact us either by telephone on 0115 7270702 or resubmit your enquiry form at mortgages-online.co.uk We look forward to helping you. Mortgages-Online
Information provided:
Title	"+request("title")+"
First Name	"+request("firstname")+"
Suname	"+request("surname")+"
Email	"+request("email")+"
Postcode	"+request("postcode")+"
Contact Number	"+request("telephone")+"
DoB	"+request("dob")+"
Enquiry Type	"+request("enquiry_type")+"
Loan Amount	"+request("mortgage_amount")+"
Deposit or Equity	"+request("deposit_equity")+"

" myEmailObject.Send myEmailObject.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server myEmailObject.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "213.171.216.114" 'Server port (typically 25) myEmailObject.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 myEmailObject.Configuration.Fields.Update Set myEmailObject = Nothing %> Submitted. A confirmation email has been sent to you <% else %> Not Verified. Press the back button on your browser <% end if end if %>