<% 'CUT AND PASTE ALL OF THE BELOW INTO THE LAYOUT'S CONTENT AREA FOR THE SITE IN QUESTION %> <% If Len(Request.Form("submit")) > 0 Then viewform = "" fDisclaimer = "" If Len(Request.Form("Name")) > 0 Then fName = Request.Form("Name") Else strMessage = strMessage & "[»] You did not enter your name.
" 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("Date")) > 0 Then fDate = Request.Form("Date") Else strMessage = strMessage & "[»] You did not enter the date of your incident.
" End If If Len(Request.Form("Place")) > 0 Then fPlace = Request.Form("Place") Else strMessage = strMessage & "[»] You did not enter the place where your incident occured.
" 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 & "Date Of Incident: " & fDate & vbCrLf & vbCrLf strBody = strBody & "Place Of Occurence: " & fPlace & 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) %>:

Someone from our offices will be contacting you shortly.

Please click here to return to our homepage and continue browsing!

<% Else 'UNSUCCESSFUL. PUT THE UNSUCCESSFUL MESSAGE HERE. %>

Your submission was not successful.

The following information was missing:

<%= strMessage %>

<% End If End If %> <% If Len(viewForm) > 0 Then %>
<% End If %> <% If (Len(Request.Form("Submit")) > 0 AND Len(strMessage) > 0) OR Len(viewForm) > 0 Then %>

Name: Address: City ST Zip E-mail address: Phone: How did you find us? selected<% End If %>>Please choose an option - - - - - - - - - - selected<% End If %>>Google selected<% End If %>>MSN selected<% End If %>>AOL selected<% End If %>>Yahoo selected<% End If %>>Other Search Engine - - - - - - - - - - selected<% End If %>>PreferredConsumer.com selected<% End If %>>Other Legal Site - - - - - - - - - - selected<% End If %>>Friend/Family selected<% End If %>>Other Referral selected<% End If %>>Just Browsing

Date of Incident: Place of Occurence: Tell us what happened: <%= fDescription %>

DISCLAIMER: The materials included in this website are for general informational purposes only and are not legal advice. Information on our website is not intended to create, and receipt of it does not constitute, an attorney-client relationship. No person should act upon this information without seeking advice from professional counsel. Please do not send us confidential information until you speak with one of our lawyers and get authorization to send that information to us.

I have read the disclaimer and understand the terms set forth:
checked<% End If %>> Yes   "Yes" Then %>checked<% End If %>> No

<% End If %>

Contact Us