<perl>
get "Hersteller==*", "master_one_all";
out "<select name='Auswahl'>";
while(get_next("master_one_all"))
{
if ($hersteller_ist ne $Hersteller){
out "<option value=$Hersteller>$Hersteller";
}
$hersteller_ist = $Hersteller;
out "</select> ";
out "<input type=submit value='Go'>";
out "</p>";;
get "Typ==Hersteller", "master_one_all", "wert_001";
out "<select name='Auswahl_01'>";
while(get_next("master_one_all"))
{
if ($typ_ist ne $wert_001){
out "<option value=$wert_001>$wert_001";
}
$typ_ist = $wert_01;