<%@language=vbscript codepage=65001 %> <% option explicit dim laag,taal,taid,plek,klan,munt,blad,odmi laag=2 plek="as" klan="web" taal="EN" munt="USD" blad="05001" odmi=munt if len(request.cookies("munt"))=3 and plek="AS" then odmi=request.cookies("munt") %> <% '2016.02.11 '2018.07.31 key functie '2018.11.29 rein,f_0,f_n '2018.01.24 f_g '2019.09.09 ireg 2: +À-ž '2021.11.17 alsw en alst:t2=0 '2022.05.20 max '2025.03.28 alsv dim pop,dbpad dbpad= "../data/" pop=pof(laag) function pof(byval il) dim it,ip for it=1 to il ip=ip & "../" next pof=ip end function function rein(byval ix,iy) 'iy: 0:web, 1:A0+, 2:AO, 3:0.0, 4:-0, 5:0 '2016.01.27 '2017.07.08 trim toegevoegd '2018.05.02 f_db dim ireg select case iy case 0:ireg="[\""\<\>\%\\\/\!\#]" case 1:ireg="[\""\<\>\%\\\/\!\#\?\$\^\*]" ' case 2:ireg="[^a-zA-Z0-9\s\.\-_ ]" 'zonder accenten case 2:ireg="[^a-zA-Z0-9À-ž\s\.\-_ ]" 'met accenten case 3:ireg="[^0-9\.-]" case 4:ireg="[^0-9\-]" case 5:ireg="[^0-9]" end select dim objRegExp: set objRegExp=new RegExp with objRegExp .Pattern=ireg .IgnoreCase=True .Global=True end with 'rein=trim(objRegExp.replace(ix," ")) if not isnull(ix) then rein=trim(objRegExp.replace(ix,"")) else rein="" 'if 22 then rein=rein*1 set objRegExp=nothing end function function max(w1,w2,w3) max=w1 if isnumeric(w1) and isnumeric(w2) and isnumeric(w3) then if (w1-w2)*w3<0 then max=w2 end if end function function alsw(byval t1,t2,t3) alsw=t3 'if isnumeric(t1) then if t1>0 then if isnumeric(t2) then alsw=t2 else alsw=t1 if isnumeric(t1) then if t1>0 then alsw=t2 end function function alsv(byval t1,t2,t3,t4) alsv=t4 if t1=t2 then alsv=t3 end function function alst(byval t1,t2,t3) alst=t3 if len(t1)>0 then if len(t2)>0 then alst=t2 else alst=t1 end function function vw_t(byval it) if len(it)>0 then vw_t=it else vw_t=null end function function iif(ia,ua1,ua2) if ia then iif=ua1 else iif=ua2 end function function f_0(x) f_0=x if not isnumeric(x) then f_0=0 end function function f_n(x) f_n=x if len(f_n)=0 then f_n=null end function function f_db(byval x,y) if len(x)=0 then if y=0 then f_db=null else f_db="null" else f_db=x if y=2 then f_db="'"&ix&"'" end if end function function x_t(byval x,y) x=rein(x,y mod 6) if y>5 then y="'" else y="" if len(x)>0 then x_t=y&x&y else x_t="null" end function function code_vq(ic) if len(ic)>4 then code_vq=left(ic,2)&"."&mid(ic,3,3)&"."&right(ic,3) end function function nu nu=right(year(now),2)&right("0"&month(now),2)&right("0"&day(now),2) end function function date_vq(ic) if len(ic)>0 then date_vq=left(ic,2)&"."&mid(ic,3,2)&"."&right(ic,2) end function function geld_vq(ic) geld_vq=replace(replace(formatnumber(ic,2),"."," "),",",".") end function function f_g(ic) if ic="" or isnull(ic) then exit function select case instr(ic,".") case 0: f_g=ic&".00" case len(ic)-2 :f_g=ic case else: f_g=left(ic&"00",instr(ic,".")+2) end select end function function wigt_vq(ic) wigt_vq=replace(replace(formatnumber(ic,1),"."," "),",",".") end function function coor_vq(ic) if len(ic)>4 then coor_vq=left(ic,2)&"."&mid(ic,3,3)&alst(mid(ic,6,1)," "&right(ic,1),"") end function function bit(byval iba,ibi) dim cf,ibo for cf=1 to ibi ibo=round((iba+0.2)/2)-int(iba/2) iba=(iba-ibo)/2 next bit=ibo end function function key(byval ix) '2018.07.31 dim it,iu to_t "f key" to_w "ix",ix if len(ix)=0 then iu=0 else for it=1 to len(ix) iu=iu+asc(mid(ix,it,1)) next end if key=iu to_w "key",key end function sub pause(ia) dim ii ii=Time() do until DateDiff("s",ii,Time(),0,0)>ia loop end sub %> <% '2015.12.09, 2018.10.20 cm, 2021.11.24 c_u to_e dim br,fs,cn,cm,rs,sq,pm set fs=server.createobject("scripting.filesystemobject") sub c_i(ib) set cn=server.createobject("adodb.connection") cn.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath(pop&dbpad&ib&".mdb")&";" set cm=server.createobject("adodb.command") cm.activeconnection=cn set rs=server.createobject("adodb.recordset") end sub sub c_u on error resume next set rs=nothing set cm=nothing cn.close set cn=nothing to_e err.clear end sub %> <% '-------------------------------------------------------------------- ' Microsoft ADO ' ' (c) 1996-1998 Microsoft Corporation. All Rights Reserved. ' ' ' ' ADO constants include file for VBScript ' '-------------------------------------------------------------------- '---- CursorTypeEnum Values ---- Const adOpenForwardOnlyx = 0 %> Tagua nuts, dried raw nuts in the Naya Nayon Tagua Catalog <% '2018.09.15, 2021.05.21 to_e dim sest sest=f_0(session("sest")) if sest>0 then response.write "
sest "&sest&"
" sub to_t (ax) if sest>0 then response.write "
"&ax&"
"&vbcrlf end sub sub to_w (ax,ay) if sest>0 then response.write "
"&ax&": "&ay&"
"&vbcrlf end sub sub to_e if sest>0 then response.write "
Err: "&err.number&", "&err.description&"
"&vbcrlf end sub %>

