Re: Feld nur anzeigen, wein ein Eintrag drinn ist zweiter Teil - baseportal Forum - Web-Anwendungen einfach, schnell, leistungsfähig!
baseportal
English - Deutsch "Es gibt keine dummen Fragen - jeder hat einmal angefangen"

 baseportal-ForumDie aktuellsten 10, 30, 50, 100 Einträge anzeigen.  

 
 Ausgewählter Eintrag: Zur Liste 
    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 ?


    Ihre Antwort:

    Name: EMail: EMail bei Antwort? WWW:
    Titel:
    Text:

    Neuer Eintrag


 Alle Einträge zum Thema: Zur Liste 
    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:
      <html>
      

      <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>&nbsp;</p>
      

      </body>
      </html>
      

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 9.Juli.2001, 18:57.
    Re: Feld nur anzeigen, wein ein Eintrag drinn ist

      so hier

      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>";
      

      Sander

     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

      Hallo,

      das hat geklappt,
      nun wird es glaube ich schwieriger.

      Nun soll von dieser Seite eine andere Datenbank (brueckenbau) alle Einträge des SeitenEigentuemers angezeigt werden.
      Jeder Eigentuemer hat eine in beider Datenbanken gleiche IDE
      Hier mein unfertiger Versuch:
      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 "";
      

      Bis gleich ?

     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

      Sieht doch gut aus, muß nur noch in " und die " innerhalb von out " " müssen mit \ maskiert werden.
      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 "";
      

      Sander

     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

      Danke

      es hat geklappt.

     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:
      <html>
      

      <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>
      

      <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 "";
      out "</li>";
      

      EOF
      }
      </loop>
      </ul>
      <p>&nbsp;</p>
      

      </body>
      </html>
      

      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>
      <tr>
      <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>
       
      
      Sander

     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

      aber jetzt:
      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 != 0;
      

      ist ja ne Zahl und kein Text *klatschvordieStirn*

     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:
      <html>
      

      <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>
      

      <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 "";
      out "</li>";
      

      EOF
      }
      </loop>
      </ul>
      <p>&nbsp;</p>
      

      </body>
      </html>
      

      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>
      <tr>
      <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

      Hallo,

      das hat geklappt,
      nun wird es glaube ich schwieriger.

      Nun soll von dieser Seite eine andere Datenbank (brueckenbau) alle Einträge des SeitenEigentuemers angezeigt werden.
      Jeder Eigentuemer hat eine in beider Datenbanken gleiche IDE
      Hier mein unfertiger Versuch:
      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 "";
      

      Bis gleich ?

     Antworten


     
 Liste der Einträge von 60000 bis 60150:Einklappen Zur Eingabe 
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < Zur Eingabe  > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge


Zurück zur Homepage

© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen



powered in 0.12s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!