<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function dataArray(sql) Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\bamboebergh.mdb") Set rs = conn.Execute(sql) if NOT rs.EOF then dataArray = rs.GetRows end if rs.Close Set rsUsage = Nothing conn.Close Set conn = Nothing end function %> <% dim rowheight dim arrStrUsage arrStrUsage = Array("bodembedekker/onderbegroeiing","collectiebamboe","groepsbeplanting","haag","potplant","solitair","windscherm") rowheight = 22 optionsClass = "options" allOptionsClass = "alloptions" redCrossClass = "redcross" buttonClass = "buttons" resultsClass = "results" dim sqlAllUsage, sqlAllHeight, sqlAllUsurious, sqlAllFamily dim sqlSelUsage, sqlSelHeight, sqlSelUsurious, sqlSelFamily dim arrAllUsage, arrAllHeight, arrAllUsurious, arrAllFamily dim arrSelUsage, arrSelHeight, arrSelUsurious, arrSelFamily dim varUsage, varHeight, varUsuriuos, varFamily dim strUsage, strHeight, strUsurious, strFamily dim arrAllResults dim sqlAllResults varUsage = Request.Form("selUsage") varHeight = Request.Form("selHeight") varUsurious = Request.Form("selUsurious") varFamily = Request.Form("selFamily") boolSearch = Cbool(Request.Form("fldSearch")) boolReset = Cbool(Request.Form("fldReset")) if boolReset = true then varUsage = "" varHeight = "" varUsurious = "" varFamily = "" end if dim SQLquery dim SQLquery2 dim paramnum SQLquery = "" SQLquery2 = "" paramnum = 0 If (varHeight<>"") then paramnum = paramnum + 1 if paramnum > 1 then SQLquery = SQLquery & " AND" end if SQLquery = SQLquery & (" [gemiddelde_groeihoogte] = '" & varHeight & "'") end if If (varUsurious<>"") then paramnum = paramnum + 1 if paramnum > 1 then SQLquery = SQLquery & " AND" end if SQLquery = SQLquery & (" [uitbreiding] = '" & varUsurious & "'") end if if (varFamily<>"") then paramnum = paramnum + 1 if paramnum > 1 then SQLquery = SQLquery & " AND" end if SQLquery = SQLquery & (" [geslacht] = '" & varFamily & "'") end if if (varUsage<>"") then paramnum = paramnum + 1 if paramnum > 1 then SQLquery = SQLquery & " AND" end if SQLquery = SQLquery & (" [" & varUsage & "] = true") end if if paramnum > 0 then SQLquery2 = " AND" & SQLquery SQLquery = "WHERE" & SQLquery end if sqlAllUsage = "SELECT gebruik FROM gebruik" sqlAllHeight = "SELECT hoogte FROM gemiddelde_groeihoogte" sqlAllUsurious = "SELECT uitbreiding FROM uitbreiding" sqlAllFamily = "SELECT geslacht FROM geslacht" sqlAllResults = "SELECT * FROM bamboe " & SQLQuery sqlselUsage = "SELECT * FROM (SELECT DISTINCT 'bodembedekker/onderbegroeiing' AS gebruik FROM bamboe WHERE [bodembedekker/onderbegroeiing] = true " & SQLQuery2 & " UNION SELECT DISTINCT 'collectiebamboe' AS gebruik FROM bamboe WHERE [collectiebamboe] = true " & SQLQuery2 & " UNION SELECT DISTINCT 'groepsbeplanting' AS gebruik FROM bamboe WHERE [groepsbeplanting] = true " & SQLQuery2 & " UNION SELECT DISTINCT 'haag' AS gebruik FROM bamboe WHERE haag = true " & SQLQuery2 & " UNION SELECT DISTINCT 'potplant' AS gebruik FROM bamboe WHERE potplant = true " & SQLQuery2 & " UNION SELECT DISTINCT 'solitair' AS gebruik FROM bamboe WHERE solitair = true " & SQLQuery2 & " UNION SELECT DISTINCT 'windscherm' AS gebruik FROM bamboe WHERE windscherm = true " & SQLQuery2 & ")" sqlSelHeight = "SELECT DISTINCT gemiddelde_groeihoogte FROM bamboe " & SQLQuery sqlSelUsurious = "SELECT DISTINCT uitbreiding FROM bamboe " & SQLQuery sqlSelFamily = "SELECT DISTINCT geslacht FROM bamboe " & SQLQuery arrAllUsage = dataArray(sqlAllUsage) arrAllHeight = dataArray(sqlAllHeight) arrAllUsurious = dataArray(sqlAllUsurious) arrAllFamily = dataArray(sqlAllFamily) arrAllResults = dataArray(sqlAllResults) arrSelUsage = dataArray(sqlSelUsage) arrSelHeight = dataArray(sqlSelHeight) arrSelUsurious = dataArray(sqlSelUsurious) arrSelFamily = dataArray(sqlSelFamily) strUsage = "Usage" strHeight = "Height" strUsurious = "Usurious" strFamily = "Family" %> <% Function IsElement(element, arr) If IsArray(arr) Then Dim i For i = 0 To UBound(arr, 2) if arr(0, i) = element then IsElement = true Exit Function end if next end if IsElement = false end function Function WriteTable(aIn, aComp, setName) Response.Write("" & CHR(13)) Response.Write("" & CHR(13)) Response.Write("") Response.Write("") Response.Write("") If IsArray(aIn) Then Dim i For i = 0 To UBound(aIn, 2) Response.Write("" & CHR(13)) Response.Write("" Response.Write "" Response.Write("" & CHR(13)) Next End If Response.Write("
") if (UBound(aIn, 2) = UBound(aComp, 2)) AND (varUsage="") then Response.Write("") else Response.Write("x") end If Response.write("") if setName = "Usage" then Response.Write ("Alle gebruiken") end if if setName = "Height" then Response.Write ("Alle groeihoogtes") end if if setName = "Usurious" then Response.Write ("Alle uitbreidingen") end if if setName = "Family" then Response.Write ("Alle geslachten") end if Response.Write("
") if (isElement(aIn(0, i), aComp) AND varUsage="") OR (isElement(aIn(0, i), aComp) AND setName<>"Usage") OR (varUsage=aIn(0, i) AND setName="Usage") Then Response.Write "" else Response.Write("x") end if Response.Write "" Response.Write aIn(0, i) Response.Write "
") End Function Function WriteResults(aIn) If IsArray(aIn) Then Response.Write("") Dim i For i = 0 To UBound(aIn, 2) Response.Write("") Response.Write("") Response.Write("") Next Response.Write("
") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
") Response.Write("" & aIn(1, i) & "") Response.Write("") Response.Write(aIn(4, i)) Response.Write("") Response.Write(aIn(5, i)) Response.Write("") Response.Write(aIn(3, i)) Response.Write("
") dim counter counter = 0 for j = 0 to 6 if aIn(j+6, i) then counter = counter + 1 if counter>1 then Response.Write(", ") end if Response.Write(arrStrUsage(j)) end if next Response.Write("
") Response.Write("
") End if end function %> Bamboebergh, bamboe, bambou, bamboo
FR  
 
 
   
