<% Action = Left(UCase(Request("Action")),4) fm_name = request.form("fm_name") fm_email = request.form("fm_email") IF Action = "SEND" AND fm_name <> "" and fm_email <> "" THEN Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = fm_name Mailer.FromAddress = fm_email Mailer.RemoteHost = "custmail.s7systems.com" Mailer.Encoding = 2 Mailer.AddRecipient "info@cheapwc.com","info@cheapwc.com" Mailer.AddBCC "jason@jestec.com","jason@jestec.com" Mailer.Subject = "Contact Us Request" strBody = strBody & "Contact form submitted to Rick Johnson Insurance on " & NOW & Chr(13) & Chr(10) & Chr(13) & Chr(10) strBody = strBody & "Contact: " & fm_name & Chr(13) & Chr(10) strBody = strBody & "Business: " & request("fm_biz") & Chr(13) & Chr(10) strBody = strBody & "City: " & Request("fm_city") & Chr(13) & Chr(10) strBody = strBody & "Email: " & fm_email & Chr(13) & Chr(10) strBody = strBody & "Phone: " & Request("fm_phone") & Chr(13) & Chr(10) strBody = strBody & "Time to Call: " & Request("fm_time") & Chr(13) & Chr(10) strBody = strBody & "Comments: " & Request("fm_comments") & Chr(13) & Chr(10) Mailer.BodyText = strBody Mailer.SendMail Response.Redirect "thankyou.htm" END IF %> Contact Us

Rick Johnson Insurance values its relationship with its clients and would love to hear from you. Please feel free to contact us on how we can continue to serve you better.

You can email us, or phone our office. Or if you prefer, you can go ahead and fill out this online form. Someone from our staff will get back to you as soon as possible.


Contact Name: 
Business Name: 
City: 
Email Address: 
Daytime Phone: 
Best time to call: 

What can we do for you?






Copyright 2001 Rick Johnson Insurance   www.cheapwc.com    Fax: 925 370-8042   Tel: (800) 640-4005   Lic # 0551190