Contact Us

<% DIM intSection, strError, objMail, strSubject, strRecipients, strBody strError = "" intSection = Request.QueryString("s") IF intSection = "1" THEN IF LEN(TRIM(Request.Form("Name"))) = 0 THEN strError = strError & "
Name" IF LEN(TRIM(Request.Form("Email"))) = 0 THEN strError = strError & "
Email Address" IF LEN(TRIM(Request.Form("Phone"))) = 0 THEN strError = strError & "
Phone Number" IF LEN(TRIM(Request.Form("Comments"))) = 0 THEN strError = strError & "
Comments" If Not Request.Form("verify_them")=Request.Form("verify_num") then strError = strError & "

Security code entered is not the same as the one displayed.


" IF strError <> "" THEN Response.Write "ERROR - Please Go Back and enter the following:" & strError ELSE set objMail = Server.CreateObject("CDO.Message") strSubject = "Contact from Ferrari Club of America Desert Region Website by: " & Request.Form("Name") strRecipients = "mondialt@cox.net, allenfaulkner@msn.com, daveb@pacorsouthwest.com, bdssr@aol.com, webmaster@lmg411.com" strBody = "" for i = 1 to Request.Form.Count - 1 strBody = strBody & "" & Request.Form.Key(i) & ": " & Request.Form.Item(i) & "
" next objMail.To = strRecipients objMail.From = "website_contact@ferrariaz.com" objMail.Subject = strSubject objMail.HTMLBody = "

New Message from the Ferrari AZ Website!

" & strBody objMail.Send Response.Write "

Thank you for contacting us!

" set objMail = Nothing END IF ELSE %>

Name:
Email:
Address:
City:
State:	Select a State Alabama Alaska Arizona Arkansas California Colorado Connecticut District of Columbia Delaware Flordia Georgia Hawaii Iowa Idaho Illinois Indiana Kansas Kentucky Louisiana Maine Maryland Massachusetts Michigan Minnesota Mississippi Missouri Montana Nebraska Nevada New Hampshire New Jersey New Mexico New York North Carolina North Dakota Ohio Oklahoma Oregon Pennsylvania Rhode Island South Carolina South Dakota Tennessee Texas Utah Vermont Virginia Washington West Virginia Wisconsin Wyoming    Zip:
Phone:
Comments:
Please enter the following security code in the box below: (code is case sensitive) <% Dim strVerify(11) strVerify(11) = gen_pass(10) Response.Write "" For i = 1 to 10 strVerify(i) = Mid(strVerify(11),i,1) Response.Write "" Next %>

<% END IF %>