soort zoeken
 
 


Hieronder kan u een bamboesoort selecteren aan de hand van een aantal zoekcriteria (ongeveer 100 soorten). Klik in het zoekresultaat op de naam links voor een afdrukbare technische fiche (PDF).

Opgelet: zodra u een selectie maakt, worden niet-mogelijke combinaties aangeduid met een x. Klik vervolgens op 'zoeken' voor uw resultaat, of 'opnieuw' om terug alle opties te bekomen.

<% if 0 = 1 then Response.Write("Usage : " & varUsage & "
") Response.Write("Height : " & varHeight & "
") Response.Write("Usurious : " & varUsurious & "
") Response.Write("Family : " & varFamily & "

") Response.Write("UsageQuery : " & sqlSelUsage & "

") Response.Write("HeightQuery : " & sqlSelHeight & "

") Response.Write("UsuriousQuery : " & sqlSelUsurious & "

") Response.Write("FamilyQuery : " & sqlSelFamily & "

") Response.Write("ResultsQuery : " & sqlAllResults & "
") Response.Write("Boolsearch : " & boolSearch & "
") end if %>
<% WriteTable arrAllUsage, arrSelUsage, strUsage %> <% WriteTable arrAllFamily, arrSelFamily, strFamily %>
<% WriteTable arrAllHeight, arrSelHeight, strHeight %>
<% WriteTable arrAllUsurious, arrSelUsurious, strUsurious %>

<% if boolSearch = true then WriteResults arrAllResults end if %>

Om PDF-files te kunnen bekijken of afprinten hebt u Acrobat Reader nodig (gratis te downloaden).

[ ^ ]


Bamboebergh, Broekstraat 56, 9831 Sint-Martens-Latem, tel +32 478 559 025, e-mail -