<% ' Dim variables dim msg dim zip, zip2, market DIM crop 'set local variables zip = Request.Form("zip") zip2 = Request.Form("zip2") market = Request.Form("market") msg = "
" if Request.Form("submit") = "Submit" then msg= "Success" 'check for market if len(market) < 1 then msg = "Please select a market." end if 'check for zip code if len(zip) < 1 then if len(zip2) < 1 then msg = "Please enter a valid Postal Code" else zip = zip2 end if else zip2 = "" end if if msg = "Success" then msg = "" ' See how many crops we've got for this market Set rs = GetMarketCropsRs(Request.Form("market")) ' If the market has more than one crop choose from a list of crops ' otherwise just show the dealers if rs.RecordCount > 1 then crop = "True" else Response.Redirect("results.asp?crop_OID=" & BinToString(rs.Fields("web_crop_OID")) & "&zip=" & zip) end if end if end if %>

Find a Distributor Links Contact Us Home		Please select a growing region:   California, Coastal   California, Central Valley   Central Southwest   Desert Southwest   Pacific Northwest    Rocky Mountain States
	Terms & Conditions  · Site Tips  ·