Contact Us
" End If If Len(Request.Form("Address")) > 0 Then fAddress = Request.Form("Address") Else strMessage = strMessage & "[»] You did not enter your street address.
" End If If Len(Request.Form("City")) > 0 Then fCity = Request.Form("City") Else strMessage = strMessage & "[»] You did not enter your city.
" End If If Len(Request.Form("State")) > 0 Then fState = Request.Form("State") Else strMessage = strMessage & "[»] You did not enter your state.
" End If If Len(Request.Form("Zip")) > 0 Then fZip = Request.Form("Zip") Else strMessage = strMessage & "[»] You did not enter your zip code.
" End If If Len(Request.Form("Email")) > 0 Then fEmail = Request.Form("Email") If Instr(fEmail, "@") = 0 Or Instr(fEmail, ".") = 0 Or Instr(fEmail, " ") > 0 Or Len(fEmail) < 7 Then strMessage = strMessage & "[»] Your email address appears to be invalid.
" End If Else strMessage = strMessage & "[»] You did not enter your email address.
" End If If Len(Request.Form("Phone")) > 0 Then fPhone = Request.Form("Phone") Else strMessage = strMessage & "[»] You did not enter your phone number.
" End If If Len(Request.Form("HowFound")) > 0 Then fHowFound = Request.Form("HowFound") Else strMessage = strMessage & "[»] You did not select a way that you found our site.
" End If If Len(Request.Form("LegalMatter")) > 0 Then fLegalMatter = Request.Form("LegalMatter") Else strMessage = strMessage & "[»] You did not select your type of legal matter.
" End If If Len(Request.Form("Description")) > 0 Then fDescription = Request.Form("Description") Else strMessage = strMessage & "[»] You did not enter a description of your incident.
" End If If Request.Form("Disclaimer") = "Yes" Then fDisclaimer = Request.Form("Disclaimer") Else strMessage = strMessage & "[»] You did not accept the contact form disclaimer." End If If Len(strMessage) = 0 Then on error resume next Set objCDONTS = Server.CreateObject("CDONTS.NewMail") objCDONTS.From = fSender objCDONTS.To = fRecipient 'objCDONTS.BCC = objCDONTS.Subject = "Contact Form Response From " & strSiteURL strBody = "The following information was submitted:" & vbCrLf strBody = strBody & "-----------------------" & vbCrLf strBody = strBody & "Date: " & FormatDateTime(Date, 1) & vbCrLf strBody = strBody & "-----------------------" & vbCrLf strBody = strBody & "Time: " & FormatDateTime(Now, 3) & vbCrLf strBody = strBody & "-----------------------" & vbCrLf strBody = strBody & "Name: " & fName & vbCrLf & vbCrLf strBody = strBody & "Address: " & vbCrLf & fAddress & vbCrLf & fCity & ", " & fState & " " & fZip & vbCrLf & vbCrLf strBody = strBody & "Email: " & fEmail & vbCrLf & vbCrLf strBody = strBody & "Phone: " & fPhone & vbCrLf & vbCrLf strBody = strBody & "How they found the site: " & fHowFound & vbCrLf & vbCrLf strBody = strBody & "Type Of Legal Matter: " & fDate & vbCrLf & vbCrLf strBody = strBody & "Description Of Incident: " & vbCrLf & fDescription & vbCrLf & vbCrLf strBody = strBody & "Disclaimer Accepted: " & fDisclaimer & vbCrLf & vbCrLf strBody = strBody & "-----------------------" & vbCrLf strBody = strBody & "Please contact this person within 2 business days. Thank you!" objCDONTS.Body = strBody objCDONTS.Send Set objCDONTS = Nothing %>
Thank you! Your submission was successful!
You submitted the following information on
<%= FormatDateTime(Date, 1) %> at <%= FormatDateTime(Now, 3) %>:
Address:
<%= fAddress %>
<%= fCity %>, <%= fState %> <%= fZip %>
Email: <%= fEmail %>
Phone: <%= fPhone %>
How You Found Us: <%= fHowFound %>
Type Of Legal Matter: <%= fLegalMatter %>
Description Of Incident:
<%= fDescription %>
Someone from our offices will be contacting you shortly.
Please click here to return to our homepage and continue browsing!
Your submission was not successful.
The following information was missing:
<%= strMessage %>
6 Hutton Centre, Suite 1150
South Coast Metro, CA 92707
PH 714-241-1919
Fax 714-241-1199
Email info@qwllp.com

