| 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 |
<perl>
my $emsg="";
if(%_put)
{
$emsg.="Please insert your message! " if $_put{Text} eq "";
$emsg.="Your text is too long! Please insert max $maxtext letters." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
put undef,"guestbook_en";
out "thank you for your message";
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
}
</perl>
| Alle Einträge zum Thema: | Zur Liste |
<do action=input> rausschmeissen
if (%_put)
{
put undef,"dbname"; #dbname mit datenbankname ersetzen
out "Hier deinen Text rein";
}
</perl>
<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.="Please insert your name! " if $_put{Name} eq "";
$emsg.="Please insert your message! " if $_put{Text} eq "";
$emsg.="Your text is too long! Please insert max $maxtext letters." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
put;
out "<ul><b>Thank you for your message.</b></ul>";
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
}
</perl>
if (%_put)
{
put undef,"guestbook_en"; #dbname mit datenbankname ersetzen
out "thank you for your message";
}
</perl>
out <<EOF;
<form action="baseportal.pl?htx=/usw usw
<form action="baseportal.pl?htx=/nill-griffe.de/guestbook/guestbook_en&db=guestbook_en&cmd=add" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="/nill-griffe.de/guestbook/guestbook_en"> <input type=hidden name="db=" value="guestbook_en"> <input type=hidden name="cmd=" value="add">
<td align=right><font size=2 face=arial,helvetica>Name:</td> <td><font size=2 face=arial,helvetica><input type="text" name="Name:=" size=50 value=""></td> </tr> <tr> <td align=right><font size=2 face=arial,helvetica>Email:</td> <td><font size=2 face=arial,helvetica><input type="text" name="Email:=" size=30 value=""> </td> </tr> <tr> <td align=right><font size=2 face=arial,helvetica>WWW:</td> <td><font size=2 face=arial,helvetica><input type="text" name="WWW:=" size=50 value=""> </td> </tr> <tr> <td align=right><font size=2 face=arial,helvetica>Text:</td> <td><font size=2 face=arial,helvetica><textarea name="Text:=" cols=50 rows=6 wrap=virtual></textarea></td></tr><tr><td></td><td nowrap><input type=submit value="submit"> <input type=reset value="reset"> </td></tr></form></
<perl>
my $emsg="";
if(%_put)
{
$emsg.="Please insert your message! " if $_put{Text} eq "";
$emsg.="Your text is too long! Please insert max $maxtext letters." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
put undef,"guestbook_en";
out "thank you for your message";
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
}
</perl>
| Liste der Einträge von 43651 bis 43801: | 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 |