out "<table cellpadding=0 cellspacing=0 width=\"95%\" border=0>\n";
        out "<tr><td class=\"a8\"><img src=\"http://www.tiere-brauchen-freunde.de/gfx/pfeilred.gif\" alt=\"\" border=0><a class=\"link3\" href=\"../tfe/ptf501\" target=\"_self\">&nbsp;Home&nbsp;</a>\n";
        out "<img src=\"http://www.tiere-brauchen-freunde.de/gfx/pfeilred.gif\" alt=\"\" border=0>&nbsp;Tiervermittlung / Katzen</td></tr>\n";
        out "<tr><td><hr color=\"#CCCC99\"></td></tr>\n";
        $gv_mainfile = "../tfd/tftier";

        $such_ti_status = "1";
        $such_ti_vermittelt = "1";
        $such_ti_art = "KA";
        $such_leer = "";
        $cmd = "do_522";
        # Durchschleifen der Suchparameter beim Bl&auml;ttern
        local $append = "";
        $append = "&cmd=".convert_url($cmd) if $cmd ne "";
        $append = $append."&such_ti_status=".convert_url($such_ti_status) if $such_ti_status ne "";
        $append = $append."&such_ti_art=".convert_url($such_ti_art) if $such_ti_art ne "";
        $append = $append."&such_ti_vermittelt=".convert_url($such_ti_vermittelt) if $such_ti_vermittelt ne "";
        $append = $append."&such_leer=".convert_url($such_leer) if $such_leer ne "";

        $_range_length = 10;   # neu hinzugef&uuml;gt,
        $_range = 0 if (!$_range_length);
        $_range_length = 10 if (!$_range_length);
        $rng = $_range . "," . $_range_length;
        get "ti_status==$such_ti_status & ti_art==$such_ti_art & ti_vermittelt<$such_ti_vermittelt range=$rng sort=-ti_eingdat", $gv_mainfile;

        my $newrange = $_range + $_range_length;
        my $oldrange = $_range - $_range_length;
        $oldrange = 0 if (($oldrange < 0) && ($oldrange >= $_range_length));
        out "<TR><TD ALIGN='center'>\n";
        if ($_amount != 0)
           {
            $bis = $_range + $_range_length;
            $von = $_range + 1;
            out "Eintr&auml;ge $von bis \n";
            if ($bis < $_amount_query)
               {
                out "$bis von $_amount_query\n";
               }
            else
               {
                out "$_amount_query von $_amount_query";
               }
           }
        out "</TD></TR>\n";

        while (get_next("$gv_mainfile"))
           {
            $work_align = ($_loop %2 ? 'left' : 'right');
            out "<tr><td class=\"a12b\">";
            out "<span style=\"font-size:10px; color:#FFFFFF\">";
            out datum($ti_eingdat, "Tag0.Monat0.Jahr");
            out "</span>";
            out "<br>$ti_name</td></tr>\n";
            out "<tr><td><img src=\"http://www.tiere-brauchen-freunde.de/pic/tier/$ti_bild\" alt=\"$ti_name\" vspace='10' hspace='10' align=\"$work_align\"><p align=\"justify\">$ti_besch</p></td></tr>\n";
            out "<tr><td class=\"a8\"><br><span style=\"font-size:10px; font-weight:bold; color:#FFFFFF\">Kontakt:&nbsp;$ti_kontakt&nbsp;&nbsp;&nbsp;\n";
            out "<span style=\"font-size:10px; font-weight:bold; color:#FFFFFF\">E-Mail:&nbsp;</span><a class=\"link3\" href=mailto:tiere-brauchen-freunde\@web.de?subject=tiervermittlung%20$ti_name>tiere-brauchen-freunde\@web.de</a>\n" if ($ti_email);
            out "</td></tr>\n";
            out "<tr><td><hr color=\"#CCCC99\"></td></tr>\n";
           }
        my $newrange = $_range + $_range_length;
        my $oldrange = $_range - $_range_length;
        $oldrange = 0 if (($oldrange < 0) && ($oldrange >= $_range_length));

        out "<TR><TD ALIGN='center'>\n";
        if ($oldrange >= 0)
           {
            out "&nbsp;&nbsp;&nbsp;&nbsp;";
            out "<A CLASS='a8' HREF='$_link&range=$oldrange,$_range_length$append'>\n";
            out "[zur&uuml;ck]<IMG SRC='http://www.tiere-brauchen-freunde.de/gfx/pfeillinks.gif' BORDER=0 ALT='zur&uuml;ck'>\n";
            out "</A>\n";
           }
        if ($newrange < $_amount_query)
           {
            out "&nbsp;&nbsp;&nbsp;&nbsp;\n";
            out "<A CLASS='a8' HREF='$_link&range=$newrange,$_range_length$append'>\n";
            out "<IMG SRC='http://www.tiere-brauchen-freunde.de/gfx/pfeilred.gif' BORDER=0 ALT='weiter'>[weiter]\n";
            out "</A>\n";
           }
        out "</TD></TR>\n";
        out "</table>\n";