Hier meine derzeitige Ausgabeseite:
www.brueckenbau-links.de
ich hoffe es ist nicht zu viel.
<head>
<title>neue Ausgabeseite</title>
<link href="http://www.brueckenbau-links.de/bblinkss.css" rel=styleSheet type=text/css>
</head>
<body>
if (index($suchbegriffe,"+") == -1) {
@suchargumente=split(/ /, $suchbegriffe);
$suchbegriffe="+";
for (@suchargumente) {
$suchbegriffe=$suchbegriffe.$_.",+";
}
$suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2);
}
</perl>
<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 $VerkehrswegUnten ne "";
$append = $append."&SeitenEigentuemer~=$SeitenEigentuemer" if $SeitenEigentuemer ne "";
$append = $append."&BrueckenTyp~=$BrueckenTyp" if $BrueckenTyp ne "";
$append = $append."&Baustoff~=$Baustoff" if $Baustoff ne "";
$append = $append."&IDE~=$IDE" if $IDE ne "";
$append = $append."&_fullsearch~~$_sel{'_fullsearch'}" if $_sel{"_fullsearch"} ne "";
$append = $append."&suchbegriffe=".convert_url($suchbegriffe) if $suchbegriffe ne "";
$append = $append."&mode=$mode";
</perl>
<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/zurueck.gif\" 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/weiter.gif\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
</perl>
<loop db=brueckenbau code=perl _fullsearch~~$suchbegriffe sort^=-Datum fullsearch_match=200 range ^=0,10>
$Beschreibung_m=$Beschreibung ;
$_amount_query_m=$_amount_query ;
$Idm=$_id ;
$Land_m=$Land ;
get "IDE==!$IDE", "links";
$SeitenEigentuemer_m=$SeitenEigentuemer ;
$EigentuemerLink_m=$EigentuemerLink ;
$_amount_query=$_amount_query_m ;
# ab hier soll nur noch die db brueckenbau abgefragt werden
if($xxx > 9) {
<tr><td>
<div align="center"><center>
<table border="1" bordercolor="#FF0000">
<tr>
<td width="100%"><p align="center"><font color="#FF0000">Bei diesem Datensatz geht wohl
der Link zum Foto oder der Link zur Seite des Bildes nicht mehr.<br>
<a href="$EigentuemerLink_m" target="_blank">Versuchen Sie es auf der Startseite des
Seiteneigentümers</a>.</font></td>
</tr>
</table>
</center></div>
</tr></td>
EOF
}
if($mode eq "pictures") {
out <<EOF;
<div align="center"><center>
<table border="0" width="100%">
<tr>
<td valign="top"><h3>$Brueckenname</h3>
<p><strong>
EOF
out "$Stadt, " if $Stadt ne ("" || "-");
out "$Lage, " if $Lage ne ("" || "-");
out "$Land_m" if $Land_m ne ("" || "-");
out <<EOF;
</p>
<table border="0" cellspacing="0">
EOF
out "<tr><td><strong>Brückentyp: </td><td>$BrueckenTyp</strong></td></tr>" if $BrueckenTyp ne "";
out "<tr><td><strong>Baustoff: </td><td>$Baustoff</strong></td></tr>" if $Baustoff ne "";
out "<tr><td><strong>Verkehrsweg oben: </td><td>$VerkehrswegOben</strong></td></tr>" if $VerkehrswegOben ne ("" || "-");
out "<tr><td><strong>Verkehrsweg unten: </td><td>$VerkehrswegUnten</strong></td></tr>" if $VerkehrswegUnten ne ("" || "-");
out <<EOF;
</strong></table>
<p>$Beschreibung_m</td>
<td valign="top"><p align="right"><table border="0" valign="top" align="right">
<tr>
EOF
out "<a href='http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/suchergebnis&mode=bigpictures&range=0,1&Id==$Idm\'>" if $BildLink ne "";
out "<img src='$BildvorschauLink' alt='$Brueckenname' border=0 align=right width='250'>";
out "</a>" if $BildLink ne "";
out <<EOF;
</td>
</tr>
<tr>
<td width="100%" valign="top"><p align="left"><font size="1">Bild und Text von <strong>
<a href="$EigentuemerLink_m" target="_blank">$SeitenEigentuemer_m</a></font>
<p><a href="$BildLinkSeite" target="_blank">Hier kommt das Bild her.</a></strong>
</p></td>
</tr>
</table>
</td>
</tr>
</table>
</center></div>
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<div align="center"><center>
<table>
<tr>
<td width="100%">
EOF
$BildLink=$BildvorschauLink if $BildLink eq "";
out <<EOF;
<tr align="center">
<tr align="center">
<td> <a align="center" valign="top"><strong><font size="4">$Brueckenname</font></strong></a><p>
EOF
out "$Stadt, " if $Stadt ne ("" || "-");
out "$Lage, " if $Lage ne ("" || "-");
out "$Land_m" if $Land_m ne ("" || "-");
out <<EOF;
</td>
</tr>
<tr>
<td><p align="center"> <img src="$BildLink" alt="$Brueckenname" border="0"></a></td>
</tr>
<tr>
<td width="100%"><p align="center"><font size="2">Bild und Text von <a href="$EigentuemerLink_m">$SeitenEigentuemer_m</a></font></td>
</tr><tr>
<td><p align="center"> $Beschreibung_m<br>
<p align="center"><a href="$BildLinkSeite" target="_blank">Hier kommt das Bild her.</a></strong></td>
</tr></tr>
</table>
<table border="0" cellspacing="0">
out "<tr><td><strong>Brückentyp: </td><td>$BrueckenTyp</strong></td></tr>" if $BrueckenTyp ne "";
out "<tr><td><strong>Baustoff: </td><td>$Baustoff</strong></td></tr>" if $Baustoff ne "";
out "<tr><td><strong>Verkehrsweg oben: </td><td>$VerkehrswegOben</strong></td></tr>" if $VerkehrswegOben ne ("" || "-");
out "<tr><td><strong>Verkehrsweg unten: </td><td>$VerkehrswegUnten</strong></td></tr>" if $VerkehrswegUnten ne ("" || "-");
out <<EOF;
</strong></table>
</center></div>
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<div align="center"><center>
<table>
<tr align="center">
<td align=left >
<span class=mengentext><a href=\"http://koch.netpure.de/cgi-bin/baseportal.pl?htx=/koch/brueckenbau/suchergebnis&mode=pictures&range=0,1&Id==$Idm\">$Brueckenname</a></span>
</td>
<td align=left>
<span class=mengentext>$SeitenEigentuemer_m</span>
</td>
<td align=left>
<span class=mengentext>$Stadt</span>
</td>
<td align=left>
<span class=mengentext>$Land_m</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegOben</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegUnten</span>
</td>
</tr>
</table>
</center></div>
EOF
}
out <<EOF;
<hr size="3" color="#449B74">
EOF
</loop>
<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/zurueck.gif\" 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/weiter.gif\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;
out "<br>Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=links>
</body>
