<% dim title id = request("id") zoek = request("zoek") if zoek = "" then if id = "" then id = 0 breadcrumb = " overzicht" title = " overzicht" build_breadcrumb(id) else q = "SELECT c.title AS catTitle FROM categorie c WHERE categorieid = "&id set irs = conn.execute(q) breadcrumb = irs("catTitle") title = irs("catTitle") end if end if %> <% '____________________nagaan of er geen subcategorieën zijn_____________________________ if zoek = "" then q = "SELECT COUNT(*) as aant FROM categorie WHERE parentid = "&id set Ars = conn.execute(q) if Ars("aant") <> 0 then schrijfoverzicht_cat(id) else schrijvoverzicht_threads(id) end if else zoek_threads("select * from categorie where categorieid = 4") 'werkt nog niet end if %>