<%@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("couvre-sol","bambou de collection","bosquet","haie","plant en pot","solitaire","brise-vent") 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 & (" [hauteur_moyenne] = '" & varHeight & "'") end if If (varUsurious<>"") then paramnum = paramnum + 1 if paramnum > 1 then SQLquery = SQLquery & " AND" end if SQLquery = SQLquery & (" [expansion] = '" & varUsurious & "'") end if if (varFamily<>"") then paramnum = paramnum + 1 if paramnum > 1 then SQLquery = SQLquery & " AND" end if SQLquery = SQLquery & (" [sexe] = '" & 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 hauteur FROM hauteur_moyenne" sqlAllUsurious = "SELECT expansion FROM expansion" sqlAllFamily = "SELECT sexe FROM sexe" sqlAllResults = "SELECT * FROM bambou " & SQLQuery sqlselUsage = "SELECT * FROM (SELECT DISTINCT 'couvresol' AS gebruik FROM bambou WHERE [couvresol] = true " & SQLQuery2 & " UNION SELECT DISTINCT 'collection' AS gebruik FROM bambou WHERE [collection] = true " & SQLQuery2 & " UNION SELECT DISTINCT 'bosquet' AS gebruik FROM bambou WHERE [bosquet] = true " & SQLQuery2 & " UNION SELECT DISTINCT 'haie' AS gebruik FROM bambou WHERE haie = true " & SQLQuery2 & " UNION SELECT DISTINCT 'pot' AS gebruik FROM bambou WHERE pot = true " & SQLQuery2 & " UNION SELECT DISTINCT 'solitaire' AS gebruik FROM bambou WHERE solitaire = true " & SQLQuery2 & " UNION SELECT DISTINCT 'brisevent' AS gebruik FROM bambou WHERE brisevent = true " & SQLQuery2 & ")" sqlSelHeight = "SELECT DISTINCT hauteur_moyenne FROM bambou " & SQLQuery sqlSelUsurious = "SELECT DISTINCT expansion FROM bambou " & SQLQuery sqlSelFamily = "SELECT DISTINCT sexe FROM bambou " & 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 ("Tous usages") end if if setName = "Height" then Response.Write ("Toutes hauteurs") end if if setName = "Usurious" then Response.Write ("Toutes expansions") end if if setName = "Family" then Response.Write ("Tous sexes") 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
NL  
 
 
   
soort zoeken
 
 


Ci-dessous vous pouvez sélectionner une espèce de bambou selon quelques critères de recherche (près de 100 espèces). Cliquez dans le résultat de recherche sur le nom à gauche pour une fiche technique imprimable (PDF). Les fiches sont en néerlandais, la traduction suivra.

Attention: du moment que vous faites une sélection, les combinaisons non-possibles sont indiquées avec x. Cliquez ensuite sur 'chercher' pour votre résultat, ou 'nouveau' pour retrouver toutes les options.

<% 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 %>

Pour regarder ou imprimer des PDF vous avez besoin de Acrobat Reader (à télécharger gratuitement).

[ ^ ]


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