Boyd & Boyd

<% recaptcha_challenge_field = Request("recaptcha_challenge_field") recaptcha_response_field = Request("recaptcha_response_field") recaptcha_public_key = "6LcuDfISAAAAAHQGHkHe2Q2BniNk_iZNXBn0Zy8n" ' your public key recaptcha_private_key = "6LcuDfISAAAAABMU42aXquWKUOc6cETJcOfs0Oun" ' your private key ' returns the HTML for the widget function recaptcha_challenge_writer() recaptcha_challenge_writer = _ "" & _ "" & _ "

" end function ' returns "" if correct, otherwise it returns the error response function recaptcha_confirm(rechallenge,reresponse) Dim VarString VarString = _ "privatekey=" & recaptcha_private_key & _ "&remoteip=" & Request.ServerVariables("REMOTE_ADDR") & _ "&challenge=" & rechallenge & _ "&response=" & reresponse Dim objXmlHttp Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP") objXmlHttp.open "POST", "https://www.google.com/recaptcha/api/verify", False objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objXmlHttp.send VarString Dim ResponseString ResponseString = split(objXmlHttp.responseText, vblf) Set objXmlHttp = Nothing if ResponseString(0) = "true" then 'They answered correctly recaptcha_confirm = "" else 'They answered incorrectly recaptcha_confirm = ResponseString(1) end if end function server_response = "" newCaptcha = True if (recaptcha_challenge_field <> "" or recaptcha_response_field <> "") then server_response = recaptcha_confirm(recaptcha_challenge_field, recaptcha_response_field) newCaptcha = False end if %> <% Dim strOut If Request("ACTION") = "SEND" AND server_response = "" Then strOut = strOut & "*** Boyd & Boyd order property information request." & vbCrLf & vbCrLf strOut = strOut & "Name: " & Request("order_name") & vbCrLf strOut = strOut & "Date: " & Request("order_date") & vbCrLf strOut = strOut & "Email Address: " & Request("order_email") & vbCrLf strOut = strOut & "Company Name: " & Request("order_companyName") & vbCrLf strOut = strOut & "Phone Number: " & Request("order_phoneNumber") & vbCrLf strOut = strOut & "Fax Number: " & Request("order_faxNumber") & vbCrLf strOut = strOut & "Preferred Method of Delivery: " & Request("order_deliveryMethod") & vbCrLf strOut = strOut & "Property Owners: " & Request("order_propertyOwners") & vbCrLf strOut = strOut & "Property Address: " & Request("order_propertyAddress") & vbCrLf strOut = strOut & "Brief Legal Address if known: " & Request("order_legalAddress") & vbCrLf strOut = strOut & "Additional Comments: " & Request("order_comments") & vbCrLf buildEmail = strOut ' SEND EMAIL Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.Silent = True ' JMail.ContentType = "text/html" JMail.ServerAddress = "mail.socket.net" ' JMail.AddRecipient Recipient("EmailAddress") JMail.AddRecipient "chad@boydtitle.com" JMail.AddRecipient "brianb@boydtitle.com" JMail.AddRecipientBCC "emily@caledonvirtual.com" ' JMail.AddRecipientBCC "nelly@caledonvirtual.com" JMail.Sender = Request.Form("order_email") JMail.SenderName = Request.Form("order_name") JMail.Subject = "*** Boyd & Boyd Order Property Information Sheet" JMail.Body = buildEMail If JMail.Execute Then ' strOut = "Sent" Else ' strOut = "Failed" End If Set JMail = Nothing sendMail = strOut '****************** 'CONFIRMATION EMAIL '****************** strOut = Request("order_name") & ", " & vbCrLf & vbCrLf strOut = strOut & "In regards to:" & vbCrLf & vbCrLf strOut = strOut & "Property Owner:" & Request("order_propertyOwners") & vbCrLf strOut = strOut & "Property Address:" & Request("order_propertyAddress") & vbCrLf & vbCrLf strOut = strout & "Your request has been received and will be processed as soon as possible. Thank you for your order. We appreciate your business." & vbCrlf & vbCrLf strOut = strOut & "Boyd & Boyd" & vbCrLf buildEmail = strOut 'SEND EMAIL Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.Silent = True 'JMail.ContentType = "text/html" JMail.ServerAddress = "mail.socket.net" 'JMail.AddRecipient Recipient("EmailAddress") JMail.AddRecipient Request.Form("order_email") 'JMail.AddRecipient "brian@boydtitle.com" 'JMail.AddRecipientBCC "nelly@caledonvirtual.com" JMail.AddRecipient "chad@boydtitle.com" JMail.AddRecipient "brianb@boydtitle.com" JMail.AddRecipientBCC "emily@caledonvirtual.com" JMail.Sender = "brian@boydtitle.com" JMail.SenderName = "Boyd & Boyd" JMail.Subject = "*** Boyd & Boyd order property information confirmation" JMail.Body = buildEMail If JMail.Execute Then 'strOut = "Sent" Else 'strOut = "Failed" End If Set JMail = Nothing sendMail = strOut End If %>

► Overview of Title Insurance

► Overview of the Closing Process

► Order Title Insurance

► Request Closing

► Order Property information Sheet

► Link to Streamline

► For more information, questions, or comments, please contact us.

You may have known our building as Ponderosa, among other restaurants, but now 204 E. 5 th St. has found a new life as the home of Boyd & Boyd, Inc.

► Learn More

<% if server_response <> "" or (newCaptcha = True or newCaptcha = False) then %> <% IF Request("ACTION") = "SEND" AND server_response <> "" Then %>

CAPTCHA text you write is not correct.Please type again.

<% END IF %> <% If Request("ACTION") = "SEND" AND server_response = "" Then %>

Thank you. Your order will be processed shortly.

<% ELSE %>

" method="post" name="order_form">

Name:	">
Date:	">
Email Address:	">
Company Name:	">
Phone Number:	">
Fax Number:	">
Preferred Method of Delivery:	">
Property Owners:	">
Property Address:	">
Brief Legal Address if known:	">
Additional Comments:	">

<%=recaptcha_challenge_writer()%>

<% End If End IF %>