<perl>
out "<select name=\"bundesland:=\">";
get "landname==*","bulaender";
while {get_next "bulaender"}
{
out "<option ";
out "selected " if ($landname eq $altesland);
out "value=\"$landname\">".$landname
}
out "</select>";
</perl>
@laendernamen=('Bayern', 'Berlin', 'Brandenburg', ...);
# ...
# dann irgendwann den zu ändernden Datensatz lesen
# ...
# und irgendwann das Feld erzeugen:
$anzahl=@laendernamen # (feldlaenge)
for ($i=0;$i<$anzahl,$i++)
{
out "<option ";
out "selected " if ($laendernamen[$i] eq $altesland);
out "value=\"$laendernamen[$i]\">".$laendernamen[$i]
}