Die Blätterfunktion aus der Bib funktioniert leider nicht, kann mir da bitte jemand helfen?
Vielen Dank für jede Hilfe!
Gruß David
Hier der Quellcode meiner Seite:
<html>
<head>
<title>UHREN-SCHMUCK-SHOPS.DE - Uhren-Schmuck-News</title>
<meta name="author" content="David Junghähnel">
<meta name="generator" content="Ulli Meybohms HTML EDITOR">
<meta name="revisit-after" content="10 days">
<meta name="ROBOTS" content="INDEX, FOLLOW">
</head>
<body background="http://www.uhren-schmuck-shops.de/bilder/hint.jpg" text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000">
<!-- Beginn Navigation Oben -->
<include src=navigation_oben>
<!-- Ende Navigation Oben -->
<!-- Beginn Innentabelle -->
<table width="100%" bgcolor="#FAD689" border="0" cellspacing="4" cellpadding="4" >
<tr>
<!-- Beginn Navigation links -->
<include src=navigation_links>
<!-- Ende Navigation links -->
<!-- Beginn Mittelteil -->
<td width="66%" valign="top">
<table height="100%" width="100%" bgcolor="#FDF5CA" border="0" cellspacing="0" cellpadding="1" >
<tr>
<th background="http://www.uhren-schmuck-shops.de/bilder/hint.jpg"><font color="#FAD689" face="VERDANA,ARIAL,HELVETICA" size="1">Uhren-Schmuck-News</font></th>
</tr>
<tr>
<td valign=top><font color="#800000" face="VERDANA,ARIAL,HELVETICA" size="1">
<p><br>
<b><i><font size=3>Uhren-Schmuck-News</font><p>
<b><i>Neueste Meldungen zuerst</i></b>
<hr size=1 color=#800000><br>
<table border="0" cellspacing="0" cellpadding="0">
<tr><td valign=top align=center>
<loop code=perl db=startnews sort=- >
$Text=substr($Text,0,120);
if($Bilddatei_kl eq "")
{
out "<table border=0 cellspacing=4 cellpadding=4>";
out "<tr>";
out "<td valign=top align=left colspan=2><b><font color=#800000 face=VERDANA,ARIAL,HELVETICA size=1>",$Titel ," </font></b><p>";
out "<font color=#800000 face=VERDANA,ARIAL,HELVETICA size=1><p align=justify>",$Text," ... ";
out "<a href=uhrenschmucknewsdetail&key=",$Nummer,">[Mehr Infos ...]</a> </p><p>";
out "<i>",$Autor,", ",$Datum,"</i></font></td>";
out "</tr><tr><td><hr size=1 color=#800000></td></tr>";
out "</table>";
}
else
{
out "<table border=0 cellspacing=4 cellpadding=4>";
out "<tr>";
out "<td valign=top align=left><b><font color=#800000 face=VERDANA,ARIAL,HELVETICA size=1>",$Titel," </font></b><p>";
out "<font color=#800000 face=VERDANA,ARIAL,HELVETICA size=1><p align=justify>",$Text," ... ";
out "<a href=uhrenschmucknewsdetail&key=",$Nummer,">[Mehr Infos ...]</a> </p><p>";
out "<i>",$Autor,", ",$Datum,"</i></font></td>";
out "<td valign=top align=right><a href=uhrenschmucknewsdetail&key=",$Nummer,">",$Bilddatei_kl,"</a></td>";
out "</tr><tr><td colspan=2><hr size=1 color=#800000></td></tr>";
out "</table>";
}
</loop>
</td></tr>
<tr><td>
<perl>
$v=$v||0;
get "Id==* sort=-Id range=$v,6", "/uhrenschmuckshops.de/startnews";
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 $font='Thomas, Arial';
my $size='1';
my $table=''; #kann auch %-Angabe gesetzt werden
my $table_align='left';
out "<div align=$table_align>";
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 $oldrange>=0?"<a href=\"$_link&v=0\">|<</a>":"|<";
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>";
$ende=substr($_amount_query,0,length($_amount_query)-1);
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=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&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>
</td></tr>
</table>
<table width="100%" bgcolor="#FDF5CA" border="0" cellspacing="4" cellpadding="4" >
<tr><td><font color="#800000" face="VERDANA,ARIAL,HELVETICA" size="1">
Die oben aufgeführten Uhren-Schmuck-News werden momentan noch in mühevoller Handarbeit im Internet recherchiert. Gern nehmen wir Ihre Pressemitteilungen und News entgegen um diese an entsprechender Stelle zu präsentieren. Für diesen Fall kontaktieren Sie uns bitte telefonisch oder <a href=mailto:info@uhren-schmuck-shops.de>per Mail</a>. Gern können Sie uns Ihre News aber auch über unser Formular (rechte Navigationsleiste "Shopnews melden") zukommen lassen.
<hr size=1 color=#800000>
</font></td></tr>
</table>
<!-- Beginn Mailaufforderung -->
<include src=mailaufforderung>
<!-- Beginn Mailaufforderung -->
<td>
</tr>
</table>
</td>
<!-- Ende Mittelteil -->
<!-- Beginn Navigation rechts -->
<include src=navigation_rechts>
<!-- Ende Navigation rechts -->
</tr>
</table>
<!-- Ende Innentabelle -->
<!-- Beginn Navigation Unten -->
<include src=navigation_unten>
<!-- Beginn Navigation Unten -->
</body>
