<< #display catpage /display /# #display Tname.varDetails1 /display /# #display daRow[8] /display /# #display Tname.varDetails2 /display /# farmid=REPLACEALL(farmid,'"','') farmid=REPLACEALL(farmid,"'","") FDHTM.dbname="/apps/dbcons/produce/MemInfo" FDHTM.db2name="/apps/dbcons/produce/AllCommod" FDHTM.db1_query = 'prodmemIDinfo="' + FarmID + '"' FDHTM.db1_results=DBSearch(FDHTM.dbname,FDHTM.db1_query,1,10) #FDHTM.db1_results=DBSearch(FDHTM.dbname,FDHTM.db1_query,1,10)/# #display FDHTM.db1_results /display /# FDHTM.allIDs = GETCOL(FDHTM.db1_results,2) FDHTM.sstr = 'SearchMembers=|"' + colToList(FDHTM.allIDs," ") + '"' FDHTM.db2_results=DBSEARCH(FDHTM.db2name,FDHTM.sstr,1,1000)>>
back

Farm Details
<NJFB Produce Membership Number is: 20010" /display display farmID /display>> 		<>
<< FOR NAME=FDHTM.db1_results ROWNAME=FDHTM.daRow DO FDHTM.mycommods=GETCOLEQ(FDHTM.db2_results,3,FDHTM.daRow[2]) FDHTM.mydetails=FDHTM.mycommods FDHTM.mycommods1=GETCOL(FDHTM.mycommods,4) # These are the Crop names /# FDHTM.mycommods2=GETCOL(FDHTM.mycommods,5) # These are the Crop acreage /# FDHTM.mycommods3=GETCOL(FDHTM.mycommods,6) # This is the Other text/# #FDHTM.mycommods=COLTOLIST(FDHTM.mycommods,'   •  ')/# FDHTM.mycommods=MERGE(FDHTM.mycommods1,FDHTM.mycommods2) FDHTM.mycommods=MERGE(FDHTM.mycommods,FDHTM.mycommods3) FDHTM.mycommods=SORTCOL(FDHTM.mycommods,1) /FOR IF FDHTM.daRow[4]>"0" then # Second address or name logic /# FDHTM.darow[3] = FDHTM.darow[4] FDHTM.darow[26] = FDHTM.darow[27] FDHTM.darow[23] = FDHTM.darow[24] FDHTM.darow[32] = FDHTM.darow[33] FDHTM.varLocationFlag = "Retail Address:" ELSE FDHTM.darow[3] = FDHTM.darow[3] FDHTM.darow[26] = FDHTM.darow[26] FDHTM.darow[23] = FDHTM.darow[23] FDHTM.darow[32] = FDHTM.darow[32] FDHTM.varLocationFlag = "" /IF IF FDHTM.daRow[12]>"0" then FDHTM.darow[13] = FDHTM.darow[12] ELSE /IF # End Second address or name logic /# IF FDHTM.daRow[6] ="0" then #Coop logic /# FDHTM.varCoop = "" Else FDHTM.varCoop = "Co Op" /IF IF FDHTM.daRow[15]="0" then #Grading logic /# FDHTM.varGrading = "" FDHTM.daRow[16]="" Else FDHTM.varGrading ="

Jersey Fresh Grading:
" /IF IF FDHTM.daRow[19] ="0" then #Org var set /# FDHTM.varOrganic = "" Else FDHTM.varOrganic = "Organic Certified = Yes" /IF IF FDHTM.daRow[22] ="0" then #Retail market var set /# FDHTM.varRetail = "No" Else FDHTM.varRetail = "Yes" /IF IF FDHTM.daRow[30]>"0" then #Value Added logic /# FDHTM.varValAdded ="
Value Added Products:
" Else FDHTM.varValAdded ="" /IF IF FDHTM.daRow[28]>"0" then #U-pick logic /# FDHTM.varUPick ="'

