#------------------------------------------------#
    #--SR        Ermitteln Zufalls-Banner            #
    #------------------------------------------------#
    sub do_banner
       {
        my ($param_sizegroup, $param_okey) = @_;

        $bn_sizegroup = "";
        $Id = "";
        while (($bn_sizegroup ne $param_sizegroup) || ($Id eq $save_bn_id))
            {
             get "Id==?", "../bgd/bgbann";
             if (($param_okey) && ($bn_okey ne "00000") && ($bn_okey ne $param_okey))
               {
                $bn_sizegroup = "";
               }
            }
        $save_bn_id = $Id;
        $h_banner="<IMG SRC='HTTP://www.bestguide.de/ban/$bn_banner' ALT='$bn_bez' BORDER=0>";
        out "<A HREF=http://$bn_url TARGET=\"_blank\"onmouseover='window.status=\"BestGuide Partner\";return true;'>$h_banner</A>" if (!$bn_script);
        out "$bn_script" if ($bn_script);

       }