Code - 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 Arnold (17 Beiträge) am Samstag, 19.Mai.2001, 18:50.
    Code

      <html>
      <head>
      <meta http-equiv="Content-Language" content="de">
      <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
      <style type="text/css">
      <!--
      A:link { text-decoration : none; color: #CCCCCC}
      A:visited { text-decoration : none; color: #CCCCCC}
      A:active { text-decoration : none; color: red}
      A:hover {text-decoration: none; color: green}
      TD {Color: black;Font-Family: Verdana, Helvetica; Font-Size: 10pt;}
      //-->
      </style>
      <title>Schimpfwörter</title>
      </head>
      

      <body bgcolor="#333333">

      <center>
      <br>
      
        <tr>         <perl> # Variabeln festlegen
              $AURL="http://baseportal.de/cgi-bin/baseportal.pl?htx=$_db";""; # Link zur Datenbank  $images="http://it.suxx.de/aputz/Grafik";""; # Link zu images         $Name2=$Name;"";# Name (Anfangsbuchstabe) Zwischenspeichern if ($eintragen==1) {         out <<EOF;
                                      <table><form action='$AURL&ID2=$_id&Neu=1&db=Geschichten&i=1' method='post' enctype='multipart/form-data'>
      <tr>
      <td align=right><font face="Arial" size="2"
      color="#cccccc">Titel:</font></td>
      <td><input type='text' name='Name:=' size=50 value='$Vorname'></td>
      </tr>
      <tr>
      <td align=right>Name:</td>
      <td><input type='text' name='Vorname:=' size=50 value='$Name'></td>
      </tr>
      

      <tr>
      <td align=right><font face="Arial" size="2" color="#cccccc">EMail:</font></td>
      <td><input type='text' name='EMail:=' size=50 value='$EMail'></td>
      </tr>
      

      <tr>
      <td align=right>Geschichte:</td>
      <td><textarea name='Kommentar:=' value='$Kommentar' cols=45 rows=15 wrap=virtual>
      </textarea></td>
      </tr>
                                      <tr>
      
                                      <td></td><td ><input type=submit value='Abschicken'>
      </br>  </br>

      EOF
      out "<center></center><font face='Arial' size='1'><a href='$AURL'>zurück</a></center>";
      }
      if ($Neu==1)
                                      {
                                              put ["Name",$Name,"Vorname",$Vorname,"EMail",$EMail,"Kommentar",$Kommentar],"$_db";
      $Neu=0
                                      }
                                      out "</td>";
      
                                      out "</tr>";                                 out "</form>";
                                      out "</table>";                                 out "</td>"; if ($eintragen==0) { out "<tr>

      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=A'>A</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=B'>B</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=C'>C</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=D'>D</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=E'>E</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=F'>F</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=G'>G</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=H'>H</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=I'>I</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=J'>J</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=K'>K</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=L'>L</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=M'>M</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=N'>N</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=O'>O</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=P'>P</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Q'>Q</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=R'>R</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=S'>S</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=T'>T</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=U'>U</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=V'>V</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=W'>W</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=X'>X</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Y'>Y</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Z'>Z</a>
      </br>
      <font face='Arial' size='1'><a href='$AURL&eintragen=1'>eintragen</a>
      </tr> </br>  </br>";
      

      # Wenn Detail 0 ist Liste ausgeben oder weitere Vergleiche/Berechnungen durchführen
       out "
      <table>
       <table border='0' align='middle' height='8' width='700' cellpadding='0' cellspacing='0'>
        <tr>
          <td bgcolor='#333333' width='17' height='18'><img src='$images/oblinks.gif' width='17' height='18'></td>
          <td bgcolor='#004965' width='690' height='18' ><div align='center'><font face='Verdana' size='2' color='#CCCCCC'>Schimpfwörter</font></div>
      
          <td width='17' bgcolor='#333333' height='18'><img src='$images/obrechts.gif' width='17' height='18' align='middle'></td>   </tr>   </table>
      <table border=0 width='700' height='260' cellspacing='0' cellpadding='0' bgcolor='#b0c4de'>
                                             ";
                                      if ($Detail eq 0)
                                              {
      

      # Datensätze mit dem Buchstaben Name holen und in Auswahl zwischenspeichern

                                                      get "Name eq $Name range^=$r,*","$_db","Auswahl";
      # Datensätze als Liste anzeigen
                                                      out "<tr><td valign='top'>";
      
                                                      while(get_next("Auswahl"))                                                         { out "<img src='$images/alt.gif'>"; out "<a href='$AURL&ID2=$_id&Detail=1&range=*,*&Name=$Name'>",$Vorname,"</a>"; out "<font face='Verdana' size='1'>von"; out "<font face='Verdana' size='1'>",$Name,"</font>"; out "<font face='Verdana' size='1'><br>";                                                         }                      }  if ($Detail==1) # andernfalls Detailausgabe erzeugen { get "Id==$ID2","$_db"; # out <<EOF; out "<td valign='top'>"; # </br> # <font face=arial size=2>Beitrag von <b><a href="mailto:$EMail">$Name</a></b> am $Datum:<br> # out "<tr><td valign='top' height='10'>",," <br><ul>",$Kommentar,"</td></tr></ul>"; out '<table width=90%><tr><td><br><font face=arial,helvetica size=2>'; out "Beitrag von <b>$Name</b> am $Datum<br>"; out "EMail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne ""; out "WWW: <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne ""; out "<p><ul>$Kommentar</ul></td></tr></table>";

      }
      # Text wenn neuer Eintrag
      

      out "<tr><td valign='top'>";
      if ($i==1)
                                      {
                                              out "</br>Danke für den neuen Eintrag ! </br>",$_amount_all," Schimpfwörter sind jetzt online !</br>";
      

      $i=0
                                      }
      

      if ($u==1)
                                      {
                                                 out " <center></br>Die wohl lustigsten, schmutzigsten, vulgärsten, ...  Schimpfwörter sind in dieser Liste enthalten.</br>
                                              </br>
      Haften will ich nicht für die Eintragungen, falls irgendwem die Ausdrücke zu anzügig sind sollte diese Seite einfach nicht mehr besuchen ! ;-)</br> <b> doch wer Southpark kennt und liebt wird die größte Freude daran finden !!! </b></center>";
      
                                      } } </perl> </tr>

      </table>
      <p> </p>
      </center>
      </body>
      </html>
      


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Arnold (17 Beiträge) am Samstag, 19.Mai.2001, 16:28.
    Wie kannn ich Text mit Return ausgeben ??

      Hab da ein Gästebuch umgeschrieben wo ich Lustige Texte speicher und wen man einen Text einfügt wird er ohne Leerzeilen ausgegeben (in einer Wurscht)
      Wie kann ich das ändern ??

      Danke Arnold

     Antworten

    Beitrag von Arnold (17 Beiträge) am Samstag, 19.Mai.2001, 17:01.
    noch was

      Wieso wird der Kommentar nicht mit Leerzeilen Ausgegeben ??? Arnold

      if ($Detail==1)
      
      Detailausgabe erzeugen
      {
      get "Id==$ID2","$_db";
      out <<EOF;
      <td valign='top'>
      </br>
      <font face=arial size=2>Beitrag von <b><a href="mailto:$EMail">$Name</a></b> am $Datum:<br>
      EOF
      

      out "<tr><td valign='top' height='10'>",," <br><ul>",$Kommentar,"</td></tr></ul>";

      }
      

     Antworten

    Beitrag von Arnold (17 Beiträge) am Samstag, 19.Mai.2001, 17:18.
    noch was

      Wieso wird der Kommentar nicht mit Leerzeilen Ausgegeben ??? Arnold

      if ($Detail==1)
      
      Detailausgabe erzeugen
      {
      get "Id==$ID2","$_db";
      out <<EOF;
      <td valign='top'>
      </br>
      <font face=arial size=2>Beitrag von <b><a href="mailto:$EMail">$Name</a></b> am $Datum:<br>
      EOF
      

      out "<tr><td valign='top' height='10'>",," <br><ul>",$Kommentar,"</td></tr></ul>";

      }
      

     Antworten

    Beitrag von Arnold (17 Beiträge) am Samstag, 19.Mai.2001, 18:50.
    Code

      <html>
      <head>
      <meta http-equiv="Content-Language" content="de">
      <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
      <style type="text/css">
      <!--
      A:link { text-decoration : none; color: #CCCCCC}
      A:visited { text-decoration : none; color: #CCCCCC}
      A:active { text-decoration : none; color: red}
      A:hover {text-decoration: none; color: green}
      TD {Color: black;Font-Family: Verdana, Helvetica; Font-Size: 10pt;}
      //-->
      </style>
      <title>Schimpfwörter</title>
      </head>
      

      <body bgcolor="#333333">

      <center>
      <br>
      
        <tr>         <perl> # Variabeln festlegen
              $AURL="http://baseportal.de/cgi-bin/baseportal.pl?htx=$_db";""; # Link zur Datenbank  $images="http://it.suxx.de/aputz/Grafik";""; # Link zu images         $Name2=$Name;"";# Name (Anfangsbuchstabe) Zwischenspeichern if ($eintragen==1) {         out <<EOF;
                                      <table><form action='$AURL&ID2=$_id&Neu=1&db=Geschichten&i=1' method='post' enctype='multipart/form-data'>
      <tr>
      <td align=right><font face="Arial" size="2"
      color="#cccccc">Titel:</font></td>
      <td><input type='text' name='Name:=' size=50 value='$Vorname'></td>
      </tr>
      <tr>
      <td align=right>Name:</td>
      <td><input type='text' name='Vorname:=' size=50 value='$Name'></td>
      </tr>
      

      <tr>
      <td align=right><font face="Arial" size="2" color="#cccccc">EMail:</font></td>
      <td><input type='text' name='EMail:=' size=50 value='$EMail'></td>
      </tr>
      

      <tr>
      <td align=right>Geschichte:</td>
      <td><textarea name='Kommentar:=' value='$Kommentar' cols=45 rows=15 wrap=virtual>
      </textarea></td>
      </tr>
                                      <tr>
      
                                      <td></td><td ><input type=submit value='Abschicken'>
      </br>  </br>

      EOF
      out "<center></center><font face='Arial' size='1'><a href='$AURL'>zurück</a></center>";
      }
      if ($Neu==1)
                                      {
                                              put ["Name",$Name,"Vorname",$Vorname,"EMail",$EMail,"Kommentar",$Kommentar],"$_db";
      $Neu=0
                                      }
                                      out "</td>";
      
                                      out "</tr>";                                 out "</form>";
                                      out "</table>";                                 out "</td>"; if ($eintragen==0) { out "<tr>

      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=A'>A</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=B'>B</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=C'>C</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=D'>D</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=E'>E</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=F'>F</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=G'>G</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=H'>H</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=I'>I</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=J'>J</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=K'>K</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=L'>L</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=M'>M</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=N'>N</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=O'>O</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=P'>P</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Q'>Q</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=R'>R</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=S'>S</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=T'>T</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=U'>U</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=V'>V</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=W'>W</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=X'>X</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Y'>Y</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Z'>Z</a>
      </br>
      <font face='Arial' size='1'><a href='$AURL&eintragen=1'>eintragen</a>
      </tr> </br>  </br>";
      

      # Wenn Detail 0 ist Liste ausgeben oder weitere Vergleiche/Berechnungen durchführen
       out "
      <table>
       <table border='0' align='middle' height='8' width='700' cellpadding='0' cellspacing='0'>
        <tr>
          <td bgcolor='#333333' width='17' height='18'><img src='$images/oblinks.gif' width='17' height='18'></td>
          <td bgcolor='#004965' width='690' height='18' ><div align='center'><font face='Verdana' size='2' color='#CCCCCC'>Schimpfwörter</font></div>
      
          <td width='17' bgcolor='#333333' height='18'><img src='$images/obrechts.gif' width='17' height='18' align='middle'></td>   </tr>   </table>
      <table border=0 width='700' height='260' cellspacing='0' cellpadding='0' bgcolor='#b0c4de'>
                                             ";
                                      if ($Detail eq 0)
                                              {
      

      # Datensätze mit dem Buchstaben Name holen und in Auswahl zwischenspeichern

                                                      get "Name eq $Name range^=$r,*","$_db","Auswahl";
      # Datensätze als Liste anzeigen
                                                      out "<tr><td valign='top'>";
      
                                                      while(get_next("Auswahl"))                                                         { out "<img src='$images/alt.gif'>"; out "<a href='$AURL&ID2=$_id&Detail=1&range=*,*&Name=$Name'>",$Vorname,"</a>"; out "<font face='Verdana' size='1'>von"; out "<font face='Verdana' size='1'>",$Name,"</font>"; out "<font face='Verdana' size='1'><br>";                                                         }                      }  if ($Detail==1) # andernfalls Detailausgabe erzeugen { get "Id==$ID2","$_db"; # out <<EOF; out "<td valign='top'>"; # </br> # <font face=arial size=2>Beitrag von <b><a href="mailto:$EMail">$Name</a></b> am $Datum:<br> # out "<tr><td valign='top' height='10'>",," <br><ul>",$Kommentar,"</td></tr></ul>"; out '<table width=90%><tr><td><br><font face=arial,helvetica size=2>'; out "Beitrag von <b>$Name</b> am $Datum<br>"; out "EMail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne ""; out "WWW: <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne ""; out "<p><ul>$Kommentar</ul></td></tr></table>";

      }
      # Text wenn neuer Eintrag
      

      out "<tr><td valign='top'>";
      if ($i==1)
                                      {
                                              out "</br>Danke für den neuen Eintrag ! </br>",$_amount_all," Schimpfwörter sind jetzt online !</br>";
      

      $i=0
                                      }
      

      if ($u==1)
                                      {
                                                 out " <center></br>Die wohl lustigsten, schmutzigsten, vulgärsten, ...  Schimpfwörter sind in dieser Liste enthalten.</br>
                                              </br>
      Haften will ich nicht für die Eintragungen, falls irgendwem die Ausdrücke zu anzügig sind sollte diese Seite einfach nicht mehr besuchen ! ;-)</br> <b> doch wer Southpark kennt und liebt wird die größte Freude daran finden !!! </b></center>";
      
                                      } } </perl> </tr>

      </table>
      <p> </p>
      </center>
      </body>
      </html>
      

     Antworten

    Beitrag von Arnold (17 Beiträge) am Samstag, 19.Mai.2001, 19:07.
    Code

      <html>
      <head>
      <meta http-equiv="Content-Language" content="de">
      <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
      <style type="text/css">
      <!--
      A:link { text-decoration : none; color: #CCCCCC}
      A:visited { text-decoration : none; color: #CCCCCC}
      A:active { text-decoration : none; color: red}
      A:hover {text-decoration: none; color: green}
      TD {Color: black;Font-Family: Verdana, Helvetica; Font-Size: 10pt;}
      //-->
      </style>
      <title>Schimpfwörter</title>
      </head>
      

      <body bgcolor="#333333">

      <center>
      <br>
      
        <tr>         <perl> # Variabeln festlegen
              $AURL="http://baseportal.de/cgi-bin/baseportal.pl?htx=$_db";""; # Link zur Datenbank  $images="http://it.suxx.de/aputz/Grafik";""; # Link zu images         $Name2=$Name;"";# Name (Anfangsbuchstabe) Zwischenspeichern if ($eintragen==1) {         out <<EOF;
                                      <table><form action='$AURL&ID2=$_id&Neu=1&db=Geschichten&i=1' method='post' enctype='multipart/form-data'>
      <tr>
      <td align=right><font face="Arial" size="2"
      color="#cccccc">Titel:</font></td>
      <td><input type='text' name='Name:=' size=50 value='$Vorname'></td>
      </tr>
      <tr>
      <td align=right>Name:</td>
      <td><input type='text' name='Vorname:=' size=50 value='$Name'></td>
      </tr>
      

      <tr>
      <td align=right><font face="Arial" size="2" color="#cccccc">EMail:</font></td>
      <td><input type='text' name='EMail:=' size=50 value='$EMail'></td>
      </tr>
      

      <tr>
      <td align=right>Geschichte:</td>
      <td><textarea name='Kommentar:=' value='$Kommentar' cols=45 rows=15 wrap=virtual>
      </textarea></td>
      </tr>
                                      <tr>
      
                                      <td></td><td ><input type=submit value='Abschicken'>
      </br>  </br>

      EOF
      out "<center></center><font face='Arial' size='1'><a href='$AURL'>zurück</a></center>";
      }
      if ($Neu==1)
                                      {
                                              put ["Name",$Name,"Vorname",$Vorname,"EMail",$EMail,"Kommentar",$Kommentar],"$_db";
      $Neu=0
                                      }
                                      out "</td>";
      
                                      out "</tr>";                                 out "</form>";
                                      out "</table>";                                 out "</td>"; if ($eintragen==0) { out "<tr>

      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=A'>A</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=B'>B</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=C'>C</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=D'>D</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=E'>E</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=F'>F</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=G'>G</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=H'>H</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=I'>I</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=J'>J</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=K'>K</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=L'>L</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=M'>M</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=N'>N</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=O'>O</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=P'>P</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Q'>Q</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=R'>R</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=S'>S</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=T'>T</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=U'>U</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=V'>V</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=W'>W</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=X'>X</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Y'>Y</a>
      <font face='Arial' size='1'><a href='$AURL&Detail=0&range=*,*&Name~=Z'>Z</a>
      </br>
      <font face='Arial' size='1'><a href='$AURL&eintragen=1'>eintragen</a>
      </tr> </br>  </br>";
      

      # Wenn Detail 0 ist Liste ausgeben oder weitere Vergleiche/Berechnungen durchführen
       out "
      <table>
       <table border='0' align='middle' height='8' width='700' cellpadding='0' cellspacing='0'>
        <tr>
          <td bgcolor='#333333' width='17' height='18'><img src='$images/oblinks.gif' width='17' height='18'></td>
          <td bgcolor='#004965' width='690' height='18' ><div align='center'><font face='Verdana' size='2' color='#CCCCCC'>Schimpfwörter</font></div>
      
          <td width='17' bgcolor='#333333' height='18'><img src='$images/obrechts.gif' width='17' height='18' align='middle'></td>   </tr>   </table>
      <table border=0 width='700' height='260' cellspacing='0' cellpadding='0' bgcolor='#b0c4de'>
                                             ";
                                      if ($Detail eq 0)
                                              {
      

      # Datensätze mit dem Buchstaben Name holen und in Auswahl zwischenspeichern

                                                      get "Name eq $Name range^=$r,*","$_db","Auswahl";
      # Datensätze als Liste anzeigen
                                                      out "<tr><td valign='top'>";
      
                                                      while(get_next("Auswahl"))                                                         { out "<img src='$images/alt.gif'>"; out "<a href='$AURL&ID2=$_id&Detail=1&range=*,*&Name=$Name'>",$Vorname,"</a>"; out "<font face='Verdana' size='1'>von"; out "<font face='Verdana' size='1'>",$Name,"</font>"; out "<font face='Verdana' size='1'><br>";                                                         }                      }  if ($Detail==1) # andernfalls Detailausgabe erzeugen { get "Id==$ID2","$_db"; # out <<EOF; out "<td valign='top'>"; # </br> # <font face=arial size=2>Beitrag von <b><a href="mailto:$EMail">$Name</a></b> am $Datum:<br> # out "<tr><td valign='top' height='10'>",," <br><ul>",$Kommentar,"</td></tr></ul>"; out '<table width=90%><tr><td><br><font face=arial,helvetica size=2>'; out "Beitrag von <b>$Name</b> am $Datum<br>"; out "EMail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne ""; out "WWW: <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne ""; out "<p><ul>$Kommentar</ul></td></tr></table>";

      }
      # Text wenn neuer Eintrag
      

      out "<tr><td valign='top'>";
      if ($i==1)
                                      {
                                              out "</br>Danke für den neuen Eintrag ! </br>",$_amount_all," Schimpfwörter sind jetzt online !</br>";
      

      $i=0
                                      }
      

      if ($u==1)
                                      {
                                                 out " <center></br>Die wohl lustigsten, schmutzigsten, vulgärsten, ...  Schimpfwörter sind in dieser Liste enthalten.</br>
                                              </br>
      Haften will ich nicht für die Eintragungen, falls irgendwem die Ausdrücke zu anzügig sind sollte diese Seite einfach nicht mehr besuchen ! ;-)</br> <b> doch wer Southpark kennt und liebt wird die größte Freude daran finden !!! </b></center>";
      
                                      } } </perl> </tr>

      </table>
      <p> </p>
      </center>
      </body>
      </html>
      

     Antworten

    Beitrag von Sander (8133 Beiträge) am Sonntag, 20.Mai.2001, 00:04.
    Re: Wie kannn ich Text mit Return ausgeben ??

      probier mal
      out "<tr><td valign='top' height='10'><br><ul>".convert_br($Kommentar)."</td></tr></ul>";
      

      du kannst ansonsten Variblen gleich mit in "..." schreiben:

      out "<tr><td>$variable</td></tr>";
      

      Sander

     Antworten


     
 Liste der Einträge von 62100 bis 62250: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.11s by baseportal.de
Erstellen Sie Ihre eigene Web-Datenbank - kostenlos!