<perl>
#######################################################
#              Variablen definieren                   #
#######################################################
$db = "benutzerverwaltung";
######################################################

# Alle Datenbankeinträge holen und wohnortsrtsauswahl #
# bauen (nur die Orte, die Verans eingetr. haben) -   #
# Array füllen, Doubletten verhindern                 #
#######################################################

while(get_next("$db"))
{
     $Wohnort=lc($Wohnort);
      if ($Wohnort gt "a")
       {
        push @opWohnort, $Wohnort if index("@opWohnort", "$Wohnort")<0;
        if ($Bundesland gt "A")
         { 
           push @opBundesland, $Bundesland if index("@opBundesland", "$Bundesland")<0;
         }
        push @opPostleitzahl, $Postleitzahl if index("@opPostleitzahl", "$Postleitzahl")<0;
       }
EOF
}
#######################################################
# Aufbereitung der Arraywerte von @opWohnort für      #
# (Drop-Down - option-ausgabe)                        #
#######################################################

foreach $l_ort (@opWohnort_sort)
{
$list_opWohnort=$list_opWohnort."<option value=$l_ort>$l_ort</option>";
}

# Aufbereitung der Arraywerte von @opBundesland für   #
# (Drop-Down - option-ausgabe)                        #
#######################################################

foreach $l_Bundesland (@opBundesland_sort)
{
$list_opBundesland=$list_opBundesland."<option value=$l_Bundesland>$l_Bundesland</option>";
}

# Aufbereitung der Arraywerte von @opPostleitzahl für #
# (Drop-Down - option-ausgabe)                        #
#######################################################

foreach $l_Postleitzahl (@opPostleitzahl_sort)
{
$list_opPostleitzahl=$list_opPostleitzahl."<option value=$l_Postleitzahl>$l_Postleitzahl</option>";
}
#######################################################
</perl>
<form name="Wohnort" action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/RogerPeterWerner/P/ortwahl" method="post" enctype="multipart/form-data" target="_self">
<!-- Bundeslandsuche Optionfeld-->
Bundesland
 <font size=2>
  <select name="Bundesland:="><option value="">alle</option>
   $list_opBundesland
  </select></font><br>
<!--Ende Bundeslandfeld Wohnort-->

 <font size=2>
  <select name="Postleitzahl:="><option value="">alle</option>
   $list_opPostleitzahl
  </select></font>

<!-- Ortssuche Optionfeld-->
Ort
 <font size=2>
  <select name="Wohnort:="><option value="">alle</option>
   $list_opWohnort
  </select></font><br>
  <input type="Submit" name="" value="Suchen">

</form>