<perl>
out "TEST Variable kid = $kid";
$kid=rand(999999).".".rand(999999) if $kid eq "";
get "KundenId==$kid", "bestellungen";

<perl>
$v=$v||0;
</perl>

get "Id==* _fullsearch~=$suche fullsearch_match=500 range=$v,6 @_sel", "marysol";
</perl>
<loop _fullsearch~=$suche fullsearch_match=500 sort^=-Id code=perl db=marysol range^=$v,6>
out<<EOF;

<tr>
<td width="9" bgcolor="#E3EAFB" align="left" valign="top" rowspan="4">
<img border="0" src="http://www.marysol-touristik.de/baseportal/images_layout/Pixel.gif" width="6" height="74"></td>
<td width="270" bgcolor="#E3EAFB" align="left" valign="bottom"><font size="2"><b>
$Art</b> / $Region / $Region2</font></td>
<td width="12" rowspan="4">
<img border="0" src="http://www.marysol-touristik.de/baseportal/images_layout/Pixel.gif" width="7" height="74"></td>
<td bgcolor="#E3EAFB" rowspan="4">
<a href="http://marysoltouristik-domizile.de/cgi-bin/baseportal.pl?kid=$kid&htx=/immoconzept24/immoconzept/test&db=marysol&Id=$_id">
<img src='http://www.marysoltouristik-domizile.de/files/$_raw{Bild01}' width='130' height='74'></a></td>
</tr>
<tr>
<td width="270" bgcolor="#E3EAFB" align="left"><font size="2">$Typ 
in $Ort / $Pool</font></td>
</tr>
<tr>
<td width="270" bgcolor="#E3EAFB" align="left" valign="top"><font size="2">Bis 
$P Personen</font></td>
</tr>
<tr>
<td width="270" bgcolor="#E3EAFB" align="left" valign="top">
<p align="right"><b><font size="2">Preis ab $Preis EUR</font></b></td>
</tr>
<tr>
<td width="9" background="http://www.marysol-touristik.de/baseportal/images_layout/point_line13.gif">
<img border="0" src="http://www.marysol-touristik.de/baseportal/images_layout/Pixel.gif" width="6" height="23"></td>
<td width="270" background="http://www.marysol-touristik.de/baseportal/images_layout/point_line13.gif">
<img border="0" src="http://www.marysol-touristik.de/baseportal/images_layout/Pixel.gif" width="291" height="23"></td>
<td width="12">
<img border="0" src="http://www.marysol-touristik.de/baseportal/images_layout/Pixel.gif" width="7" height="23"></td>
<td background="http://www.marysol-touristik.de/baseportal/images_layout/point_line13.gif">
<img border="0" src="http://www.marysol-touristik.de/baseportal/images_layout/Pixel.gif" width="130" height="23"></td>
</tr>
</table>

</loop>
<perl>
my $range=$_range_length;
my $blaettern=$_range_length;
my $blaetter_lang=$range*6;
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='Arial, Verdana, Arial';
my $size='2';
my $table='';
my $table_align='left';
#$_amount = $amount_sav;
#$_amount_query = $amount_query_sav;

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

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

out $newrange<$_amount_query?"<a href=\"$_link&v=$newrange&suche=$suche&@_sel&sort=$sort\">></a>":">>";
out "</font></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&suche=$suche&v=".($ende."0")."&@_sel&sort=$sort&kid=$kid\">>|
</a>":">|";
out "</font></td><td bgcolor=$color_vonbis width='185' align='center'><font face=$font font size=$size>Anzeige ".($v+1)." bis
 
".(($v+$blaettern)>$_amount_query?"$_amount_query":($v+$blaettern))." von

if ($_amount)
{
 
$vr=int($v/$blaetter_lang) unless $_range==0;
$vr=$vr*$blaetter_lang;
out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=\"$_link&suche=$suche&v=".($vr-$blaetter_lang)."&@_sel&sort=$sort&kid=$kid>\"<<</a></font></td>" if

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&suche=$suche&v=$i&@_sel&sort=$sort&kid=$kid'>
".($i+1)."</a>")."</font></td>";

out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=\"$_link&suche=$suche&v=$i&@_sel&sort=$sort&$kid\">></a></font></td>" if $i<$_amount_query;
}
out "</font></tr></table></div>"; 
</perl>