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("/aktuell/hib/hibsuche.asp?f=" & Server.urlEncode("/aktuell/hib/") & _
"&Rubrik=" & Server.urlEncode(Request.Form("Rubrik")) & _
"&Suchausgabe=" & Server.urlEncode(suchstring))
else
Response.Redirect("/aktuell/hib/hibsuche.asp?f=" & Server.urlEncode("/aktuell/hib/") & _
"&Rubrik=" & Server.urlEncode(Request.Form("Rubrik")))
end if
end if
%>
Quelle:
http://www.bundestag.de/ausschuesse/archiv15/a16/pressemitteilungen/Suche_HiB