<% Dim Vfname Dim Vlname Dim Vcname Dim Vphone Dim Vemail Dim Vaddress Dim Vaddress2 Dim Vcity Dim Vstate Dim Vzip Dim Vcountry Dim Vfax Dim Vgov Dim Vhotel Dim Vequip Dim Vcontractor Dim Vocean_beach Dim Vlake_beach Dim Vlandscaping Dim Vhorse Dim Vmilitary Dim Vsludge Dim Vother Dim Vcomments Dim blnIsValid, strValidationMessage Dim blnIsPostBack Sub Page_Load () 'Execute code that should run when the page first 'loads here. Also a great place to check the 'IsValid/IsPostBack properties we'll be examining shortly 'Check to see if the user has arrived at this page by 'submitting back from the form. If isEmpty(Request("Submit")) Then blnIsPostBack = False Else blnIsPostBack = True End If end sub call Page_Load () '******************************************************************* Private function RequiredFieldValidator (val, name) ' This function validates that the passed-in field has a value. RequiredFieldValidator = "" if isNull(val) or Len(Trim(val)) = 0 then ' If no value was entered for this field pass back an error message. RequiredFieldValidator = "You must fill in " & _ name & ".
" & vbCrLf end if end function Private function ValidateFormValues() ' This function validates the user entry if the page is being posted back ' and returns True if the data validates and False if there are errors. ' Grab the values for the fields that we wish to validate. First_Name = Request.form("FName") Last_Name = Request.form("LName") Company = Request.form("CName") Phone = Request.form("Phone") Email = Request.form("Email") country = Request.form("country") Organization= Request.form("Organization") Address = Request.form("Address") City = Request.form("City") Zip = Request.form("Zip") State = Request.form("State") ' Compile a validation message. strValidationMessage = strValidationMessage & RequiredFieldValidator(First_Name, "First Name") strValidationMessage = strValidationMessage & RequiredFieldValidator(Last_Name, "Last Name") strValidationMessage = strValidationMessage & RequiredFieldValidator(Organization, "Organization") strValidationMessage = strValidationMessage & RequiredFieldValidator(Phone, "Phone") strValidationMessage = strValidationMessage & RequiredFieldValidator(Email, "Email") strValidationMessage = strValidationMessage & RequiredFieldValidator(country, "Country") strValidationMessage = strValidationMessage & RequiredFieldValidator(City, "City") strValidationMessage = strValidationMessage & RequiredFieldValidator(State, "State") strValidationMessage = strValidationMessage & RequiredFieldValidator(Zip, "Zip") strValidationMessage = strValidationMessage & RequiredFieldValidator(Address, "Address") 'strValidationMessage = strValidationMessage & RequiredFieldValidator(Machine, "Machine") 'strValidationMessage = strValidationMessage & RequiredFieldValidator(Business, "Business") ' Check to see if errors occurred. if len( strValidationMessage ) < 1 then ValidateFormValues = True else ValidateFormValues = False end if response.write strValidationMessage end function ' Get a value for our Page.IsValid property a central Validator function if (blnIsPostBack) then blnIsValid = ValidateFormValues() end if if blnIsValid then 'response.write "in isvalide
" Vfname = Request.Form("FName") Vlname = Request.Form("LName") VOrganization= Request.Form("Organization") Vphone = Request.Form("Phone") Vemail = Request.Form("Email") Vaddress = Request.Form("Address") Vaddress2 = Request.Form("Address2") Vcity = Request.Form("City") Vstate = Request.Form("State") Vzip = Request.Form("Zip") Vcountry = Request.Form("country") Vbusiness = Request.Form("Business") Vfax = Request.Form("Fax") Vgov = Request.Form("gov") Vhotel = Request.Form("hotel") Vequip = Request.Form("equip") Vcontractor = Request.Form("contractor") Vocean_beach = Request.Form("ocean_beach") Vlake_beach= Request.Form("lake_beach") Vgolf = Request.Form("golf") Vlandscaping = Request.Form("landscaping") Vhorse = Request.Form("horse") Vmilitary = Request.Form("military") Vsludge = Request.Form("sludge") Vother = Request.Form("other") Vyesno = Request.Form("yesno") Vbrand = Request.Form("brand") Vcomments = Request.Form("Comments") strHost = "exchange" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = "win2krelay.safemailserver.com" 'Mail.Host = "mail.mizumedia.com" 'strHost 'Mail.From = "info@cherrington.net" Mail.From = Request.form("Email") Mail.FromName = "Cherrrington Web Contact Form" ' optional 'Mail.AddAddress Request.form("ToAddress") Mail.AddAddress "beaches@cherrington.net" 'Mail.AddAddress "dawn@mizumedia.com" ' message subject Mail.Subject = "Request info from Cherrington Web Site" ' message body Mail.Body = "" Mail.Body = Mail.Body & "First Name: " & vFname Mail.Body = Mail.Body & "
Last Name: " & vLname Mail.Body = Mail.Body & "
Organization: " & VOrganization Mail.Body = Mail.Body & "
Phone: " & vPhone Mail.Body = Mail.Body & "
Email: " & vEmail Mail.Body = Mail.Body & "
Country: " & vCountry Mail.Body = Mail.Body & "
Address: " & Vaddress Mail.Body = Mail.Body & Vaddress2 Mail.Body = Mail.Body & "
City: " & vCity Mail.Body = Mail.Body & "
State: " & VState Mail.Body = Mail.Body & "
Zip/Postal Code: " & vZip Mail.Body = Mail.Body & "
Fax: " & vFax Mail.Body = Mail.Body & "

