<!-- such_002 -->
<perl>
# Hier mal die Zeile mit der Ausgabe der Variablen, die reinkommen (oder auch nicht)
out "Kontrollausgabe: \$Name($Name) - \$D_01($D_01) - \$FName($FName) - \$FD_01($FD_01)<br>";
# Optionfeldwerte bauen für Datensätze mit Name=$FName, wobei FName der Feldname
# des Suchformulars aus dem Template such001 sein muss (es würde in diesem Falle auch
# $Name gehen, aber dann immer weiter führen, also auch im hidden-Field unten
# In hier gebauten Falle aber dann auch im Template detail $FName für Filterkriterium
# verwenden (get "D_01=$FD_01 Name=$FName"...
#
get "D_01==* & Name==$FName", "artikel";
 while(get_next("artikel")){
    if ($D_01_ist ne $D_01){
     $optionwerte .= "<option value=\"$D_01\">$D_01</option>\n";
    }
 $D_01_ist = $D_01;
 }

<form action="http://luftus-shop.de/cgi-bin/baseportal.pl?kid=$kid&htx=/luftus-shop.de/test_01/detail" method="post" enctype="multipart/form-data">
<input type="hidden" name="FName=" value="$FName"></input>
<select name="FName~=" style="font-family:'verdana'; color: #003399 ; background-color:#E5E5E5;">
$optionwerte
</select>
<input type="submit" value="ANZEIGEN" class="schrift2a" style="background-color:#00315A; color: white; font-size: 9pt">
</form>
EOF
</perl>