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