New Jersey Produce Directory Data reported below, last updated <>	<> << # calculate some summary data /# # total number of records: dbresults[5,1] /# db5_totalrecords=dbResultsCountName[5,1] DISPLAY "" /DISPLAY >> Summary Report Total Records: " + db5_totalrecords + "
Find a Farm by Name Choose from the dropdown list below, and press select. <<#db1_mysearchName="a"/#>> <> <<# /#>> << DISPLAY "" /DISPLAY DISPLAY LAYOUT(PopulatefarmBox,'',[1]) /DISPLAY DISPLAY "" /DISPLAY >> <Please try another town. " /DISPLAY Else FOR NAME=db1_resultsName ROWNAME=daRow DO mycommods=GETCOLEQ(db2_resultsName,3,darow[8]) mydetails=mycommods mycommods=GETCOL(mycommods,4) mycommods=SORTCOL(mycommods,1) mycommods=COLTOLIST(mycommods,'   -  ') # mydetails=GETCOLEQ(db2_results,2,darow2[8]) myDetails=GETCOL(db2_results,6) myDetails=SORTCOL(myDetails,1) myDetails=COLTOLIST(mydetails,' ? ') /# IF daRow[16]>"0" then #Grading logic /# Fname.varGrading =" Jersey Fresh Grading: " Else Fname.varGrading = "" /IF IF daRow[10]>"0" then #Value Added logic /# Fname.varValAdded =" Value Added Products: " Else Fname.varValAdded ="" /IF IF daRow[14]>"0" then #U-pick logic /# Fname.varUPick ="' Pick Your Own: " Else Fname.varUPick ="" /IF If daRow[3]>"0" then Fname.varCity=", " Fname.varDetails1='Farm Details' Else Fname.varCity="" Fname.varDetails1="" Fname.varDetails2="" /IF IF daRow[17] ="0" then #Retail market var set /# byfarmname.varRetail = "Retail Available = No" Else byfarmname.varRetail = "Retail Available = Yes" /IF If db5_totalrecords = "" then byfarmname.varRetail = "" /IF DISPLAY ''+ ''+ ''+ ''+ '' /DISPLAY myDetails = "" /FOR /IF >> Farm Name Specialties Products '+ byfarmname.varRetail +' '+ daRow[1]+ ' '+ daRow[2]+ ' '+ daRow[3]+ Fname.varCity + daRow[4]+ ' '+ daRow[5]+ ' '+ daRow[7]+ ' '+ daRow[6]+' '+ Fname.varDetails1+darow[8]+Fname.varDetails2+' '+daRow[13]+' '+Fname.varValAdded+daRow[10]+Fname.varGrading+ daRow[16]+Fname.varUPick+daRow[14]+' '+mycommods+' '+ mydetails[6]+' <>