Pick Your Own:
" Else FDHTM.varUPick ="" /IF IF FDHTM.daRow[31]>"0" then # URL var and logic /# FDHTM.varURL ="WebSite" Else FDHTM.varURL="" FDHTM.varURL2="" /IF IF FDHTM.daRow[10]>"0" then # Email var and logic /# FDHTM.varEMAIL ="Send E-mail" Else FDHTM.varEMAIL="" FDHTM.varEMAIL2="" /IF FDHTM.varYear= GETYEAR(today,"short") # format date to cut out time (open/closed)/# FDHTM.vardaRow9=CHOPRIGHT(FDHTM.daRow[9], FDHTM.varYear) FDHTM.vardaRow7=CHOPRIGHT(FDHTM.daRow[7], FDHTM.varYear) DISPLAY ''+ ''+ '
Farm Name Specialties Products / Acreage
'+FDHTM.varLocationFlag+ '
'+ FDHTM.daRow[13]+ '
'+ FDHTM.daRow[3]+ '
'+ FDHTM.daRow[26]+ ", "+ FDHTM.daRow[23]+ " "+ FDHTM.daRow[32]+ '
' + FDHTM.daRow[34]+' COUNTY

'+ FDHTM.daRow[5]+ '
'+ FDHTM.daRow[20]+'
Fax: '+FDHTM.daRow[14]+'
'+FDHTM.varEMAIL+FDHTM.daRow[10]+FDHTM.varEMAIL2+'
'+ FDHTM.varURL + FDHTM.daRow[31] + FDHTM.varURL2+ '

Farming Since: '+FDHTM.daRow[21]+'
Total Acreage: '+FDHTM.daRow[25]+'
'+FDHTM.varCoop+ '
 '+FDHTM.varOrganic+'

Retail Farm Market: '+FDHTM.varRetail+'
Open   :            '+FDHTM.vardaRow9+ '
Closed:          '+FDHTM.vardaRow7 + '
' + FDHTM.daRow[35]+ '		'+FDHTM.daRow[11]+'
'+FDHTM.varValAdded+FDHTM.daRow[30]+FDHTM.varGrading+ FDHTM.daRow[16]+FDHTM.varUPick+FDHTM.daRow[28]+'		' /DISPLAY DISPLAY '' /DISPLAY FOR NAME=ae.i VALUE=1 TO ROWS(FDHTM.mycommods) DO #If FDHTM.mycommods[1,ae.i]="Other Crop" then Specialty Items - acreage changes FDHTM.mycommods[2,ae.i]="(see below)" /IF /# If FDHTM.mycommods[1,ae.i]="Other Crop" then FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i] FDHTM.mycommods[2,ae.i]="varies" /IF If FDHTM.mycommods[1,ae.i]="Other Culinary" then FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i] FDHTM.mycommods[2,ae.i]="varies" /IF If FDHTM.mycommods[1,ae.i]="Other Medicinal" then FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i] FDHTM.mycommods[2,ae.i]="varies" /IF If FDHTM.mycommods[1,ae.i]="Other Veg" then FDHTM.mycommods[1,ae.i]=FDHTM.mycommods[3,ae.i] FDHTM.mycommods[2,ae.i]="varies" /IF If FDHTM.mycommods[1,ae.i]="Painted Pumpkins" then FDHTM.mycommods[2,ae.i]="(varies)" /IF If FDHTM.mycommods[1,ae.i]="Pies" then FDHTM.mycommods[2,ae.i]="(varies)" /IF If FDHTM.mycommods[1,ae.i]="Preserves" then FDHTM.mycommods[2,ae.i]="(varies)" /IF If FDHTM.mycommods[1,ae.i]="Christmas Trees" then FDHTM.mycommods[2,ae.i]="(varies)" /IF If FDHTM.mycommods[1,ae.i]="Baby vegetables" then FDHTM.mycommods[2,ae.i]="(varies)" /IF If FDHTM.mycommods[2,ae.i]="0" then FDHTM.mycommods[2,ae.i]="n/a" /IF DISPLAY '' /DISPLAY /FOR DISPLAY '
' + ''+ FDHTM.mycommods[1,ae.i] + '    ' + ''+ FDHTM.mycommods[2,ae.i] + '
' /DISPLAY >>


 
<< # FDHTM.DBName = "" FDHTM.DB2Name = "" FDHTM.DB1_query = "" FDHTM.DB_fieldlist = "" FDHTM.DB1_results = "" FDHTM.DB2_results = "" FDHTM.AllIDS = "" FDHTM.sstr = "" FDHTM.mycommods = "" FDHTM.darow = "" FDHTM.DBresults = "" FDHTM.DBresults2 = "" /# >>