<%@language=vbscript codepage=65001 %> <% option explicit dim laag,taal,taid,plek,klan,munt,blad,odmi laag=2 plek="as" klan="web" taal="NL" 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 Noten van Naya Nayon. Ruwe Taguanoten en -schijven <% '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 %>

De Taguacatalogus

Ruwe noten

Taguanoten en schijven zijn per kilo geprijsd.

taguavrucht
bestseller

mococha

prijs
aantal
grootte50mm
code05.001.101

vruchtkegel mococha

prijs
aantal
grootte20mm
code05.001.111
geselecteerde gedroogde taguanoten

mini

prijs
aantal
grootte25mm
code05.001.342

klein

prijs
aantal
grootte35mm
code05.001.343
bestseller

middel

prijs
aantal
grootte45mm
code05.001.344
bestseller

groot

prijs
aantal
grootte55mm
code05.001.345

extra groot

prijs
aantal
grootte65mm
code05.001.346

jumbo

prijs
aantal
grootte75mm
code05.001.347
schijf eenzijdig

4 mm middel

prijs
aantal
grootte35mm
code05.002.143

7 mm middel

prijs
aantal
grootte35mm
code05.002.173
bestseller

7 mm groot

prijs
aantal
grootte45mm
code05.002.174
schijf tweezijdig, kwaliteit A

4 mm middel

prijs
aantal
grootte35mm
code05.002.643
bestseller

4 mm groot

prijs
aantal
grootte45mm
code05.002.644

7 mm middel

prijs
aantal
grootte35mm
code05.002.673
bestseller

7 mm groot

prijs
aantal
grootte45mm
code05.002.674

Bestellen

  • vul aantal in en klik op toevoegen om product in winkelwagen te zetten.
  • kleuren en type doorboring kunt u in de pagina van de winkelwagen aangeven.
  • als u per kleur wilt opgeven, vult u dan hier geen aantal in, maar later op de kleurenlijst.

Verzending

  • verzending wereldwijd
  • gratis verzending bij aankoop boven de 75 Euro
  • verzending binnen twee dagen
  • mocht een artikel niet op voorraad zijn, dan nemen we contact met u op
  • 30 dagen bedenktijd om te ruilen

We verzenden uw bestelling zo spoedig mogelijk.
We hebben een grote voorraad tagua-artikelen maar niet alles is op voorraad. Het kan dus zijn dat uw bestelling apart moet worden geproduceerd en dat kan tot 4 weken duren.
Houdt u er dus rekening mee, dat bezorging tot 5 weken kan duren.