baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl> if ($ga eq "1") # wenn Gesamtansicht gewählt wurde { get "Id==$dsn", "w_news"; $a_meldung = "<div align=right>${ \datum($eig_datum, 'Tag.Monat.Jahr')}</div>$Meldung<br> <div align=right>Zurück zur <a href=$_link>Übersicht</a> </div><br>"; }elsif ($ga eq "") # sonst Übersicht anzeigen { get "Id=* sort=-", "w_news"; while (get_next(w_news)) { # Ausgabelänge begrenzen für Feld Meldung # $laenge=80; $Ende = substr($Meldung, $laenge); $Stop = index($Ende,"\ "); #Leerzeichen suchen (Wortende) $Ende = substr($Ende, 0, $Stop); $Anfang = substr($Meldung, 0, $laenge); $a_meldung.= "<div align=right>${ \datum($eig_datum, 'Tag.Monat.Jahr')}</div>$Anfang$Ende....<div align=left> <a href=$_link&dsn=$_id&ga=1>Gesamte Meldung</a> </div><br>"; } } out<<EOF; <html> <head> <title>Newsanzeige</title> </head> <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000"> <center> <table width=500> <tr><td align=left> $a_meldung </td></tr> </body> </html> EOF </perl>
Alle Einträge zum Thema: | Zur Liste |
<perl> if ($ga eq "1") # wenn Gesamtansicht gewählt wurde { get "Id==$dsn", "w_news"; $a_meldung = "<div align=right>${ \datum($eig_datum, 'Tag.Monat.Jahr')}</div>$Meldung<br> <div align=right>Zurück zur <a href=$_link>Übersicht</a> </div><br>"; }elsif ($ga eq "") # sonst Übersicht anzeigen { get "Id=* sort=-", "w_news"; while (get_next(w_news)) { # Ausgabelänge begrenzen für Feld Meldung # $laenge=80; $Ende = substr($Meldung, $laenge); $Stop = index($Ende,"\ "); #Leerzeichen suchen (Wortende) $Ende = substr($Ende, 0, $Stop); $Anfang = substr($Meldung, 0, $laenge); $a_meldung.= "<div align=right>${ \datum($eig_datum, 'Tag.Monat.Jahr')}</div>$Anfang$Ende....<div align=left> <a href=$_link&dsn=$_id&ga=1>Gesamte Meldung</a> </div><br>"; } } out<<EOF; <html> <head> <title>Newsanzeige</title> </head> <body text="#000000" bgcolor="#FFFFFF" link="#FF0000" alink="#FF0000" vlink="#FF0000"> <center> <table width=500> <tr><td align=left> $a_meldung </td></tr> </body> </html> EOF </perl>
Liste der Einträge von 44100 bis 44250: | 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 |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |