Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 18:37.
Feld nur anzeigen, wein ein Eintrag drinn ist
Hallo,
die Frage wurde schon einmal beantwortet, aber wo ?
Die Zeile:
(KeyWords: $KeyWords)
soll nur erscheinen, wenn das Feld KeyWords ein Eintrag hat, wie geht das ?
Hier mein Quelltext:
<head>
<title>Linkliste</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<h3><a name="Anfang"></a>Linkliste</h3>
<p>Diese Seite wird durch eine Datenbank erzeugt. Bitte überprüfen Sie Ihre Einträge.
<br>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
(KeyWords: $KeyWords)
</li>
EOF
</loop>
</ul>
<p> </p>
</body>
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 9.Juli.2001, 18:57.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 20:08.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 9.Juli.2001, 20:46.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 20:53.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 21:00.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Hallo,
noch nicht ganz.
Die Abfrage:
" if $IDE ne "";
solls ich auf die Datenbank brueckenbau beziehen.
Geht das ?
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 9.Juli.2001, 21:13.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
nur wenn irgendeine Beziehung zwischen den beiden dbs besteht, also es irgendwo eine eindeutige Identifizierung zwischen den Datensätzen gibt.
bsp:
BrückenLänderauswahl
...Deutschland..1
...USA..2
BrückenNamen
...Göltschtalbrücke...1
...Zahnbrücke...1 ;-)
...wasweißich...1
...goldengatebridge...2
...anderebrückeusa...2
alles was 1 hat kommt aus Deutschland, 2 aus USA
sowas brauchst du auch - dann gehts.
Ganz praktisch wäre es schon wenn IDE in beiden DBs vorkommen würde.
Sander
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 21:26.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Hallo,
genau $IDE ist in beiden Datenbanken das gleiche !
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 9.Juli.2001, 21:40.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
und dann geht das nicht? gib mal den code von der ausgabe.
Sander
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 22:08.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Hier der Quelltext:
<head>
<title>Linkliste</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<h3><a name="Anfang"></a>Linkliste</h3>
<p>Diese Seite wird durch eine Datenbank erzeugt. Bitte überprüfen Sie Ihre Einträge.
<h4>Ingenieurbüros</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Ingenieurbüro") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Baufirmen</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Baufirma") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Schulen, Universitäten u.a.</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Schule") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Private Seiten</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Privat") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Sehenswertes</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Sehenswertes") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Seiten unsortiert</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "<a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/suchergebnis&range=0,5&IDE==$IDE&mode=pictures\" target=\"_blank\">Zu den Brücken von $SeitenEigentuemer</a>" if $IDE ne "";
EOF
}
</loop>
</ul>
<p> </p>
</body>
Und die Ausgabeseite:
<html>
<head>
<title>Ausgabe mit oder ohne Bilder</title>
<link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
</head>
<body>
<perl>
if($mode eq "pictures") {
out <<EOF;
<p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
<table border="1" width="100%" cellpadding="2" cellspacing="1">
<tr>
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<p align="center">
<table border="1" width="100%" cellpadding="2" cellspacing="1">
<tr>
EOF
}
</perl>
<perl>
if($mode eq "pictures") {
out <<EOF;
<table border="0" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<table border="0" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<td width="100%" valign="top" colspan="6" valign="middle" align="center" >
EOF
}
</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."&mode=$mode";
</perl>
<loop code=perl db=brueckenbau>
out "";
</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/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>
<loop db=brueckenbau code=perl>
if($mode eq "nopictures") {
out <<EOF;
<tr align="center">
<td align=left >
<span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</a></span>
</td>
<td align=left>
<span class=mengentext>$SeitenEigentuemer</span>
</td>
<td align=left>
<span class=mengentext>$Stadt</span>
</td>
<td align=left>
<span class=mengentext>$Land</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegOben</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegUnten</span>
</td>
</tr>
EOF
}
if($mode eq "pictures") {
out <<EOF;
<tr>
<td width="100%"><div align="left"><table border="0" valign="top" align="left">
<tr>
<td>
EOF
out "<a href='$BildLink'>" if $BildLink ne "";
out "<img src='$BildvorschauLink' alt='$Brueckenname' border=0 align=left hspace=5 vspace=5>";
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<br>
<a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a></font></td>
</tr>
</table></div>
<a valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</font></strong></a>, $Stadt, $Land, <p>$Beschreibung
</tr>
<tr>
<td width="100%" colspan="1">
<hr noshade size="3" color="#008080">
</td>
</tr>
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<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"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
</tr>
<tr>
<td><p align="center"> <a href="$BildLinkSeite">
<img src="$BildLink" alt="$Brueckenname" border="0"></a></td>
</tr>
<tr>
<td width="100%"><p align="center"><font size="1">Bild und Text von <a href="$EigentuemerLink">$SeitenEigentuemer</a></font></td>
</tr><tr>
<td><p align="center"> $Beschreibung</td>
</tr></tr>
EOF
}
</loop>
<perl>
if($mode eq "pictures") {
out <<EOF;
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<td width="100%" valign="top" colspan="6" valign="middle" align="center">
EOF
}
</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/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>
</table>
<div align="center">
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=hinweis>
</div>
</body>
</html>
und der Link:
http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/linkliste
Antworten
Beitrag von Sander (8133 Beiträge) am Montag, 9.Juli.2001, 22:32.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
jo, was geht denn nicht? Haut doch alles hin, oder?
Sander
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 22:41.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Antworten
Beitrag von Sander (8133 Beiträge) am Dienstag, 10.Juli.2001, 00:35.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
aber es müssten welche dasein? hat IDE in der db brückenbau auch denselben Eintrag?
Sander
Antworten
Beitrag von Michael Koch (344 Beiträge) am Dienstag, 10.Juli.2001, 12:22.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Hallo,
in der Datenbank brueckenbau hat jeder SeitenEigetuemer die gleiche IDE
wie in der datenbank links
Aber in der datenbank links gibt es Einträge mit einer IDE diese IDE ist dann nicht in der Datenbak brueckenbau vorhanden (vielleicht später)
Und wenn sie dort nicht vorhanden ist, soll die Zeile nicht kommen.
Antworten
Beitrag von Sander (8133 Beiträge) am Dienstag, 10.Juli.2001, 14:48.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
ja, jetzt,
mal als beispiel:
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
get "IDE==$IDE range=0,1","brueckenbau"; #gucken, ob Eintrag da ist
out "<a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/suchergebnis&range=0,5&IDE==$IDE&mode=pictures\" target=\"_blank\">Zu den Brücken von $SeitenEigentuemer</a>" if $_amount ne "";
out "</li>";
}
</loop>
Antworten
Beitrag von Michael Koch (344 Beiträge) am Dienstag, 10.Juli.2001, 18:38.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Antworten
Beitrag von Sander (8133 Beiträge) am Dienstag, 10.Juli.2001, 22:05.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Antworten
Beitrag von Michael Koch (344 Beiträge) am Mittwoch, 11.Juli.2001, 09:34.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil es ist geschaft
Danke Sander,
du warst mal wider gut.
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 22:34.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Hier der Quelltext:
<head>
<title>Linkliste</title>
</head>
<LINK href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
<body>
<h3><a name="Anfang"></a>Linkliste</h3>
<p>Diese Seite wird durch eine Datenbank erzeugt. Bitte überprüfen Sie Ihre Einträge.
<h4>Ingenieurbüros</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Ingenieurbüro") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Baufirmen</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Baufirma") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Schulen, Universitäten u.a.</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Schule") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Private Seiten</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Privat") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Sehenswertes</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "Sehenswertes") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "</li>";
EOF
}
</loop>
</ul>
<h4>Seiten unsortiert</h4>
<ul>
<loop db=links code=perl sort=SeitenEigentuemer>
if($Rubrik eq "") {
out <<EOF;
<li><a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a> (ID=<strong>$IDE</strong>)
- <font color="#000080">$Land $PLZ</font> - $Beschreibung<br>
EOF
out "(KeyWords: $KeyWords)" if $KeyWords ne "";
out "<a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/suchergebnis&range=0,5&IDE==$IDE&mode=pictures\" target=\"_blank\">Zu den Brücken von $SeitenEigentuemer</a>" if $IDE ne "";
EOF
}
</loop>
</ul>
<p> </p>
</body>
Und die Ausgabeseite:
<html>
<head>
<title>Ausgabe mit oder ohne Bilder</title>
<link href="http://www.brueckenbau-links.de/bblinks.css" rel=styleSheet type=text/css>
</head>
<body>
<perl>
if($mode eq "pictures") {
out <<EOF;
<p align="center"><b><span class="mengentext">Suchergebnisse, Ausgabe mit Bildern:</span></b></p>
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<p align="center"><b><span class="mengentext">Suchergebnisse:</span></b></p>
<table border="1" width="100%" cellpadding="2" cellspacing="1">
<tr>
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<p align="center">
<table border="1" width="100%" cellpadding="2" cellspacing="1">
<tr>
EOF
}
</perl>
<perl>
if($mode eq "pictures") {
out <<EOF;
<table border="0" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<table border="0" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<td width="100%" valign="top" colspan="6" valign="middle" align="center" >
EOF
}
</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."&mode=$mode";
</perl>
<loop code=perl db=brueckenbau>
out "";
</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/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>
<loop db=brueckenbau code=perl>
if($mode eq "nopictures") {
out <<EOF;
<tr align="center">
<td align=left >
<span class=mengentext><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</a></span>
</td>
<td align=left>
<span class=mengentext>$SeitenEigentuemer</span>
</td>
<td align=left>
<span class=mengentext>$Stadt</span>
</td>
<td align=left>
<span class=mengentext>$Land</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegOben</span>
</td>
<td align=left>
<span class=mengentext>$VerkehrswegUnten</span>
</td>
</tr>
EOF
}
if($mode eq "pictures") {
out <<EOF;
<tr>
<td width="100%"><div align="left"><table border="0" valign="top" align="left">
<tr>
<td>
EOF
out "<a href='$BildLink'>" if $BildLink ne "";
out "<img src='$BildvorschauLink' alt='$Brueckenname' border=0 align=left hspace=5 vspace=5>";
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<br>
<a href="$EigentuemerLink" target="_blank">$SeitenEigentuemer</a></font></td>
</tr>
</table></div>
<a valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</font></strong></a>, $Stadt, $Land, <p>$Beschreibung
</tr>
<tr>
<td width="100%" colspan="1">
<hr noshade size="3" color="#008080">
</td>
</tr>
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<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"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/bruecke&cmd=all&Id==$_id\">$Brueckenname</font></strong></a><p> $Stadt, $Land </td>
</tr>
<tr>
<td><p align="center"> <a href="$BildLinkSeite">
<img src="$BildLink" alt="$Brueckenname" border="0"></a></td>
</tr>
<tr>
<td width="100%"><p align="center"><font size="1">Bild und Text von <a href="$EigentuemerLink">$SeitenEigentuemer</a></font></td>
</tr><tr>
<td><p align="center"> $Beschreibung</td>
</tr></tr>
EOF
}
</loop>
<perl>
if($mode eq "pictures") {
out <<EOF;
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "bigpictures") {
out <<EOF;
<td width="100%" valign="top" colspan="1" valign="middle" align="center">
EOF
}
if($mode eq "nopictures") {
out <<EOF;
<td width="100%" valign="top" colspan="6" valign="middle" align="center">
EOF
}
</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/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>
</table>
<div align="center">
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefundem";
</perl>
<include src=hinweis>
</div>
</body>
</html>
und der Link:
http://baseportal.de/cgi-bin/baseportal.pl?htx=/brueckenbau/linkliste
Antworten
Beitrag von Michael Koch (344 Beiträge) am Montag, 9.Juli.2001, 20:48.
Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil
Antworten
