<html>
<head>
<include src=/Brand/BMC/myHeader>
<include src=/Brand/doTextVar>
</head>
<perl>
out "<body";
if ($Position==5 or $Position==80 or $SW_MemberIdOK==1){ ##Bei Mehrsprachigkeit oder Members Area - Navigationsleiste automatisch aufbauen
out " onLoad=\"MM_goToURL('parent.frmNavi','$myBaseportal/cgi-bin/baseportal.pl?htx=/Brand/BMC/Navigation&selLang=$selLang&Berechtigung=";
my $myRechte=$Berechtigung ne ""?"$Berechtigung":"50";
out "$myRechte');return document.MM_returnValue\"";
}
out " onMouseOut=\"window.defaultStatus='$myDescription'\">
<table border=0 cellspacing=2 cellpadding=2 align=center height=\"98%\">
<tr align=center valign=middle>
<td>";
out "<h2>" if ($Position==80 or $SW_MemberIdOK==1); ##Members Area
$myPin=($Position==5 or $Position==80 or $SW_MemberIdOK==1)?"PinMembr":"Pin";
out "<a href=\"#\" onMouseOver=\"MM_displayStatusMsg('$hlpClickHere2Enter')\;return document.MM_returnValue\" onClick=\"MM_goToURL('parent.frames.frmNavi','$myBaseportal/cgi-bin/baseportal.pl?htx=/Brand/BMC/Navigation&Berechtigung=60&selLang=$selLang','parent.frames.frmTop','http://www.$domain/frmTop/sponsor.html')\;return document.MM_returnValue\">" if ($Position eq "" or $SW_MemberIdOK<1); ##Startseite von BMC
out "<img style=\"filter:Alpha(opacity=100, finishopacity=0, style=2)\" src=\"http://www.$domain/images/$myPin.png\" name=\"Logo\" alt=\"$hlpClickHere2Enter - $myDescription\" border=0 width=280 height=280>";
out "<br>$txtMemberOK" if ($Position==80 or $SW_MemberIdOK==1); ##Members Area
if ($Position eq "" or $SW_MemberIdOK<1){ ##Startseite von BMC
out "</a>";
$myDB="/Brand/BMC/BMC";
$SW_MemberIdOK=0;
if($chkNummer ne "" and $chkGDT ne ""){
$Parameter="Mitgliedsnr==$chkNummer";
##out "<p align=left>So sieht die Abfrage aus: $Parameter bei DB $myDB";
get "$Parameter", "$myDB", "SecurityCheck";
$myGebDat=datum($Geburtstag, "Tag0");
$myGebDat.=datum($Geburtstag, "Monat0");
$myGebDat.=datum($Geburtsjahr, "Jahr");
##out "<p align=left>Das habe ich gefunden: Mitgliednummer: $Mitgliedsnr";
##out " - Geburtsdatum=$myGebDat" if ($Mitgliedsnr ne "");
##out "<br>\$SW_MemberIdOK vorher: $SW_MemberIdOK";
if ($chkGDT==$myGebDat){
##out "<p align=left>Gebdatvergleich ist aufgegangen: $chkGDT==$myGebDat<br>inaktiv=$inaktiv<br>RIP=$RIP";
$SW_MemberIdOK=($inaktiv==1 or $RIP==1)?"0":"1";
}
##out "<p align=left>\$SW_MemberIdOK nachher: $SW_MemberIdOK";
$SW_MemberIdOK=1 if ($chkNummer eq "Gast" and $chkGDT eq "Test"); ##Spezialerlaubnis für Test
##out "<p align=left>\$SW_MemberIdOK nochmals nachher: $SW_MemberIdOK (nach Spezialabfrage)";
$Berechtigung=50 if ($SW_MemberIdOK==1 and $Berechtigung>50);
$Position=80 if ($SW_MemberIdOK==1 and $Position eq ""); ##simuliere die ehemalige Menüposition 80 - Members Area
$myPath4url="$myBaseportal/cgi-bin/baseportal.pl?htx=$htx&SW_MemberIdOK=$SW_MemberIdOK&Berechtigung=$Berechtigung&Position=$Position";
##out "<p align=left>Mein Pfad: $myPath4url";
if ($SW_MemberIdOK==0){
out "<table width=\"98%\" cellspacing=0 cellpadding=0 align=center>
<tr valign=top align=center>
<td><table align=center>
<tr align=center valign=middle>
<td><img src=\"http://www.$domain/images/CautionSmall.gif\" name=\"Achtung\" alt=\"$hlpNoRight\" border=0></td>
<td><table border=5 cellspacing=2 cellpadding=2 align=center bgcolor=$txtlowcolor bordercolorlight=$txtlowcolor bordercolordark=$bordercolor bordercolor=$bordercolorL>
<tr align=center valign=middle>
<td nowrap><h4 align=center><font color=\"$importantcolor\">$txtLoginFailed!</font><br>$txtNoMember</td>
</tr>
</table>
</td>
<td><img src=\"http://www.$domain/images/CautionSmall.gif\" name=\"Achtung\" alt=\"$hlpNoRight\" border=0></td>
</tr>
</table>
</td>
</tr>
</table>";
$chkNummer=$chkGDT="";
}
}
&form_out() if ($SW_MemberIdOK==0);
}
out "</td></tr></table>";
##
##BEGINN Formular-Ausgabe
sub form_out{
##Formular erzeugen, zuerst Tabelle mit Rand, darin Tabelle mit 2 Spalten ohne Rand
out "<table cellspacing=1 cellpadding=2 border=1 align=center bordercolor=\"$membrcolor\"><tr><td>
<form name=\"security\" action=\"$myPath4url\" method=\"post\" enctype=\"multipart/form-data\">
<input type=hidden name=\"htx=\" value=\"$htx\">
<table cellspacing=4 cellpadding=4 border=0>
<tr><td colspan=3><p align=center><b>$txtMemberLogin</b></td></tr>
<tr><td><p align=left>$txtMembershipNr:</td><td><input type=\"text\" name=\"chkNummer=\" title=\"$hlpMemberNr\" value=\"$chkNummer\" size=10 maxlength=9></td><td> \;</td></tr>
<tr><td><p align=left>$txtPwd:</td><td><input type=\"password\" name=\"chkGDT=\" title=\"$hlpGebDat\" size=10 maxlength=8></td><td align=center valign=middle><p> \;<input type=submit title=\"$hlpLogin\" value=\"$lblRegistrieren\"></td></tr>
</form></table>
</td></tr></table>";
}
##ENDE Formular
</perl>
</body>
</html>
