Hallo,
ich habe es fast geschaft.
nur die Pfeile oben auf der ersten Seite.
kommen nicht richtig (Link und Darstellung)
die Pfeile unten sind kpl richtig.
Hier der Link zum testen:
http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/suche2
und nun der Quelltext:
<html>
<head>
<title>Brückenliste</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<center>
<p>
<table width=100% cellpadding="2" cellspacing="0" border="1" >
<tr>
<td width="25%" align=left>
<span class=mengentext>Brückenname (Link zur Detail Ansicht)</font></span></td>
<td width="25%" align=left>
<span class=mengentext>Stadt</font></span></td>
<td width="25%" align=center>
<p align="left"><span class=mengentext>Land</font></span></td>
<td width="25%" align=center>
<p align="left"><span class=mengentext>Seiten Eigentümer</font></span></td>
</tr>
<tr>
<td width="100%" valign="top" colspan="4" valign="middle" align="center">
<perl>
$append = "&Brueckenname~=$Brueckenname" if $Brueckenname ne "";
$append = $append."&Land~=$Land" if $Land ne "";
$append = $append."&Stadt~=$Stadt" if $Stadt ne "";
$append = $append."&VerkehrswegOben~=$VerkehrswegOben" if $VerkehrswegOben ne "";
$append = $append."&VerkehrswegUnten~=$VerkehrswegUnten" if $VerkehswegUnten ne "";
$append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
get;
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
</perl>
<tr align="center">
<do db=brueckenbau action=input>
<loop db=brueckenbau sort^=Brueckenname range^=0,20>
</td>
<td align=left width="25%">
<span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke2&cmd=all&Id==$_id\">$Brueckenname</font></span></td>
<td align=left width="25%">
<span class=mengentext>$Stadt</font></span></td>
<td align=left width="25%">
<span class=mengentext>$Land</font></span></td>
<td align=left width="25%">
<span class=mengentext>$SeitenEigentuemer</font></span></td>
</tr>
</loop>
<tr><td colspan=4 align=center>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/links.gif\" width=\"40\" height=\"40\" border=0 alt=\"zurück\"></a> " if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img src=\"http://www.brueckenbau-links.de/rechts.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
</perl>
</td></tr>
<span class=smalltext><font color=#000033><br>
<perl>
out "Gefundene Datensätze $_amount_query";
</perl>
<include src=hinweis>
</center>
</body></html>
also bis bald
