<% IF Request("Action")="register" THEN '******* '******* Remove breaks '******* FUNCTION RemoveBreaks(tStr) IF (NOT IsNull(tStr)) THEN RemoveBreaks=Replace(tStr,chr(13) & chr(10)," ") END IF END FUNCTION '******* '******* Checks the length of a string to see if it's within the limits '******* Returns an error string if it isn't '******* FUNCTION CheckLEN(tStr,lenMin,lenMax,strError) DIM ttError ttError="" '******* Check length IF IsNull(tStr) THEN tStr="" END IF tStr=Trim(tStr) lenStr=LEN(tStr) IF lenStr" & strError & " too short. Must be at least " & lenMin & " characters." & CRLF END IF IF lenStr>lenMax THEN ttError=ttError & "
  • " & strError & " too long. Must be no more than " & lenMax & " characters.
    • " & CRLF END IF CheckLEN=ttError END FUNCTION Dim Email_to, Name, Address, City, State, Zip, Phone, Email, Fax, regarding, message, pErrorTxt pErrorTxt="" Email_to=Request.Form("Email_to") Select Case Email_to Case "john_kerkhoff" Email_to = "jkerkhoff@kevaeng.com" Case "michael_varat" Email_to = "mvarat@kevaeng.com" Case "stein_husher" Email_to = "shusher@kevaeng.com" Case "christopher_armstrong" Email_to = "carmstrong@kevaeng.com" Case "john_steiner" Email_to = "jsteiner@kevaeng.com" Case "karl_shuman" Email_to = "kshuman@kevaeng.com" Case "susan_lutzweit" Email_to = "susanl@kevaeng.com" Case "admin_question" Email_to = "jkerkhoff@kevaeng.com" Case "billing_question" Email_to = "jkerkhoff@kevaeng.com" Case "new_case_inquiry" Email_to = "mvarat@kevaeng.com" Case Else Email_to = "keva-noEmailonContactasp@honeybeegraphics.com" End Select Name=Request.Form("Name") Address=Request.Form("Address") City=Request.Form("City") State=Request.Form("State") Zip=Request.Form("Zip") Phone=Request.Form("Phone") Email=(Request.Form("Email")) Fax=Request.Form("Fax") Message=RemoveBreaks(Request.Form("Message")) Regarding=Request.Form("Regarding") cEmail=0 If Len(Email) <= 5 Then cEmail=1 End If If InStr(1, Email, "@", 1) < 2 Then cEmail=1 Else If InStr(1,Email, ".", 1) < 4 Then cEmail=1 End If End If If cEmail<>0 then pErrorTxt=pErrorTxt & "
  • Invalid Email Address " End If pErrorTxt=pErrorTxt & CheckLen(message,0,1000,"message") IF pErrorTxt<>"" THEN RegError= "

    There was a problem with the information you submitted:" RegError=RegError & "

      " & pErrorTxt & "
    " RegError=RegError & "Please scroll down to modify your information then click submit to send your message.

    " ELSE %> <% Response.Redirect "/scripts/formmail.asp?Subject="& regarding &"&EMail_To=" & Email_to & "&REQUIRED=Email&REDIRECT=http://www.kevaeng.com&html_email=Yes&Name=" & Name & "&Address=" & Address & "&City=" & City & "&State=" & State & "&Zip=" & Zip & "&Email=" & Email & "&Phone=" & Phone & "&Fax=" & Fax & "®arding=" & regarding & "&message=" & Message & "&SORT=Name,Address,City,State,Zip,Phone,Email,Fax,regarding,message" END IF END IF %> <%=RegError%>
    How To Contact Us
    KEVA Engineering can be reached at the following:
    Main Office
    KEVA Engineering
    840 Calle Plano
    Camarillo, CA 93012
    Phone: (805) 388-6016
    Fax: (805) 388-6046
    Click for map

    To send an email, please fill out the form below.

    To:  

    Select the person or department to send this email to.

    *Name:  
    *Address:  
    *City:  
    *State:     *Zip: 
    *Email:  
    *Phone:  
    Fax:  
    *Regarding/Subject:  
    *Message:
    (Limit 150 words)    		  
       
    *Required Fields