<include src=/otkom/psvbs/oben>

<perl>
if($namerein ne "")
{
get "Name==!$namerein","ueldb";
  if($Passwort ne "" && $Passwort eq $pwrein)
  {
out <<EOF;
<center><span class="hvier">Termine für Übungsleiter</span>
EOF
do_all "db=termin Verband==Verein or Verband==Uebungsleiter or Verband==Ferien tdparam=align=left databack=- datasize=2 text=ffffff headback=- border=0 spacing=1 padding=2 gridcolor=- dataface=arial,helvetica sort=Termin and Termin\>=jetzt selectbrowse=no range^=0,20 pagebrowse=no buttonbrowse=top listtype=list input=link", "namerein", "pwrein";
out <<EOF;
<hr color="#000080" width="630">
</center>

EOF
get "Sparte==Uebungsleiter tdparam=align=left text=ffffff databack=- datasize=2 headback=- border=0 spacing=1 padding=2 gridcolor=- dataface=arial,helvetica sort^=-Datum range^=0,20 selectbrowse=no pagebrowse=no buttonbrowse=no listtype=list listfields=Datum,Titel,Autor input=link","news";
while (get_next"news")
{
out <<EOF;
<p>
<span class="text">$Datum</span><br>
<span class="textfett">$Titel</span><br>
<span class="text">$Untertitel</span><br>
<ul><span class="text">$Text</span></ul>
<span class="text">von $Autor</span>
<hr>
</p>
EOF
}
out <<EOF;
<hr color="#000080" width="630">

<p>
<table>
<tr><td>Vorname</td><td>Name</td><td>Tel</td><td>Fax</td><td>e-mail</td><td>News</td><td>ML</td></tr>
EOF
get "tdparam=align=left text=ffffff databack=- datasize=2 headback=- border=0 spacing=1 padding=2 gridcolor=- dataface=arial,helvetica sort^=Name range^=0,20 selectbrowse=no pagebrowse=no buttonbrowse=no listtype=list listfields=Vorname,Name,Tel,Fax,email,News,ML input=link","uel";
while (get_next"uel")
{
out <<EOF;
<tr><td>$Vorname</td><td>$Name</td><td>$Tel</td><td>$Fax</td><td>$email</td><td>$News</td><td>$ML</td></tr>
EOF
}
out <<EOF;
</table>
<hr>
</p>

<hr color="#000080" width="630">
</center>
EOF
  } else
  {
    out "<b>Anmeldung fehlgeschlagen!</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
}
</perl>

<include src=/otkom/psvbs/unten>