baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<head> <link rel="stylesheet" href="http://www.nill-griffe.de/schriften.css"> </head> <body background="http://www.nill-griffe.de/higrus/liquid3.jpg" link="#ffcc00" vlink="#31ceff"><p><embed src="http://www.nill-griffe.de/deutsch/ueberschriften/gaestebuch.swf" width="400" height="50" quality="best" type="application/x-shockwave-flash"></p>
my $maxtext=5000; my $emsg="";
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq ""; $emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq ""; $emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext; if($emsg eq "") { put; out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>"; } else { out "<ul><font color=d80000><b>$emsg</b></font></ul>"; } }
</perl> <do action=list listtype=add language=en> <loop sort=- convert_html=Name,Text code=perl range^=0,20 language=en> my $www=$WWW; $www=~ s#^http://##; out '<table width=90%><tr><td><hr size=1><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>$Text</ul></td></tr></table>";
<perl>
my $oldrange=$_range-$_range_length; $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere Beiträge</a> ]" if $newrange<$_amount_all;
</body>
Alle Einträge zum Thema: | Zur Liste |
<head> <link rel="stylesheet" href="http://www.nill-griffe.de/schriften.css"> </head> <body background="http://www.nill-griffe.de/higrus/liquid3.jpg" link="#ffcc00" vlink="#31ceff"><p><embed src="http://www.nill-griffe.de/deutsch/ueberschriften/gaestebuch.swf" width="400" height="50" quality="best" type="application/x-shockwave-flash"></p>
my $maxtext=5000; my $emsg="";
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq ""; $emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq ""; $emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext; if($emsg eq "") { put; out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>"; } else { out "<ul><font color=d80000><b>$emsg</b></font></ul>"; } }
</perl> <do action=list listtype=add language=en> <loop sort=- convert_html=Name,Text code=perl range^=0,20 language=en> my $www=$WWW; $www=~ s#^http://##; out '<table width=90%><tr><td><hr size=1><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>$Text</ul></td></tr></table>";
<perl>
my $oldrange=$_range-$_range_length; $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere Beiträge</a> ]" if $newrange<$_amount_all;
</body>
Liste der Einträge von 42750 bis 42900: | 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 |