a. Das Template soll 4 zufällige Einträge aus der Datenbank fischen, die sich nicht wiederholen, und zwar heissen die Felder Frage, RA, FA1, FA2, FA3, Pkt und Rubrik. Am Ende soll das Template ausgeben:

&RA=<<RA1>>,<<RA2>>

if ($cmd eq "fragen")
{
$XFrage = "";
$XRA = "";
$XFA1 = "";
$XFA2 = "";
$XFA3 = "";
$XPkt = "";
$XRubrik = "";
 for ($i=1,$i<$max,$i++)
 {
 get "Id==?";
  while (@neu[$_id] == 1) {
   get "Id==?";
  }
  while (get_next)
  {
   @neu[$_id] = 1;
   $XFrage=$XFrage.$Frage.",";
   $XRA=$XRA.$RA.",";
   $XFA1=$XFA1.$FA1.",";
   $XFA2=$XFA2.$FA2.",";
   $XFA3=$XFA3.$FA3.",";
   $XPkt=$XPkt.$Pkt.",";
   $XRubrik=$XRubrik.$Rubrik.",";
  }
 }
get "Id==?";
while (@neu[$_id] == 1) {
 get "Id==?";
}
while (get_next)
{
 @neu[$$_id] = 1;
 $XFrage=$XFrage.$Frage;
 $XRA=$XRA.$RA;
 $XFA1=$XFA1.$FA1;
 $XFA2=$XFA2.$FA2;
 $XFA3=$XFA3.$FA3;
 $XPkt=$XPkt.$Pkt;
 $XRubrik=$XRubrik.$Rubrik;
}
out "Frage=",$XFrage;
out "\&RA=",$XRA;
out "\&FA1=",$XFA1;
out "\&FA2=",$XFA2;
out "\&FA3=",$XFA3;
out "\&Pkt=",$XPkt;
out "\&Rubrik=",$XRubrik;
out "\&Rest=";
}