The Tagua Catalogue

Raw Nuts and Slices

Tagua nuts and slices are priced per kilo.

You can order tagua nuts also online at: Tagua Online Shop.

tagua fruit
bestseller

mococha

price
qty
height mm50mm
code05.001.101

mococha cone

price
qty
height mm20mm
code05.001.111
dry nuts

mini

price
qty
height mm25mm
code05.001.342

small

price
qty
height mm35mm
code05.001.343
bestseller

medium

price
qty
height mm45mm
code05.001.344
bestseller

large

price
qty
height mm55mm
code05.001.345

extra large

price
qty
height mm65mm
code05.001.346

jumbo

price
qty
height mm75mm
code05.001.347
single faced tagua slices

4 mm medium

price
qty
height mm35mm
code05.002.143

7 mm medium

price
qty
height mm35mm
code05.002.173
bestseller

7 mm large

price
qty
height mm45mm
code05.002.174
double faced tagua slices, quality A

4 mm medium

price
qty
height mm35mm
code05.002.643
bestseller

4 mm large

price
qty
height mm45mm
code05.002.644

7 mm medium

price
qty
height mm35mm
code05.002.673
bestseller

7 mm large

price
qty
height mm45mm
code05.002.674

Order

  • Enter the quantity and click Add to add the product to your cart.
  • You can specify the colors and type of perforation on the shopping cart page.
  • If you want to specify per color, do not enter the quantity here, but enter it later on the color list.

Shipping

  • Worldwide shipping
  • Free shipping on purchases over €75
  • Two-day shipping
  • If an item is out of stock, we will contact you
  • 30-day return period for exchange

We will ship your order as soon as possible. We have a large inventory of tagua products, but not everything is in stock. Therefore, your order may need to be produced separately, which can take up to four weeks.
Please keep in mind that delivery can take up to five weeks.

© naya nayon 2000-2025