<% Set rstemp = objDB.Execute ("select DISTINCT Tabelartikel.jaargang from Tabelartikel ") Response.Write ""& vbNewLine Response.Write "Kies een jaargang.."& vbNewLine Response.Write "Alle jaargangen"& vbNewLine do while not rstemp.eof if RStemp(0)=int(jaargang) Then Response.Write " " & RStemp(0) & ""& vbNewLine else Response.Write " " & RStemp(0) & ""& vbNewLine end if rstemp.movenext loop rstemp.close set rstemp=nothing Response.Write ""& vbNewLine %> <% Set rstemp = objDB.Execute ("select * from Afkortingen ") Response.Write ""& vbNewLine Response.Write "Kies een rubriek.."& vbNewLine Response.Write "Alle rubrieken"& vbNewLine do while not rstemp.eof if RStemp(1)=rubriek Then Response.Write " " & RStemp(2) & ""& vbNewLine else Response.Write " " & RStemp(2) & ""& vbNewLine end if rstemp.movenext loop rstemp.close set rstemp=nothing Response.Write ""& vbNewLine %>

<% select case zoek case "" Case Else zoekartikeloverzicht zoek,jaargang,rubriek,zoekwoord End select sub zoekartikeloverzicht(zoek,jaargang,rubriek,zoekwoord) Dim rstemp1,rstemp If rubriek="Alle rubrieken" then Set rstemp = objDB.Execute ("select * from Afkortingen ") Else Set rstemp = objDB.Execute ("select * from Afkortingen Where Afkorting='"&rubriek&"'") End IF response.write "

"& vbNewLine response.write ""& vbNewLine do while not rstemp.eof If jaargang="0" then If zoekwoord="zoekwoord" or zoekwoord="" Then testquery = "select * from Tabelartikel where Rubriek='"&rstemp(1)&"' order by jaargang,Nummer,Pagina,Rubriek" Else testquery= "select * from Tabelartikel where Rubriek='"&rstemp(1)&"' and artikelomschrijving Like '%" & zoekwoord & "%' order by jaargang,Nummer,Pagina,Rubriek" End IF Set rstemp1 = objDB.Execute (""&testquery&"") do while not rstemp1.eof response.write ""& vbNewLine rstemp1.movenext loop rstemp1.close set rstemp1=nothing Else If zoekwoord="zoekwoord" or zoekwoord="" Then testquery = "select * from Tabelartikel where Rubriek='"&rstemp(1)&"' and jaargang="&jaargang&" order by jaargang,Nummer,Pagina,Rubriek" Else testquery= "select * from Tabelartikel where Rubriek='"&rstemp(1)&"' and jaargang="&jaargang&" and artikelomschrijving Like '%" & zoekwoord & "%' order by jaargang,Nummer,Pagina,Rubriek" End IF Set rstemp1 = objDB.Execute (""&testquery&"") do while not rstemp1.eof response.write ""& vbNewLine rstemp1.movenext loop rstemp1.close set rstemp1=nothing End IF rstemp.movenext loop rstemp.close set rstemp=nothing response.write "

Jaargang	Nummer	Pagina	Rubriek	Omschrijving
"&rstemp1(1)&"	"&rstemp1(2)&"	"&rstemp1(3)&"	"&rstemp(2)&"	"&rstemp1(5)&"
"&rstemp1(1)&"	"&rstemp1(2)&"	"&rstemp1(3)&"	"&rstemp(2)&"	"&rstemp1(5)&"

"& vbNewLine End Sub %>