<perl>
           get "sort=Nummer", "betreuung";
           while (get_next "betreuung")
           {
           out "<tr>";
           if (($BetreuerGER ne 00) & ($BetreuerGER ne 99))
           {
            if ($BetreuerGER ge 10)
            {
              $rr=255;
              $gg=153+(10*$BetreuerGER);
              $bb=0+(25*$BetreuerGER);
              out "<td bgcolor=rgb($rr,$gg,$bb)>";
            }
             else
             {
              $rr=255-(25*$BetreuerGER);
              $gg=153-(15*$BetreuerGER);
              $bb=0;
              out "<td bgcolor=rgb($rr,$gg,$bb)>";
             }
           }
            else
           {
           out "<td bgcolor=#FF9900>";
           }
           out "</tr>";
           }
           </perl>