| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
<html><head><title>Gästebuch in katechese.ch</title> </head><body bgcolor=lightgrey> <font face="Arial">
<perl> $maxtext||=5000;
if(%_put)
{
$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>
<ul> <loop sort=- convert_html=Name,Text code=perl range^=0,5>
out "<table width=90%";
out " bgcolor=$bgcolor" if $bgcolor ne "";
out " cellpadding=$cellpadding" if $cellpadding ne "";
out " cellspacing=$cellspacing" if $cellspacing ne "";
out "><tr><td>";
if($ruler=~ /\d/) { out "<hr size=$ruler><br>"; }
elsif($ruler ne "") { out $ruler; }
out "<font size=2 face=arial>";
"<font face=$font_face".($font_size?" size=$font_size":"").">" if $font_face;
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 "";
$Text="<ul>$Text</ul>" if $indent ne "no";
out "<p>$Text</td></tr></table>";
<p> <font face="Arial" size="2"> <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;
<div align="center"> <center> <table border="0" width="100%"> <tr> <td width="100%" bgcolor="#C0C0C0"> <p align="center"><font face="Arial" size="2"><a href="http://www.katechese.ch" target="_top">home</a></font></td> </tr> </table> </center> </div>
| Alle Einträge zum Thema: | Zur Liste |
<html><head><title>Gästebuch in katechese.ch</title> </head><body bgcolor=lightgrey> <font face="Arial">
<perl> $maxtext||=5000;
if(%_put)
{
$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>
<ul> <loop sort=- convert_html=Name,Text code=perl range^=0,5>
out "<table width=90%";
out " bgcolor=$bgcolor" if $bgcolor ne "";
out " cellpadding=$cellpadding" if $cellpadding ne "";
out " cellspacing=$cellspacing" if $cellspacing ne "";
out "><tr><td>";
if($ruler=~ /\d/) { out "<hr size=$ruler><br>"; }
elsif($ruler ne "") { out $ruler; }
out "<font size=2 face=arial>";
"<font face=$font_face".($font_size?" size=$font_size":"").">" if $font_face;
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 "";
$Text="<ul>$Text</ul>" if $indent ne "no";
out "<p>$Text</td></tr></table>";
<p> <font face="Arial" size="2"> <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;
<div align="center"> <center> <table border="0" width="100%"> <tr> <td width="100%" bgcolor="#C0C0C0"> <p align="center"><font face="Arial" size="2"><a href="http://www.katechese.ch" target="_top">home</a></font></td> </tr> </table> </center> </div>
<html><head><title>Gästebuch in katechese.ch</title> </head><body bgcolor=lightgrey> <font face="Arial">
<perl> $maxtext||=5000;
if(%_put)
{
$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>
<ul> <loop sort=- convert_html=Name,Text code=perl range^=0,5>
out "<table width=90%";
out " bgcolor=$bgcolor" if $bgcolor ne "";
out " cellpadding=$cellpadding" if $cellpadding ne "";
out " cellspacing=$cellspacing" if $cellspacing ne "";
out "><tr><td>";
if($ruler=~ /\d/) { out "<hr size=$ruler><br>"; }
elsif($ruler ne "") { out $ruler; }
out "<font size=2 face=arial>";
"<font face=$font_face".($font_size?" size=$font_size":"").">" if $font_face;
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 "";
$Text="<ul>$Text</ul>" if $indent ne "no";
out "<p>$Text</td></tr></table>";
<p> <font face="Arial" size="2"> <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;
<div align="center"> <center> <table border="0" width="100%"> <tr> <td width="100%" bgcolor="#C0C0C0"> <p align="center"><font face="Arial" size="2"><a href="http://www.katechese.ch" target="_top">home</a></font></td> </tr> </table> </center> </div>
| Liste der Einträge von 42450 bis 42600: | 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 |