Please check your intended area of use:" if len(vgov) > 0 then Mail.Body = Mail.Body & "
Goverment Municipality" end if if len(vhotel) > 0 then Mail.Body = Mail.Body & "
Hotel-Resort" end if if len(vequip) > 0 then Mail.Body = Mail.Body & "
Equipment Distribution" end if if len(vcontractor) > 0 then Mail.Body = Mail.Body & "
Contractor" end if Mail.Body = Mail.Body & "

Please check your intended applications:" if len(vocean_beach) > 0 then Mail.Body = Mail.Body & "
Ocean Beach" end if if len(vlake_beach) > 0 then Mail.Body = Mail.Body & "
Lake Beach" end if if len(vgolf) > 0 then Mail.Body = Mail.Body & "
Golf Course Construction " end if if len(vlandscaping) > 0 then Mail.Body = Mail.Body & "
Landscaping " end if if len(vmilitary) > 0 then Mail.Body = Mail.Body & "
Gunnery, Artillery Ranges" end if if len(vsludge) > 0 then Mail.Body = Mail.Body & "
Sludge Drying Beds" end if if len(vother) > 0 then Mail.Body = Mail.Body & "
Other" end if if len(vyesno) > 0 then Mail.Body = Mail.Body & "

own/represent Brand Name: " & vbrand end if Mail.Body = Mail.Body & "

Brand Name of Cleaner that I Own: " & vbrand Mail.Body = Mail.Body & "

Comments: " & vcomments 'Mail.Body = Mail.Body & "" Mail.IsHTML = true strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True response.Redirect ("thankyou.html") End If end if %> <% if blnIsValid then 'response.write "name caluc= " & Request.Form("FName") url="" url = url & "contactapps.pl?FName=" & Request.Form("FName") url = url & "&LName=" & Request.Form("LName") url = url & "&CName=" & Request.Form("CName") url = url & "&Phone=" & Request.Form("Phone") url = url & "&Address=" & Request.Form("Email") url = url & "&Email=" & Request.Form("Address2") url = url & "&City=" & Request.Form("City") url = url & "&State=" & Request.Form("State") url = url & "&Zip=" & Request.Form("Zip") url = url & "&country=" & Request.Form("country") url = url & "&fax=" & Request.Form("fax") url = url & "&gov=" & Request.Form("gov") url = url & "&hotel=" & Request.Form("hotel") url = url & "&equip=" & Request.Form("equip") url = url & "&contractor=" & Request.Form("contractor") url = url & "&ocean_beach=" & Request.Form("ocean_beach") url = url & "&lake_beach=" & Request.Form("lake_beach") url = url & "&golf=" & Request.Form("golf") url = url & "&landscaping=" & Request.Form("landscaping") url = url & "&horse=" & Request.Form("horse") url = url & "&military=" & Request.Form("military") url = url & "&sludge=" & Request.Form("sludge") url = url & "&other=" & Request.Form("other") url = url & "&yesno=" & Request.Form("yesno") url = url & "&brand=" & Request.Form("brand") url = url & "&Comments=" & Request.Form("Comments") 'logit() 'response.write "url =
" & url 'response.Redirect (url) end if %>
HomeSpecificationsView Cherrington ProductsEspañol
 
Company Information

Cherrington Beachcleaners have their roots in the manufacturing tradition of the Great Midwest, utilizing time-tested technologies and the very best method of sifting sand -- screening out debris and undesirable objects while putting the sand back on the beach.

In 2002, Cherrington got even better!
On January 1, 2002, the Cherrington Beachcleaner line was acquired by Harley Enterprises Inc, a sister corporation to Glenmac Inc, home of the Harley Landscape Rakes and Rock Screeners.

A great line of beachcleaning equipment now has become even better through the enhancement of an ownership with larger marketing, design, and engineering facilities.

Watch for and contact us for new ideas and applications of the growing Cherrington by Harley product line of ultimate site preparation tools. The complete Harley product line can be seen at http://www.glenmac.com.

Beach Cleaner
PO Box V, Fairfax, MN 55332 | (800) 966-1588 | (507) 426-7261
Fax: (507) 426-7263 | beaches@cherrington.net
© Copyright, 2006-2008, Cherrington
See our cleaners in action!