</SCRIPT>
</head>
<body>
<perl>
$zr="";
$zrout="";
$URLquery="";
out <<EOF;
<form name="formSelect" onSubmit="return Wunsch()" method="post" enctype="multipart/form-data">
<!-- Abfrage des Zeitraums, scroll-down -->
<SELECT name="$zr" size=1>
<option value ="">Alle...</option>
<option value="Heute">Heute</option>
<option value="8Tage">8 Tage</option>
<option value="14Tage">14 Tage</option>
<option value="Monat">1 Monat</option>
</SELECT>
<!-- hier sollen noch meherere Selektionskriterien eingefügt werden -->
EOF
if ($zr eq "Heute") { $zrout="&Datum2>=jetzt&Datum1<=jetzt" }
elsif ($zr eq "8Tage") { $zrout="&Datum2>=jetzt&Datum1<=%2b8" }
elsif ($zr eq "14Tage") { $zrout="&Datum2>=jetzt&Datum1<=%2b14" }
elsif ($zr eq "Monat") { $zrout="&Datum2>=jetzt&Datum1<=%2b30" }
$URLbasis="http://baseportal.de/cgi-bin/baseportal.pl?htx=/iog/alternativ_einfachst";
$URLende="&sort=Datum1";
$URLquery=$URLbasis.$zrout.$URLende;
out "<input type=hidden name='Selektion=' value='", $URLquery, "'><input type=submit value=suchen></form><p>";
out $URLquery;
</perl>
<!-- Ausgabe der Daten -->
<do action=all db=/iog/main>
</body></html>