<table cellpadding=0 cellspacing=0 border=0 bgcolor=f0f0f0 width="100%"><tr><td>
<table border=0 cellspacing=2 cellpadding=4>
<table border="1" width="100%">
     <colgroup>
      <col width="1*"
        <col width="4*">
        <col width="2*">
        <col width="1*">
        <col width="1*">
     </colgroup>
</table>

<tr bgcolor=c0d0f0>
<td><font size=2><font color="red">Detail: </font></font></td>
<td><font size=2><font color="red">Titel: </font></font></td>
<td><font size=2><font color="red">Stichworte: </font></font></td> 
<td><font size=2><font color="red">Stufe: </font></font></td>
<td><font size=2><font color="red">Art: </font></font></td></tr>
<loop db=Thema range=0,6>
<tr>
<td bgcolor=e0e0e0><font size=2><a href="http://vhk.netpure.de/baseportal/vhk/Themenbeitraege/Detail&Id==$_id" target=blank>Detail</a></font></td>
<td bgcolor=e0e0e0><font size=2>$Titel</font></td>
<td bgcolor=e0e0e0><font size=2>$Stichworte</font></td>
<td bgcolor=e0e0e0><font size=2>$Stufe</font></td>
<td bgcolor=e0e0e0><font size=2>$Art</font></td>
<tr></tr><tr></tr>
</tr></loop><tr>

$v=$v||0;
get "Id==* sort=-Id range=$v,6", "Thema";

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 $font='Thomas, Arial';
my $size='1';
my $table=''; #kann auch %-Angabe gesetzt werden
my $table_align='left';

out "<table width=$table cellpadding=4 height=25 cellspacing=4><tr align=left>
<td bgcolor=$color align='center'><font face=$font font size=$size>";
 
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";
out $oldrange>=0?"<a href=\"$_link&v=$oldrange\"><</a>":"<<";
out "</font></td><td bgcolor=$color align='center'><font face=$font font size=$size>";

out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange\">></a>":">>";
out "</td><td font face=$font font size=$size bgcolor=$color align='center'><font face=$font font size=1>";
out $newrange<$_amount_query?"<a href=\"$_link&v=".($ende."0")."\">>|
</a>":">|";
out "</font></td><td bgcolor=$color_vonbis width='185' align='center'><font face=$font font size=$size>Einträge ".($v+1)." bis
".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von
$_amount_query</td>";
 
if ($_amount)
{

$vr=$vr*$blaetter_lang;
out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&v=".($vr-$blaetter_lang)."><<</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'><font face=$font font size=$size>".($v==$i?"<b>".($i+1)."</b>":"<a
href=$_link&v=$i>".($i+1)."</a>")."</td>";
}
out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&v=$i>>></a></td>" if $i<$_amount_query;
}
out "</font></tr></table></div>"; 
 
</perl>