| 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> <font face=verdana, arial size=2> <title>baseportal Datenbank</title> <body bgcolor=ffffff > </head> <br><ul> GBP-Vorstandsbereich<br> <perl>
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
do_all "db=mitglieder dataface=arial datasize=1 sort^=Name", "namerein", "pwrein";
} else
{
out "<b>Sorry, Ihre Anmeldung ist fehlgeschlagen!<br><br></b>";
$namerein="";
}
if($namerein eq "")
{
<form action="http://netzteile.netpure.de/cgi-bin/baseportal.pl?htx=/netzteile/testen/nutzer" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form> EOF
</perl> </html>
| Alle Einträge zum Thema: | Zur Liste |
<html> <head> <font face=verdana, arial size=2> <title>baseportal Datenbank</title> <body bgcolor=ffffff > </head> <br><ul> GBP-Vorstandsbereich<br> <perl>
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
do_all "db=mitglieder dataface=arial datasize=1 sort^=Name", "namerein", "pwrein";
} else
{
out "<b>Sorry, Ihre Anmeldung ist fehlgeschlagen!<br><br></b>";
$namerein="";
}
if($namerein eq "")
{
<form action="http://netzteile.netpure.de/cgi-bin/baseportal.pl?htx=/netzteile/testen/nutzer" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form> EOF
</perl> </html>
<html>
<head>
<font face=verdana, arial size=2>
<title>baseportal Datenbank</title>
<body bgcolor=ffffff >
</head>
<br><ul>
GBP-Vorstandsbereich<br>
<perl>
if($namerein ne "")
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
<!--- Hier kommt htmlcode rein -->
EOF
do_all "db=mitglieder dataface=arial datasize=1 sort^=Name", "namerein", "pwrein";
# statt db=mitglieder kommt die db rein, die die news liefert
} else
{
out "<b>Sorry, Ihre Anmeldung ist fehlgeschlagen!<br><br></b>";
$namerein="";
}
}
{
out <<EOF;
<input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form> EOF }
</html>
<html> <head> <font face=verdana, arial size=2> <title>baseportal Datenbank</title> <body bgcolor=ffffff > </head> <br><ul> GBP-Vorstandsbereich<br>
if($namerein ne "")
{
get "Name==!$namerein", "nutzer";
if($Passwort ne "" && $Passwort eq $pwrein)
{
out <<EOF;
<br>
<FONT SIZE="2"> Wir freuen uns auf Ihren Eintrag.<br>
Die bisherigen Beiträge finden Sie weiter unten.<br><br></font>
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>
<loop sort=- convert_html=Name,Text code=perl>
out '<table width=90%><tr><td><hr size=1><br><font face=verdana,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 "<br><b>$Titel</b><p>"; out "<p><ul>$Text</ul></td></tr></table>";
EOF
do_all "db=guestbook dataface=arial datasize=1", "namerein", "pwrein"; } else { out "<b>Sorry, Ihre Anmeldung ist fehlgeschlagen!<br><br></b>"; $namerein=""; }
if($namerein eq "")
{
<form action="http://netzteile.netpure.de/cgi-bin/baseportal.pl?htx=/netzteile/testen/nutzer" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <table> <tr><td>Name:</td><td><input type="text" name="namerein="></td></tr> <tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr> <tr><td></td><td><input type=submit value="Anmelden"></td></tr> </table></form> EOF
</perl>
| Liste der Einträge von 48450 bis 48600: | 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 |