Hallo liebe Forummitglieder,
ich hab mich ein wenig mit der 2-spaltigen Linkliste gespielt und hab nun folgenden Fehler:
In der DB sind e Felder: Link, Titel, Beschreibung
Ausgegeben sollen der Titel und darunter die Beschreibung werden.
Bei Klick auf den Titel soll der Link im neuen Fenster geöffnet werden.
Titel und Link funktionieren!
Das Problem ist, dass ich immer die selbe Beschreibung bekommen!
Hier der Link zu DB:
http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/sonja_perenda/Quicklink_Kopie
Hier der Code:
$v=$v||0; # Startwert vorgeben, wenn $v leer ist
get "Id==* sort=Titel,Link,Beschreibung range=$v,20", "Quicklink_Kopie"; # $v ist variabel
while(get_next("Quicklink_Kopie"))
$h_links{$Kategorien}.="$Link#";
$h_titel{$Kategorien}.="$Titel#";
$h_beschreibung{$Kategorien}.="$Beschreibung#";
foreach $k(sort(keys %h_titel))
{
@a_titel=split /#/,$h_titel{$k};
@a_links=split /#/,$h_links{$k};
@a_beschreibung=split /#/,$h_Beschreibung{$k};
foreach $n (@a_titel)
{
$l=shift@a_links;
$inf=$lcnt%2;
if($inf eq 0)
{
$a_linhalt.="<tr valign=top><td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\">
<a href=http://$l target=\"_blank\">$n</a><br>
$Beschreibung<p></a></font></td></tr>";
}
$lcnt++;
$inf2=$rcnt%2;
if ($inf2 eq 1)
{
$a_rinhalt.="<tr valign=top><td><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><img src=\"http://www.rathaus-buerstadt.de/bilder/datenpunkt.gif\" width=\"12\" height=\"9\" align=\"absmiddle\">
<a href=http://$l target=\"_blank\">$l</a><br>
$Beschreibung<p></a></font></td></tr>";}
$rcnt++;
}
out "<br><table border=0 width=800><td colspan=2 align=left bgcolor=#FF9900 ><p>
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"><b>
</b></font></td></tr>";
out "<tr valign=top><td align=left><table border=0 width=300>$a_linhalt </td></table>
<td align=left><table border=0 width=300>$a_rinhalt</table></td></tr><tr><td colspan=2 align=left>
<font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\"></font></td></tr></table>";
$a_linhalt="";
$a_rinhalt="";
}
