<%
Dim fSubmit, formValid, fError, fFirstName, fLastName, fEmail, sCAPTCHA
Dim vtiGroup, company, address1, address2, city, fState, zip, phone_area, phone_number, fax_area, fax_number, planning, patents, copyrights, intl_services, licensing, litigation
fSubmit = Trim(Request("submit"))
formValid = ""
fError = ""
formValid = true
fFirstName = Trim(Request("first_name"))
fLastName = Trim(Request("last_name"))
fEmail = Trim(Request("email"))
vtiGroup = Trim(Request("VTI-GROUP"))
company = Trim(Request("company"))
address1 = Trim(Request("address1"))
address2 = Trim(Request("address2"))
city = Trim(Request("city"))
fState = Trim(Request("applicants_state_of_residence"))
zip = Trim(Request("zip"))
phone_area = Trim(Request("phone_area"))
phone_number = Trim(Request("phone_number"))
fax_area = Trim(Request("fax_area"))
fax_number = Trim(Request("fax_number"))
interested_in = Trim(Request("interested_in"))
sCAPTCHA = Trim(Request("imgverify"))
If ( fSubmit = "Submit" ) Then
recaptcha_challenge_field = Trim(request.Form("recaptcha_challenge_field"))
recaptcha_response_field = Trim(request.Form("recaptcha_response_field"))
recaptcha_confirmStr = recaptcha_confirm(CAPTCHAprivateKey, recaptcha_challenge_field, recaptcha_response_field )
If recaptcha_confirmStr <> "" Then
'response.write("recaptcha_confirmStr = "" """)
fError = "Please Type the words shown in the image below"
Call WriteForm()
Else
'response.write("recaptcha_confirmStr = "& recaptcha_confirmStr)
If ( fFirstName = "" or fLastName = "" or fEmail = "" ) Then
fError = "First name, last name and email address fields are required"
Else
dim destinationEmail, emailSubject, emailBody
'destinationEmail = "conrad@cazarin.com"
destinationEmail = "jgrobe@ljp-iplaw.com"
senderName = fFirstName & " " & fLastName
senderEmail = fEmail
emailSubject = fFirstName & " " & fLastName & " filled out the LJP Contact Form"
emailBody = "" &_
"| Name: | " & fFirstName & " " & fLastName & " | " &_
"| Email: | " & fEmail & " | " &_
"| Company: | " & company & " | " &_
"| Phone: | (" & phone_area & ") " & phone_number & vbCrLf &_
" | | Fax: | (" & fax_area & ") " & fax_number & vbCrLf &_
" | | Mailing Address: | " & vbCrLf &_
"| | " & address1 & " | " &_
"| | " & address2 & " | " &_
"| | " & city & ", " & fState & " | " &_
"| | " & zip & " | " &_
"| Interested In: | " & interested_in & " | " &_
" "
call send_emailHTML(senderName, senderEmail, destinationEmail, emailSubject, emailBody)
Call WriteThankYou()
End If
End If
Else
Call WriteForm()
End If
Sub WriteThankYou()
%>
Request More Information Online
Thanks you for your interest in Leffert Jay & Polglaze - we will be in contact with you soon.
<%
End Sub
Sub WriteForm()
%>
Request
More Information Online
Use
the following form to request further information about
Leffert Jay & Polglaze. Whether you're interested
in a career with our firm or want to learn more about
our services, we will be in touch with you soon to address
your needs! Thanks for visiting us.
All
fields marked with an asterisk (*) are required.
<% If fError <> "" Then %>
<%=fError%>
<% End If %>
<%
End Sub
%>
|
