<loop db=shop code=perl>
out <<EOF;
<div class="row">
<div class="span6"><h3>$Artikel01</h3><p>$Artikelbeschreibung01</p></div>
<select name="Artikelanzahl01:=" class="text"/>
<option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select></div>
</div>
<div class="row">
<div class="span6"><h3>$Artikel02</h3><p>$Artikelbeschreibung02</p></div>
<select name="Artikelanzahl02:=" class="text"/>
<option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select></div>
</div>
<div class="row">
<div class="span6"><h3>$Artikel03</h3><p>$Artikelbeschreibung03</p></div>
<select name="Artikelanzahl03:=" class="text"/>
<option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select></div>
</div>
EOF
</loop>
<perl>

    $err.=" | Name" if $_put{name} eq "";
    $err.=" | Email" if $_put{email} eq "";
    $err.=" | Strasse" if $_put{strasse} eq "";
    $err.=" | PLZ" if $_put{plz} eq "";
    $err.=" | Ort" if $_put{ort} eq "";
        if ($err ne ""){ 
            out "Deine Mail wurde nicht gesendet. Fülle bitte noch folgende Felder aus.<br>$err
<a HREF=''>zurück</a>";
        undef %_put;
   } else { 
       $senddat=datum('jetzt', 'intern'); 

<b>Ihre Bestellung:</b><br>
$Artikel01 - $Artikelanzahl01<br>
$Artikel02 - $Artikelanzahl02<br>
$Artikel03 - $Artikelanzahl03<br>
             

<b>Bestellerdaten:</b><br>
Name: $name <br>
Email: $email <br>
$strasse<br>
$plz $ort<br>

              out<<EOF;
       
       Vielen Dank!
EOF
   } # E if/else err
  
} else {

<form action="/cgi-bin/baseportal.pl?htx=/...shop.de/shop" method=post enctype="multipart/form-data" class="form contact">
<input type="hidden" name="cmd=" value="add">

<label>E-mail</label><input type="email" name="email:=" value="" />

<input type="submit" class="submit" id="submit" value="Zahlungspflichtig bestellen" />
</div>
</div>
</form>

}
</perl>