The Law Offices of Harvey Sohnen

<% Set dictFormError = Server.CreateObject("scripting.dictionary") Set varMail = Server.CreateObject("CDONTS.NewMail") varErrorMessage = "" If (Request.Form.Count() > 0) Then varName = Trim(Request.Form("Name")) varAddress = Trim(Request.Form("Address")) varCity = Trim(Request.Form("City")) varState = Trim(Request.Form("State")) varZip = Trim(Request.Form("Zip")) varPhone = Trim(Request.Form("Phone")) varEmail = Trim(Request.Form("Email")) varComments = Trim(Request.Form("Comments")) If (Trim(Request.Form("Name"))="") Then dictFormError("Name") = "*" End If If Not((InStr(Trim(Request.Form("Email")),"@") > 0 AND InStr(Trim(Request.Form("Email")),".") > 0)) Then dictFormError("Email") = "*" varEmail = "Invalid Email" End If If dictFormError.Count > 0 Then varErrorMessage = "Please complete missed fields marked with an asterisk (*)" Else strEmail = strEmail & "**************************************************" & vbCRLF strEmail = strEmail & "Contact Us Mailer" & vbCRLF & vbCRLF strEmail = strEmail & "Name: "& varName & vbCRLF If Not(varMailing = "") Then strEmail = strEmail & "Mailing: " & varMailing & vbCRLF End If If Not(varContactMe = "") Then strEmail = strEmail & "ContactMe: " & varContactMe & vbCRLF End If If Not(varTitle = "") Then strEmail = strEmail & "Title: " & varTitle & vbCRLF End If If Not(varCompany = "") Then strEmail = strEmail & "Company: " & varCompany & vbCRLF End If If Not(varAddress1 = "") Then strEmail = strEmail & "Address1: " & varAddress1 & vbCRLF End If If Not(varAddress2 = "") Then strEmail = strEmail & "Address2: " & varAddress2 & vbCRLF End If If Not(varCity = "") Then strEmail = strEmail & "City: " & varCity & vbCRLF End If If Not(varState = "") Then strEmail = strEmail & "State: " & varState & vbCRLF End If If Not(varZip = "") Then strEmail = strEmail & "Zip Code: " & varZip & vbCRLF End If If Not(varPhone = "") Then strEmail = strEmail & "Phone: " & varPhone & vbCRLF End If If Not(varEmail = "") Then strEmail = strEmail & "Email: " & varEmail & vbCRLF End If If Not(varComments = "") Then strEmail = strEmail & "Comments: " & varComments & vbCRLF End If strEmail = strEmail & vbCRLF & "**************************************************" & vbCRLF varMail.Send "info@fairpaycal.com", "netlaw@pacbell.net", "Contact Information", strEmail, 1 Set varMail = Nothing Response.Redirect("thankyou.asp") End If End If %> The Law Offices of Harvey Sohnen | Contact Us

The Law Offices of Harvey Sohnen | Contact Us

Law Offices of Sohnen & Kelly
2 Theatre Square, Suite 230
Orinda, CA 94563-3346

Phone: (925) 258-9300
Fax: (925) 258-9315

Email: info@fairpaycal.com

Hours: 9am - 5pm, Monday through Friday.

	Contact Us Form Please Note: This form is to assist you in contacting us about employment law matters involving employment either in California or for a California company. All fields in bold type are required.
	Name:
	Address:
	City, State:	,
	Zip:
	Phone:
	Email:
	Comments/Questions:

Last updated: 6/15/2005