Die Suchfunktion ist ok - zumindest funktionierte sie korrekt ohne die Blätterfunktion.
Ich denke, es könnte am range liegen. Ich weiß nur nicht, wo ich da anfangen soll...
Dies ist der Perl-Code
if ($cmd eq "search")
{
my $range=$_range_length;
my $blaettern=$_range_length;
my $blaetter_lang=$range*10;
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
my $color='#CCCCCC';
my $color_vonbis='#FFFFFF';
my $color_zahl='#CCCCCC';
my $color_vorzu='#CCCCCC';
my $color_balken='#CCCCCC';
my $table='450';
my $table_align='left';
my $link="$_link&FamStand=$FamStand&Gesch=$Gesch&Altab=$Altab&Altbis=$Altbis&Kind=$Kind&Grossab=$Grossab&Grossbis=$Grossbis&PLZab=$PLZab&PLZbis=$PLZbis&Land=$Land&Partner=$Partner&Reise=$Reise&Freunde=$Freunde&SHG=$SHG&cmd=search";
get "FamStand~=$FamStand Geschlecht~=$Gesch Alter>=$Altab Alter<=$Altbis Kinder$Kind Groesse>=$Grossab Groesse<=$Grossbis PLZ~>=$PLZab PLZ~<=$PLZbis Land==$Land Partner==$Partner Reise==$Reise Freunde==$Freunde SHG==$SHG range=$v,2","db";
out "<div align=$table_align>";
out "<table width=$table cellpadding=2 cellspacing=2><tr align=left><td bgcolor=$color align='center'>";
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out $oldrange>=0?"<a href=\"$link&range=0,$_range_length\">|<</a>":"|<";
out "</td><td bgcolor=$color align='center'>";
out $oldrange>=0?"<a href=\"$link&range=$oldrange,$_range_length\"><</a>":"<<";
out "</td><td bgcolor=$color align='center'>";
$ende=substr($_amount_query,0,length($_amount_query)-1);
out $newrange<$_amount_query?"<a href=\"$link&range=$newrange,$_range_length\">></a>":">>";
out "</td><td bgcolor=$color align='center'>";
out $newrange<$_amount_query?"<a href=\"$link&range=".($ende."0").",$_range_length\">>| </a>":">|";
out "</td><td bgcolor=$color_vonbis width='200' align='center'>Einträge ".($_range+1)." bis ".(($_range+$blaettern)>$_amount_query?"$_amount_query":($_range+$blaettern))." von $_amount_query</td>";
if ($_amount)
{
$vr=int($_range/$blaetter_lang) unless $_range==0;
$vr=$vr*$blaetter_lang;
out "<td bgcolor=$color_vorzu align='center'><a href=$link&range=".($vr-$blaetter_lang).",$_range_length\><<</a></td>" if ($vr-$blaetter_lang)>=0;
for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
{
out "<td bgcolor=$color_zahl align='center'>".($_range==$i?"<b>".($i+1)."</b>":"<a href=$link&range=$i,$_range_length>".($i+1)."</a>")."</td>";
}
out "<td bgcolor=$color_vorzu align='center'><a href=$link&range=$i,$_range_length>>></a></td>" if $i<$_amount_query;
}
out "</tr></table></div>";
out <<EOF;
<div align=$table_align>
<table border="0" cellpadding="0" cellspacing="0" width=$table>
<tr>
<td width="0"><img border='0' src='http://www.URL.de/test/spacer.gif' width='2' height='2'></td>
<td bgcolor="#C0C0C0" width="100%"><img border='0' src='http://www.URL.de/test/spacer.gif' width='2' height='2'></td>
<td width="0"><img border='0' src='http://www.URL.de/test/spacer.gif' width='2' height='2'></td>
</tr>
</table>
</div>
EOF
if ($_amount_query == 0)
{
out "<br><span class='text'>Leider kein Eintrag zu den gewählten Kriterien !</span>";
}
while (get_next("db"))
{
out <<EOF;
...
...
</perl>
Oliver ;-)
