<%
' 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
%>
Dealer Locator
