Ausschüsse
<% if Len(Request.Form("submit"))=0 then %> <% else DIM suchausgabe DIM suchcountermax DIM suchstring DIM suchcounter DIM verbinder if Request.Form("Suchausgabe") <> "0" then verbinder = " OR " suchausgabe = split(Request.Form("Suchausgabe"),",") suchcountermax = ubound(suchausgabe) for suchcounter = lbound(suchausgabe) to suchcountermax if len(suchausgabe(suchcounter)) > 0 then if len(suchstring) = 0 then suchstring = suchausgabe(suchcounter) & verbinder else suchstring = suchstring & suchausgabe(suchcounter) & verbinder end if end if next suchstring = left(suchstring,len(suchstring)-len(verbinder)) Response.Write(Suchstring) Response.Redirect("/bic/hib/hibsuche.asp?f=" & Server.urlEncode("/bic/hib/") & _ "&Rubrik=" & Server.urlEncode(Request.Form("Rubrik")) & _ "&Suchausgabe=" & Server.urlEncode(suchstring)) else Response.Redirect("/bic/hib/hibsuche.asp?f=" & Server.urlEncode("/bic/hib/") & _ "&Rubrik=" & Server.urlEncode(Request.Form("Rubrik"))) end if end if %>
Quelle:
http://www.bundestag.de/parlament/gremien15/a16/pressemitteilungen/Suche_HiB