Re: @Sander & Co Suchformular-Ausgabe - 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 Sander (8133 Beiträge) am Montag, 25.Juni.2001, 18:31.
    Re: @Sander & Co Suchformular-Ausgabe

      Du hast ein <perl> am Anfang zu viel.
      Ich hab mal den Code optimiert.
      <html>
<head>
<title>PC - Hilfe - Treiber - Ausbabe</title>
</head>
<body>
<p align="center"><b><font color="#0000FF" size="4" face="Arial">Suchergebnisse</font></b></p>
<center>
<table border="2" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="2" valign="middle" align="center">
<perl>
$append = "&Bereich~=$Bereich" if $Bereich ne "";
$append = $append."&Name~=$Name" if $Name ne "";
$append = $append."&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
$append = $append."&Version~=$Version" if $Version ne "";
$append = $append."&Datum~=$Datum" if $Datum ne "";
$append = $append."&URL~=$URL" if $URL ne "";
</perl>

      <loop code=perl db=/pc_hilfe/Treiber1/Daten>
      $ausgabe.="<tr><td><table border=0 width=100% valign=top><tr></tr></table></td><td <a valign=top><strong><font size=4><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/pc_hilfe/Treiber1/Daten&cmd=all&Id==$_id>$Bereich</font></strong></a>, $Name, $Bezeichnung, <p>$Version, $Datum</td></tr><tr><td width=00% colspan=2><hr noshade size=3 color=008080></td></tr>";
</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.pc-hilfe.claranet.de/private./hand_li.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.pc-hilfe.claranet.de/private/hand_re.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      out "</td></tr>$ausgabe<tr><td colspan=2 align=center>";

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.pc-hilfe.claranet.de/private/hand_li.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.pc-hilfe.claranet.de/private/hand_re.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>
      </td></tr>
</table>
<center>
Bei dieser Suchanfrage wurden $_amount_query Datensätze gefunden
</center>
</body>
</html>


    Antworten

 Alle Einträge zum Thema: Zur Liste 
    Beitrag von Jogi (53 Beiträge) am Montag, 25.Juni.2001, 16:13.
    @Sander & Co Suchformular-Ausgabe

      Hallo Sander

      Erhalte in der Suchausgabe folgende Fehlermeldung:

      [ Fehler: (perl) in /pc_hilfe/Treiber1/ausgabe: glob trapped by operation mask at (eval 910) line 3. ]

      Leider finde ich keinen Fehler ??


      Dank

      Gruß Jogi

      <html>

      <head>
      <title>PC - Hilfe - Treiber - Ausbabe</title>

      </head>
      <body>
<p align="center"><b><font color="#0000FF" size="4" face="Arial">Suchergebnisse</font></b></p>
<center>
<perl>

      <table border="2" width="100%" cellpadding="2" cellspacing="1">
      <tr>
<td width="100%"  valign="top" colspan="2" valign="middle" align="center">

      <perl>
      $append = "&Bereich~=$Bereich" if $Bereich ne "";
$append = $append."&Name~=$Name" if $Name ne "";
$append = $append."&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
$append = $append."&Version~=$Version" if $Version ne "";
$append = $append."&Datum~=$Datum" if $Datum ne "";
$append = $append."&URL~=$URL" if $URL ne "";
</perl>
<loop code=perl db=/pc_hilfe/Treiber1/Daten>
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.pc-hilfe.claranet.de/private./hand_li.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.pc-hilfe.claranet.de/private/hand_re.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

         </td>
<loop db=/pc_hilfe/Treiber1/Daten>
  <tr>
    <td><table border="0" width="100%" valign="top">
 <tr>

      </tr>
      </table>
</td>
    <td <a valign="top"><strong><font size="4"><a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/pc_hilfe/Treiber1/Daten&cmd=all&Id==$_id\">$Bereich</font></strong></a>, $Name, $Bezeichnung, <p>$Version, $Datum</td>
  </tr>
  <tr>
    <td width="100%" colspan="2"><hr noshade size="3" color="#008080">
    </td>
  </tr>
</loop>
<tr><td colspan=2 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.pc-hilfe.claranet.de/private/hand_li.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.pc-hilfe.claranet.de/private/hand_re.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>

      </td></tr>
      </table>
<center>
<perl>
out "Bei dieser Suchanfrage wurden $_amount_query Datensätze gefunden";
</perl>
</center>
</body>
</html>

     Antworten

    Beitrag von Sander (8133 Beiträge) am Montag, 25.Juni.2001, 18:31.
    Re: @Sander & Co Suchformular-Ausgabe

      Du hast ein <perl> am Anfang zu viel.
      Ich hab mal den Code optimiert.
      <html>
<head>
<title>PC - Hilfe - Treiber - Ausbabe</title>
</head>
<body>
<p align="center"><b><font color="#0000FF" size="4" face="Arial">Suchergebnisse</font></b></p>
<center>
<table border="2" width="100%" cellpadding="2" cellspacing="1">
<tr>
<td width="100%" valign="top" colspan="2" valign="middle" align="center">
<perl>
$append = "&Bereich~=$Bereich" if $Bereich ne "";
$append = $append."&Name~=$Name" if $Name ne "";
$append = $append."&Bezeichnung~=$Bezeichnung" if $Bezeichnung ne "";
$append = $append."&Version~=$Version" if $Version ne "";
$append = $append."&Datum~=$Datum" if $Datum ne "";
$append = $append."&URL~=$URL" if $URL ne "";
</perl>

      <loop code=perl db=/pc_hilfe/Treiber1/Daten>
      $ausgabe.="<tr><td><table border=0 width=100% valign=top><tr></tr></table></td><td <a valign=top><strong><font size=4><a href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/pc_hilfe/Treiber1/Daten&cmd=all&Id==$_id>$Bereich</font></strong></a>, $Name, $Bezeichnung, <p>$Version, $Datum</td></tr><tr><td width=00% colspan=2><hr noshade size=3 color=008080></td></tr>";
</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.pc-hilfe.claranet.de/private./hand_li.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.pc-hilfe.claranet.de/private/hand_re.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      out "</td></tr>$ausgabe<tr><td colspan=2 align=center>";

      out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img src=\"http://www.pc-hilfe.claranet.de/private/hand_li.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.pc-hilfe.claranet.de/private/hand_re.gif\" width=\"40\" height=\"40\" border=0 alt=\"weiter\"></a>" if $newrange<$_amount_query;

      </perl>
      </td></tr>
</table>
<center>
Bei dieser Suchanfrage wurden $_amount_query Datensätze gefunden
</center>
</body>
</html>

     Antworten


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