| 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 |
|
| Alle Einträge zum Thema: | Zur Liste |
if ($mail eq "") { Fehlermeldung }
<p align="left">Geschlecht:<select name="Er:=" size=1> <option>Sie</select>
<input type="radio" name="Brille:=" value="ja" checked> ja <input type="radio" name="Brille:=" value="nein"> nein
<p align="left">EMail:<input type="text" name="EMail:=" size=40 value="">
if ($Brille && $EMail ne "")
{
put ...
} else
{
Fehlermeldung...
}
if (!$_put{Email} =~ /.+\@..+\...+/)
{
out "Fehler";
}
<HTML> <head> <title>Flieger</title> </head> <form action="baseportal.pl?htx=/../..&cmd=add" method="post" enctype="multipart/form-data">
<input type=hidden name="cmd=" value="add">
<option><option>Sie<option>Er</select>
<input type="radio" name="Brille:=" value="ja" checked> ja <input type="radio" name="Brille:=" value="nein"> nein;
<p align="left">EMail:<input type="text" name="EMail:=" size=40 value="">
<input type=reset value="Zurücksetzen"></font> </HTML>
<perl>
if (%_put)
{
if (!$_put{Email} =~ /.+\@..+\...+/)
{
out "Emailadresse ist unvollständig oder entspricht nicht der Norm<br><a href=..>zurück</a>";
$error=1;
}
if ($_put{Brille}=="nein")
{
out "Fehlertext";
$error=1;
$cmd="";
undef %_put;
}
if ($error)
{
out "<br><a href=..>zurück</a>";
$cmd="";
undef %_put;
}
}
</perl>
if ($_put{Brille} eq "nein")
<html> <head></head> <body> <p><do action=input db=.......></p> <p>Vielen Dank für Ihren Eintrag</p> <body> </html>
<head>
</head>
<body><font face="Verdana" size=2 color=blue>
<perl>
if (%_put)
{
if ($_put{EMail} eq "")
{
out "Emailadresse ist unvollständig oder entspricht nicht der Norm, gehen Sie bitte über Ihren Browser zur letzten Seite zurück und tragen die fehlenden Daten nach";
$error=1;
}
if ($_put{Brille} eq "nein")
{
out "Sie müssen die Frage schon mit ja beantworten, gehen Sie bitte über Ihren Browser zur letzten Seite zurück und ändern Sie die Einstellung";
$error=1;
$cmd="";
undef %_put;
}
if ($error)
{
out "";
$cmd="";
undef %_put;
}
}
</perl>
<p><do action=input db=.......></p>
<p>Vielen Dank für Ihren Eintrag</p>></font>
<body>
</html>
<head>
</head>
<body><font face="Verdana" size=2 color=blue>
<perl>
if (%_put)
{
unless ($_put{EMail} =~ /.+@..+\...+/)
{
out "Emailadresse ist unvollständig oder entspricht nicht der Norm, gehen Sie bitte über Ihren Browser zur letzten Seite zurück und tragen die fehlenden Daten nach";
$error=1;
}
if ($_put{Brille} eq "nein")
{
out "Sie müssen die Frage schon mit ja beantworten, gehen Sie bitte über Ihren Browser zur letzten Seite zurück und ändern Sie die Einstellung";
$error=1;
}
if ($error)
{
out "";
$cmd="";
}else
{
out "<p>Vielen Dank für Ihren Eintrag</p>";
}
}
</perl>
<do action=input db=.......>
</body>
</html>
<head>
</head>
<body><font face="Verdana" size=2 color=blue>
<perl>
if (%_put)
{
unless ($_put{EMail} =~ /.+@..+\...+/)
{
out "Emailadresse ist unvollständig oder entspricht nicht der Norm, gehen Sie bitte über Ihren Browser zur letzten Seite zurück und tragen die fehlenden Daten nach";
$error=1;
}
if ($_put{Telefon} eq "")
{
out "Sie müssen eine Telefonnummer eingeben, gehen Sie bitte über Ihren Browser zur letzten Seite zurück und ändern Sie die Einstellung";
$error=1;
}
if ($_put{Brille} eq "nein")
{
out "Sie müssen die Frage schon mit ja beantworten, gehen Sie bitte über Ihren Browser zur letzten Seite zurück und ändern Sie die Einstellung";
$error=1;
}
if ($error)
{
out "";
$cmd="";
}else
{
out "<p>Vielen Dank für Ihren Eintrag</p>";
}
}
</perl>
<do action=input db=.......>
</body>
</html>
| Liste der Einträge von 50851 bis 51001: | 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 |