#!/usr/bin/perl
#Module
use DBI;
use File::Copy;
#use Image::Size;
use GD;
use CGI::Carp qw(fatalsToBrowser);

use CGI qw(:standard);
use CGI::Cookie;

##### Zugang zur Datenbank #######
require "include/login.inc.pl";



# Set Variables


$HOMEURL ="http://www.flashModels.de";

$HOMEURL = "http://85.214.65.218/1flashmodels-de";
$HOMEURL = "http://www.flashmodels.de";
$REAL ="/home/strato/http/premium/rid/77/47/59867747/htdocs/server/1flashmodels-de";

$cgiurl = "$HOMEURL/casting/cgi-bin/login.pl";
$REQTEXT = "include/login_text.inc.pl";
#$cgiurl = "login.pl";

$SHOWPERSON = "$HOMEURL/casting/cgi-bin/castingedit.pl";
#$SHOWPERSON2 = "http://www.flashmodels.de/casting/cgi-bin/castingedit.pl";
$SHOWPERSON2 = "castingedit.pl";
$emailcgiurl = "$HOMEURL/cgi-bin/1miss/tool-log/newsletteradmin.pl";
$emailcgiurl = "$HOMEURL/login/cgi-bin/tool-log/newsletteradmin.pl";

$BNurl = "$HOMEURL/casting/cgi-bin/log/passwort.pl";

$mastersession = "dhez222djdujMnX666awrhhi";
$MASTERPW2 = "xyx";

$ANZEIGEN = "$HOMEURL/casting/cgi-bin/karteianzeigen.pl";

$saveurl = "$REAL/casting/kartei/temp-foto";
$saveurleinfug = "$REAL/casting/kartei/foto";
#$DATENFILE = "/home/strato/www/pa/www.pars2000.de/htdocs/1miss/casting/kartei/daten/daten.txt";

$LOGKARTEI = "$REAL/casting/kartei/log/logkartei.html";
$LOGFALSE = "$REAL/casting/kartei/log/logfalse.html";
$LOGOK = "/$REAL/casting/kartei/log/logok.html";

$LOGFILE = "$REAL/casting/kartei/daten/log.txt";
$LOGFILEFALSE = "$REAL/casting/kartei/daten/logfalse.txt";

#$TEXTFILEX = "/home/strato/www/pa/www.pars2000.de/htdocs/1miss/casting/kartei/daten";

$MITGLIEDER = "$HOMEURL/casting/cgi-bin/castingedit.pl";

$PICMAIL = "<img src=\"http://www.flashModels.de/casting/grafik/mail.gif\" border=\"0\" alt=\"eMail ausschalten\">";
$PICMAILNO = "<img src=\"http://www.flashModels.de/casting/grafik/mail-no.gif\" border=\"0\" alt=\"eMail einschalten\">";

$PICSHOWDATAGIF = "<img src=\"http://www.flashModels.de/casting/grafik/flag-showdata.gif\" border=\"0\" alt=\"Daten ausschalten, damit der Kunde keine Kontaktdaten sieht\">";
$PICSHOWDATAGIFON = "<img src=\"http://www.flashModels.de/casting/grafik/flag-showdata.gif\" border=\"0\" alt=\"Kunde sieht alle Kontaktdaten, - eine Änderung ist in diesem Modus nicht möglich\">";
$PICSHOWDATANOGIF = "<img src=\"http://www.flashModels.de/casting/grafik/flag-showdata-no.gif\" border=\"0\" alt=\"Daten einschalten, damit der Kunde die Kontaktdaten sieht\">";

$PICSHOWDATAGIFON2 = "<img src=\"http://www.flashModels.de/casting/grafik/flag-showdata2.gif\" border=\"0\" alt=\"Kontaktdaten sind nicht sichtbar\">";
$PICSHOWDATAGIF2 = "<img src=\"http://www.flashModels.de/casting/grafik/flag-showdata2-no.gif\" border=\"0\" alt=\"Kontaktdaten sind sichtbar\">";

$PICFLAG2 = "<img src=\"http://www.flashModels.de/casting/grafik/flag2.gif\" border=\"0\" alt=\"Signal ausschalten\">";
$PICFLAG2NO = "<img src=\"http://www.flashModels.de/casting/grafik/flag2-no.gif\" border=\"0\" alt=\"Signal einschalten\">";

$PICFLAG3 = "<img src=\"http://www.flashModels.de/casting/grafik/flag3.gif\" border=\"0\" alt=\"Markierung einschalten\">";
$PICFLAG3NO = "<img src=\"http://www.flashModels.de/casting/grafik/flag3-no.gif\" border=\"0\" alt=\"Markierung ausschalten\">";

$PICFLAG6 = "<img src=\"http://www.flashModels.de/casting/grafik/flag6.gif\" border=\"0\" alt=\"Markierung ausschalten\">";
$PICFLAG6NO = "<img src=\"http://www.flashModels.de/casting/grafik/flag6-no.gif\" border=\"0\" alt=\"Markierung einschalten\">";

$PICgrunaus = "<img src=\"http://www.flashModels.de/casting/grafik/grun-aus.gif\" border=\"0\" alt=\"grüne Markierung einschalten\">";
$PICgrunblink = "<img src=\"http://www.flashModels.de/casting/grafik/grun-blink.gif\" border=\"0\" alt=\"grüne Markierung ausschalten\">";

$PICgelbaus = "<img src=\"http://www.flashModels.de/casting/grafik/gelb-aus.gif\" border=\"0\" alt=\"gelbe Markierung einschalten\">";
$PICgelbblink = "<img src=\"http://www.flashModels.de/casting/grafik/gelb-blink.gif\" border=\"0\" alt=\"gelbe Markierung ausschalten\">";

$PICrotaus = "<img src=\"http://www.flashModels.de/casting/grafik/rot-aus.gif\" border=\"0\" alt=\"rote Markierung einschalten\">";
$PICrotblink = "<img src=\"http://www.flashModels.de/casting/grafik/rot-blink.gif\" border=\"0\" alt=\"rote Markierung ausschalten\">";


$PERSONENSUCHE = "<IMG alt=\"\" src=\"http://www.flashModels.de/tv/personensuche.gif\" width=\"100\" border=\"0\" height=\"50\">";
$SCHONPROD = "<IMG alt=\"\" src=\"http://www.flashModels.de/tv/schonpord.gif\" width=\"100\" border=\"0\">";

$INFOBLOCK = "<img src=\"http://www.flashModels.de/casting/grafik/infoblock.gif\" border=\"0\" alt=\"Information vorhanden\">";
$INFOBLOCKOFF = "<img src=\"http://www.flashModels.de/casting/grafik/infoblock-off.gif\" border=\"0\" alt=\"keine Information vorhanden\">";

$INFOANSCHRIFT = "<img src=\"http://www.flashModels.de/casting/grafik/infoanschrift.gif\" border=\"0\" alt=\"Kontakt Information vorhanden\">";
$INFOANSCHRIFTOFF = "<img src=\"http://www.flashModels.de/casting/grafik/infoanschrift-off.gif\" border=\"0\" alt=\"keine Kontakt Information vorhanden\">";

$picurl = "$HOMEURL/casting/kartei/temp-foto";
$fotourl = "$HOMEURL/casting/kartei/foto";
$phpfotourl = "$HOMEURL/casting/castingfoto.php";

$pfeilurl ="$HOMEURL/ger/graf/pfeill.gif";

$cgiurlTERMINE = "$HOMEURL/cgi-bin/terangshow.pl";
$DELETEURL ="$HOMEURL/casting/cgi-bin/castingdelete.pl";

$date_command = "/bin/date";

$TABELLEHG = "http://www.flashModels.de/casting/grafik/castingtext-hintergrund.jpg";
$styles = "http://www.flashModels.de/casting/styles/castingkartei.css";

$TITEL = "Castingkartei - Loginbereich von flashModels.de";
$COPYRIGHT = "Copyright: HOTPIXEL / Patrik Perteck";

# Set Your Options:

$mail = 0;              # 1 = Yes; 0 = No
$uselog = 0;            # 1 = Yes; 0 = No
$linkmail = 1;          # 1 = Yes; 0 = No
$separator = 1;         # 1 = <hr>; 0 = <p>
$redirection = 0;       # 1 = Yes; 0 = No
$entry_order = 1;       # 1 = Newest entries added first;
                        # 0 = Newest Entries added last.
$remote_mail = 1;       # 1 = Yes; 0 = No
$allow_html = 0;        # 1 = Yes; 0 = No
$line_breaks = 1;	# 1 = Yes; 0 = No

$IP = $ENV{'REMOTE_ADDR'};


#zähler für Bildwechsel
$zmax = '4';
$zmin = '0';


# Tabelle

$br ='250';
$br1 ='255';
$sbr1 ='5';
$brunten ='650';

######## Fotogrösse (Breite) in der Karteivorschau
$BREITEKLEIN = 100;


$sbr ='5';
$sbr2 ='120';
$mbr ='9%';
# Farben
$hell ='ffffc8';
$hg ='#ffb900';
$dunkel ='000000';
$grau = '#808080';
$orange ='#ff8000';
$dunkelgrau ='585858';
$mailgelb ='ffd133';

$FARBELINKS ='3C71A6';

# If you answered 1 to $mail or $remote_mail you will need to fill out 
# these variables below:
#$mailprog = '/usr/lib/sendmail';
$mailprog = '/usr/sbin/sendmail';

$recipient = 'casting@flashModels.de';
$MAILNAME = 'flashModels';
$subject ='Bewerbung bei flashModels';



# Done
##############################################################################

# Get the Date for Entry
$date = `$date_command +"%d.%m.%Y %T "`; chop($date);
$datum = `$date_command +" %d.%m.%Y "`; chop($date);

$monatnow = `$date_command +"%m"`; chop($date);
$monatnow = substr ($monatnow ,0,2);			

$jahrnow = `$date_command +"%Y"`; chop($date);
$jahrnow = substr ($jahrnow ,0,4);			

$shortdate = `$date_command +"%D %T %Z"`; chop($shortdate);
$YEARNOW =`$date_command +"%Y"`; chop($date);

$nurdatum = `$date_command +"%d.%m.%y"`; chop($date);	
	$laenge= length ($nurdatum); # \n wird am Ende entfernt!
	$nurdatum = substr ($nurdatum ,0,$laenge-1);			

$nurzeit = `$date_command +"%T"`; chop($date);	
	$laenge= length ($nurzeit); # \n wird am Ende entfernt!
	$nurzeit = substr ($nurzeit ,0,$laenge-1);			

############ Texte #######################################################
$TEXTHAUPTSEITE = "<font face=verdana,helvetica,arial size=1 color=ffffff>Copyright © 2001-$YEARNOW HOTPIXEL/P.Perteck<br>\n
Alle Rechte vorbehalten. 
Mit der Benutzung dieser Website erkennen Sie die <a href=\"http://www.flashModels.de/agb\" target=\"_blank\"><font color=ffffff>flashModels-AGB</font></a> an.<br>
 Der Betreiber von flashModels übernimmt keine Haftung für den Inhalt verlinkter externer Internetseiten. <br>
 Die Verwendung der Texte und Bilder - auch auszugsweise- ohne Genehmigung ist strafbar.<br>
 <a href=\"http://www.flashmodels.de/ger/kontakt/kontakt.htm\" target=\"_blank\"><font color=ffffff>Kontakt/Impressum</font></a>";

 
 
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs) {
   ($name, $value) = split(/=/, $pair);

   # Un-Webify plus signs and %-encoding
   $value =~ tr/+/ /;
   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
   $value =~ s/<!--(.|\n)*-->//g;

   if ($allow_html != 1) {
      $value =~ s/<([^>]|\n)*>//g;
   }

   
	# Eleminieren bzw. ersezten von Sonderzeichen, damit es keine Schwierigkeiten mit z.B. MySql gibt.
   $value =~ s/(['"`´^])/\`/g; # Werden die Sonderzeichen eingegeben, so wird immer ` gesetzt
   $value =~ s/([#])/\*/g; # Werden die Sonderzeichen # eingegeben, so wird immer * gesetzt   
   
   $FORM{$name} = $value;
}


#### Einlesen der Variablen durch ? ######
	$query_string =$ENV{'QUERY_STRING'};
#    ($field_name, $DATEN) = split (/=/, $query_string);

	
@key_value_pairs = split (/&/, $query_string);
$i=0;
foreach $key_value (@key_value_pairs)
	{
	$i=$i+1;
	($key, $value) = split (/=/, $key_value);
	$value =~ tr/+/ /;
	$value =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg;
	if (defined($FORM_DATA{$key}))	
		{
		$FORM_DATA{$key} =join ("\0", $FORM_DATA{$key}, $value);
		$DATEN[$i]=$value;
		}
		else
		{
		$FORM_DATA{$key} = $value;
		$DATEN[$i]=$value;
		}
	}	
	
	
	$ID = $DATEN[1];
	$GESCHLECHT = $DATEN[2];
	$LAND = $DATEN[3];
	$ORDNER = $DATEN[4];
	$FILE = $DATEN[5];
	$LG = $DATEN[6];	

	$THID = $DATEN[2]; # Für direkte Anzeige der Bewerber
	if ($FORM{'SHOWBEWERBER'})
		{
		$THID = $FORM{'SHOWBEWERBER'};
		}
	
if ( ($DATEN[3] eq "en") or ($DATEN[3] eq "br") )
	{
	$LG = $DATEN[3];
	}
	
	
	
if ($FORM{'LG'})
	{
	$LG = $FORM{'LG'};
	}
	
#   print "Content-type: text/html\n\n";
#   print "id: $ID, geschl.: $GESCHLECHT, land: $LAND, ordner: $ORDNER, file: $FILE<br>";

##### Texte einlesen #######
require "$REQTEXT";


# Print the Blank Response Subroutines
if ( ($DATEN[1]) and ($DATEN[2] eq "add") )
	{
	&add;
	}


if ( ($DATEN[1]) and ($DATEN[2] eq "infotext") )
	{
	&infotext;
	}

if ($DATEN[1] eq "aktual")
	{
	$FORM{'main0'} = "ok";	
	$FORM{'PASSWORT'} = $DATEN[5];
	$FORM{'CODE'} = $DATEN[4];
	$FORM{'BENUTZERNAME'} = $DATEN[3];
	$FORM{'willkommen'} = 1;
	$FORM{'SHOWBEWERBER'} = $DATEN[2];
	$FORM{'ANZMOD'} = 35;
	}

if ($DATEN[1] eq "hauptmenu")
	{
#	$FORM{'main0'} = "ok";	
	$FORM{'main1'} = "ok";		
	$FORM{'PASSWORT'} = $DATEN[5];
	$FORM{'CODE'} = $DATEN[4];
	$FORM{'BENUTZERNAME'} = $DATEN[3];
	$FORM{'willkommen'} = 1;
#	$FORM{'SHOWBEWERBER'} = $DATEN[2];
	$FORM{'ANZMOD'} = 35;
	}

	
	
if ( ($DATEN[1] eq 'mailflag') or ($DATEN[1] eq 'flag2') or ($DATEN[1] eq 'flag3') or ($DATEN[1] eq 'flag4') or ($DATEN[1] eq 'flag5') or ($DATEN[1] eq 'flag6')  or ($DATEN[1] eq 'showpersondata') )
	{
	&SETFLAG;
	}

&passwort unless ($FORM{'PASSWORT'} and $FORM{'BENUTZERNAME'});
&willkommen unless $FORM{'willkommen'};
&main0 unless $FORM{'main0'};
&main1 unless $FORM{'main1'};



#&main2 unless $FORM{'main2'};
#&main2a unless $FORM{'main2a'};
#&main3 unless $FORM{'main3'};

		


	
	
	




#########
# Options


#######################
# Subroutines






sub passwort {

	
   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>";
   print "<link href=\"$styles\" rel=\"stylesheet\" type=\"text/css\">";
   print "</head>\n";
   print "<body bgcolor=$hg>\n";
    
   
   
    print "<form method=\"POST\" action=\"$cgiurl\">\n";   


	print "<div align=\"center\">";
	print "<table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"Black\" style=\"border-collapse: collapse\">\n";
	print "	<tr>\n";
	print "	<td>\n";


    print "<table background=\"$TABELLEHG\" width=530 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td class=\"textfeld\">\n";

	print "$TEXT100";
	
    print "<table bgcolor=$dunkel width=450 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr>";
	print "<td width=\"160\" align=\"right\"  bgcolor=\"Gray\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";									
	print "<b>$TEXT101</b><br>";
	print "</td>";
	print "<td bgcolor=\"gray\">";
    print "<input type=\"text\" name=\"BENUTZERNAME\" size=\"30\" maxlength=\"40\" value=\"$FORM{'BENUTZERNAME'}\">";
	print "";
	print "</td>";
	print "</tr>";

    print "<tr>";
	print "<td align=\"right\"  bgcolor=\"Gray\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";									
	print "<b>$TEXT102</b>";
	print "</td>";
	print "<td bgcolor=\"gray\">";
	print "<input type=\"password\" name=\"PASSWORT\" size=\"30\">";
	print "";
	print "</td>";
	print "</tr>";

	print "</table>\n\n";

	if ($DATEN[1] eq 'bew')
		{
		print "<input type=\"hidden\" name=\"SHOWBEWERBER\" value=\"$DATEN[2]\">\n\n";
		}
	
    print "<table width=520 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td class=\"textfeld\">\n";
	print "<br><center><input type=submit value=&nbsp;&nbsp;&nbsp;login&nbsp;...&nbsp;&nbsp;&nbsp;></center><br><br>\n";	
	
	print "$TEXT105";
	
	if ($DATEN[1] eq 'bew')
		{	
		print "$CHOOSELGBEW";
		}
		else
		{
		print "$CHOOSELG";
		}

	print "</td></tr>";
	print "</table>";
	  
	  
	  
	print "</td></tr></table>";	  



	print "</td>\n";
	print "</tr>\n";
	print "</table>\n";

#-------------------------------------   

$FORM{'passwort'} ='ok'; #hilfsvariable gesetzt!
	print "<input type=hidden name=\"passwort\"";
    print "value=\"$FORM{'passwort'}\">\n";	
#-------------------------------------   

	print "<input type=hidden name=\"LG\" value=\"$LG\">\n";	

   print "</form>";
   

   print "$TEXTHAUPTSEITE</center><br><br><br><br><br>\n";

   print "\n</body></html>\n";

   exit;
}



sub willkommen {


   &PWCHECK;

	
		
		
		
		
######### Ende LogDatei ##########################################################		
$SETCOOKIE = 1;		
$COOKNAME ="DBKND";
$COOKINHALT = "$CODE"; 
$cookieML   = new CGI::Cookie(-name => $COOKNAME, -value => $COOKINHALT, -expires => '+6y');


if ($SETCOOKIE eq 1)
	{
	print header(-COOKIE => [$cookieML]);
#	print ". -$DBCODE-";
	}
	else
	{
    print "Content-type: text/html\n\n";
	}

########### Einlesen der Cookies #############################
my $FOUNDcookname = $COOKNAME;
my $FOUNDCOOKIE = cookie(-name => $FOUNDcookname) || $cookie;
##############################################################

if ($FOUNDCOOKIE eq $COOKINHALT)
	{
	$COOKIEGESETZT = 1;
	}

#print "-$FOUNDCOOKIE-$COOKIEGESETZT-";
	
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>";
   &JAVASCRIPT2;
   print "</head>\n";
   print "<body bgcolor=\"$hg\" text=\"ffff00\" link=\"ffff00\" vlink=\"ffff00\" alink=\"ffff00\" leftmargin=\"0\" topmargin=\"0\">\n";
    
#print "$MODUS-Code: $CODE-";
   
    print "<form method=\"POST\" action=\"$cgiurl\">\n";   
	print "<font face=verdana,arial,helvetica size=5 color=ffffc8>";
	print "<center>";

    print "<center>";

	print "<table bgcolor=\"silver\" width=530 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr>\n";
	print "<td valign=\"top\">";
	if ($FORM{'SHOWBEWERBER'})
		{
		print "$CHOOSELGBEW";
		}
		else
		{	
		print "$CHOOSELG";
		}
	
	print "</td>";
	print "</tr>";
	print "</table>";
	

	print "<table bgcolor=$dunkel width=530 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td bgcolor=\"000000\">\n";

	print "$TEXT120";
	
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8><br><br>";	
if ($MODUS eq 1)
	{
	print "$TEXT121";
	}
	
if ($MODUS eq 2)
	{
	print "$TEXT122";
	}

if ($MODUS eq 3)
	{
	print "$TEXT123";
	}

	print "$TEXT124";
	

	
    print "<center><table bgcolor=$dunkel width=520 cellspacing=5 cellpadding=5 border=0>\n";
    print "<tr>";
	

if ($LG eq "xxx")
	{	
	print "<td width=\"250\" bgcolor=\"#fde1e7\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=red>";									
	print "HINWEIS!<br>
Nutzen Sie bitte das neue Kartei-System, um sich die Bewerber anzeigen zu lassen.<br>
<br>
Sollte dies nicht funktionieren, so nutzen Sie bitte den Button um die alte Version zu aktivieren.<br>
<br>
Vielen Dank!
";
	print "</td>";
	}

	print "<td bgcolor=\"#186d56\">";
	print "<font face=verdana,arial,helvetica size=5 color=ffffc8>";									
	
	if ($FORM{'SHOWBEWERBER'})
		{
	print "<br><div align=\"center\">
	<a href=\"javascript:gfenster('http://www.flashmodels.de/casting/index_alteversion.php?page=showmembers&code=$CODE&thema=$FORM{'SHOWBEWERBER'}&lg=$LG', 1100, 800)\" style=\"color: White;\">
	<b>$TEXT108</b></a></div>";

		print "<br><br>";

#		print "Alte Version:<div align=\"center\">";
#		print "<br><input type=submit value=\"alte Version $FORM{'SHOWBEWERBER'}\"><br><br>\n";	
		print "</div>";
		print "<input type=\"hidden\" name=\"SHOWBEWERBER\" value=\"$FORM{'SHOWBEWERBER'}\">\n\n";
		print "<input type=hidden name=\"ANZMOD\" value=\"35\"> \n";	
		
		print "<input type=hidden name=\"main0\" value=\"ok\">\n";	
		print "<input type=hidden name=\"PASSWORT\" value=\"$FORM{'PASSWORT'}\">\n";	
		print "<input type=hidden name=\"CODE\" value=\"$CODE\"> \n";	
		print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		
		print "<input type=hidden name=\"willkommen\" value=\"$FORM{'willkommen'}\"> \n";
		

		}
		else
		{
		print "<br><div align=\"center\">$TEXT125</div><br><br>\n";	
		}
	print "</td></tr>";
	print "</table>";
	  
	  
	  
	print "</td>";
	print "</tr></table>";	
	
    print "<center><table bgcolor=$orange width=530 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td bgcolor=\"$orange\">";
	print "<font face=verdana,arial,helvetica size=1 color=000000>";
	print "$COPYRIGHT&nbsp;<br>\n";
	print "</td></tr></table>";	
	  
#-------------------------------------   


	
	print "<input type=hidden name=\"PASSWORT\"";
    print "value=\"$FORM{'PASSWORT'}\">\n";	
		
	print "<input type=hidden name=\"CODE\" value=\"$CODE\"> \n";	
	print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		

	print "<input type=hidden name=\"willkommen\" value=\"1\"> \n";
	print "<input type=hidden name=\"LG\" value=\"$FORM{'LG'}\">\n";	
		
#-------------------------------------   
   print "</form>$TEXTHAUPTSEITE";
   

   print "</center><br><br><br><br><br>\n";

   print "\n</body></html>\n";

# Begin the Editing of the Guestbook File
open (FILE,"$LOGOK") || die "Can't Open $LOGOK: $!\n";
@LINESAAA=<FILE>;
close(FILE);
$SIZEAAA=@LINESAAA;

# Open Link File to Output
open (GUEST,">$LOGOK") || die "Can't Open $LOGOK: $!\n";

for ($iaaa=0;$iaaa<=$SIZEAAA;$iaaa++) {
   $_=$LINESAAA[$iaaa];
   if (/<!--begin-->/) { 

      if ($entry_order eq '1') {
         print GUEST "<!--begin-->\n";
      }
   
	  print GUEST "\n";
	  print GUEST "<!--+++++++++++++++++++++++++++++++++++++++++-->\n";
	  print GUEST "<!--a $date-->\n\n";
      print GUEST "\n";
 	 
      print GUEST "<center><table width=850 cellspacing=2 cellpadding=2 border=0>\n";
      print GUEST "<tr>\n";
      print GUEST "<td bgcolor=$dunkel>\n";
      print GUEST "<font face=verdana,arial,helvetica size=1 color=#66ff00>Eingeloggt: ";

      print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	  print GUEST " - <b>[Benutzername: &nbsp;&nbsp; $FORM{'BENUTZERNAME'}]</b> &nbsp;&nbsp;";
#	  print GUEST "[Passwort:$FORM{'PASSWORT'}]";
      
	  print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffc8>";
	  print GUEST " [IP:$ENV{'REMOTE_ADDR'}]\n";
	  
      print GUEST "<font face=verdana,arial,helvetica size=1 color=ffff00>";
	  print GUEST "$nurdatum - $nurzeit UHR";

if ($FORM{'SHOWBEWERBER'})
	{
	  print GUEST "<font face=verdana,arial,helvetica size=1 color=\"#66ccff\">";
	  print GUEST " | Thema: $FORM{'SHOWBEWERBER'}]\n";
	 }
	  
	  print GUEST " | <font color=\"#0066cc\">LG:$LG</font>\n";
if ($COOKIEGESETZT eq 1)
	{
	  print GUEST " | <font color=\"lime\">Cookie OK</font>\n";
	}
	else
	{
	  print GUEST " | <font color=\"red\">Cookie wurde nicht gesetzt</font>\n";
	}

	  print GUEST "</td>\n";
	  print GUEST "</tr></table></center>";	  

	  print GUEST "<!--e $date-->\n\n\n";	  
	  
      if ($entry_order eq '0') {
         print GUEST "<!--begin-->\n";
      }

   }
   else {
      print GUEST $_;
   }
}

close (GUEST);
   
   
   exit;
}





sub main0 {

&PWCHECK;

print "Content-type: text/html\n\n";
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
print "<html><head><title>$TITEL</title>";
&JAVASCRIPT2;
print "</head>\n";
print "<body bgcolor=\"$hg\" text=\"ffff00\" link=\"ffff00\" vlink=\"ffff00\" alink=\"ffff00\" leftmargin=\"0\" topmargin=\"0\">\n";

$sqlbefehl="select DISTINCT LAND, COUNT(LAND) FROM $TABELLENNAME group by LAND order by LAND ASC";
#$sqlbefehl="select DISTINCT LAND FROM $TABELLENNAME ORDER BY LAND ASC";
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
	{
	$SQLLAND = "$SQLLAND<option value=\"$dbrow[0]\">$dbrow[0] ($dbrow[1])";
	}

$sqlbefehl="select COUNT(*) FROM $TABELLENNAME";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
	{
	$SQLPERSONENANZAHL = "$dbrow[0]";
	$SQLPERSONENANZAHL_FRAU = "$dbrow[1]";
	}

$sqlbefehl="select COUNT(*) FROM $TABELLENNAME where GESCHLECHT = 'Frau'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
	{
	$SQLPERSONENANZAHL_FRAU = "$dbrow[0]";
	}

$sqlbefehl="select COUNT(*) FROM $TABELLENNAME where GESCHLECHT = 'Mann'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
	{
	$SQLPERSONENANZAHL_MANN = "$dbrow[0]";
	}

	
$dbh->disconnect; # Von Datenbank abmelden		
################



    
#print "$MODUS";

if ($FORM{'showantrage'} ne 1)
{   

    print "<form method=\"POST\" action=\"$cgiurl\">\n";   

    print "<center><table bgcolor=$dunkel width=900 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td bgcolor=\"000000\">\n";

	print "$TEXT130";
		 
	print "</td></tr></table><br>";	

}# Ende showantrage   
#################   


if ($MODUS eq 2)
{	

$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
if (!$FORM{'premaktiv'})
	{
	$FORM{'premaktiv'} = 1;
	}
	
if ($FORM{'premaktiv'} eq 2)
	{
	$WHERE = "WHERE MEMBER_START <= NOW() and MEMBER_ENDE >= NOW() and MEMBER = '1'";

	if ($FORM{'SHOWNULL'} eq 1)
		{
#		$WHERE = "$WHERE and (MEMBERPREIS = '0.00 Euro' or MEMBERPREIS = '')";
		}
		else
		{
		$WHERE = "$WHERE and MEMBERPREIS != '0.00 Euro' and MEMBERPREIS != ''";
		}

	if ( ($FORM{'SHOWMONATAKTIV'}) and ($FORM{'SHOWMONATAKTIV'} != "alle anzeigen") )
		{
		$WHERE = "$WHERE and (DATE_FORMAT(MEMBER_START, '%m') = '$FORM{'SHOWMONATAKTIV'}')";
		$Info = "(Monat: $FORM{'SHOWMONATAKTIV'}.$jahrnow)";
		}		
		
	$ORDER = "order by MEMBER_START DESC";
	$ANZEIGETEXT = "Alle bereits aktive Premium Mitglieder $Info:";
	}

if ($FORM{'premaktiv'} eq 1)
	{
#	$WHERE = "WHERE $TABELLENNAME_B.ANTRAGMEMBER = '1' or $TABELLENNAME_B.ANTRAGMEMBER = '2' and $TABELLENNAME_B.CASTID = '$TABELLENNAME.ID'";
	$WHERE = "WHERE $TABELLENNAME.ID = $TABELLENNAME_B.CASTID and $TABELLENNAME_B.ANTRAGMEMBER = '1' or $TABELLENNAME_B.ANTRAGMEMBER = '2'";
	$ORDER = "order by $TABELLENNAME_B.ANTRAGDATUM DESC";
	$ANZEIGETEXT = "Alle beantragten Premium-Mitgliedschaften:";
	}
	
	$SPERRENTAGE = "31"; # Tage, bei denen der account gesperrt wird, wenn nicht gezahlt worden ist
	
if ($FORM{'premaktiv'} eq 3)
	{
	$TAGES = $FORM{'TAGEPREMAKTIV'};

	if ( ($FORM{'TAGEPREMAKTIV'} eq $SPERRENTAGE)  )
		{
		$WHERE = "WHERE ANTRAGMEMBER = 1 and ANTRAGDATUM <= (NOW() - INTERVAL $TAGES DAY)";
		$ANZEIGETEXT = "Alle beantragten Premium-Mitgliedschaften, die älter als $TAGES Tage sind:";	
		}
		else
		{
		$WHERE = "WHERE ANTRAGMEMBER = 1 and ANTRAGDATUM <= (NOW() - INTERVAL $TAGES DAY) and ANTRAGDATUM >= (NOW() - INTERVAL $SPERRENTAGE DAY)";
		$ANZEIGETEXT = "Alle beantragten Premium-Mitgliedschaften, die älter als $TAGES bis $SPERRENTAGE Tage sind:";
		}

	$ORDER = "order by ANTRAGDATUM DESC";


	if ( ($FORM{'TAGEPREMAKTIV'} eq $SPERRENTAGE) and ($FORM{'personensperren'} eq 1) )
		{
		$FORM{'shownlsql'} = 1;
		}
	}

if ($FORM{'premaktiv'} eq 4)
	{
	$TAGES = $FORM{'NOCHTAGEPREMAKTIV'};
	$WHERE = "WHERE ANTRAGMEMBER = 0 and MEMBER = 1 and (NOW() >= (MEMBER_ENDE - INTERVAL $TAGES DAY)) and (NOW() <= (MEMBER_ENDE)) and MEMBER_START != '0000-00-00' and MEMBER_ENDE != '0000-00-00'";
	$ORDER = "order by ANTRAGDATUM DESC";
	$ANZEIGETEXT = "Alle aktiven Premium-Mitgliedschaften, die in den nächsten $TAGES Tagen ablaufen:";
	}

#$SQLDATEN = "select ID, VORNAME, NACHNAME, WOHNORT, VORNAME, DATE_FORMAT(ANTRAGDATUM, '%d.%m.%Y'), MEMBERPREIS, DATE_FORMAT(MEMBER_START, '%d.%m.%Y'), DATE_FORMAT(MEMBER_ENDE, '%d.%m.%Y'), VORNAME";
$SQLDATEN = "select ID, VORNAME, NACHNAME, WOHNORT, VORNAME, VORNAME, MEMBERPREIS, DATE_FORMAT(MEMBER_START, '%d.%m.%Y'), DATE_FORMAT(MEMBER_ENDE, '%d.%m.%Y'), VORNAME";
$FROMWHERE = "FROM $TABELLENNAME $WHERE";



#$SQLDATEN = "select $TABELLENNAME.ID, $TABELLENNAME.VORNAME, $TABELLENNAME.NACHNAME, $TABELLENNAME.WOHNORT, $TABELLENNAME.VORNAME, $TABELLENNAME.VORNAME, $TABELLENNAME.MEMBERPREIS, DATE_FORMAT($TABELLENNAME.MEMBER_START, '%d.%m.%Y'), DATE_FORMAT($TABELLENNAME.MEMBER_ENDE, '%d.%m.%Y'), CASTINGKARTEIB_INFO.BOOKEDPREMIUM";


#$FROMWHERE = "FROM $TABELLENNAME, CASTINGKARTEIB_INFO $WHERE";



$sqlbefehl="$SQLDATEN $FROMWHERE $ORDER";

#print "-$sqlbefehl-";

$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
$z=0;
while (@dbrow = $sth->fetchrow_array)
	{
	$z++;
	$CASTID[$z] = "$dbrow[0]";
	$VORNAME[$z] = "$dbrow[1]";
	$NACHNAME[$z] = "$dbrow[2]";
	$WOHNORT[$z] = "$dbrow[3]";		
	$ANTRAGPREIS[$z] = "$dbrow[4]";			
	$ANTRAGDATUM[$z] = "$dbrow[5]";				
	$MEMBERPREIS[$z] = "$dbrow[6]";					
	$MEMBER_START[$z] = "$dbrow[7]";						
	$MEMBER_ENDE[$z] = "$dbrow[8]";							
	$zmax = $z;
	}


if ($FORM{'premaktiv'} eq 1)
	{
	$SQLDATEN = "select $TABELLENNAME_B.CASTID, $TABELLENNAME_B.ANTRAGPREIS, DATE_FORMAT($TABELLENNAME_B.ANTRAGDATUM, '%d.%m.%Y %H:%i'), $TABELLENNAME.VORNAME, $TABELLENNAME.NACHNAME, $TABELLENNAME.WOHNORT, $TABELLENNAME_B.ANTRAGSCOUTER, CASTINGKARTEIB_INFO.BOOKEDPREMIUM";
	$FROMWHERE = "FROM $TABELLENNAME_B, $TABELLENNAME $WHERE";
	$sqlbefehl="$SQLDATEN $FROMWHERE $ORDER";
	
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	$z=0;
	while (@dbrow = $sth->fetchrow_array)
	{
	$z++;
	$CASTID[$z] = "$dbrow[0]";
	$ANTRAGPREIS[$z] = "$dbrow[1]";			
	$ANTRAGDATUM[$z] = "$dbrow[2] Uhr";
	$VORNAME[$z] = "$dbrow[3]";			
	$NACHNAME[$z] = "$dbrow[4]";					
	$WOHNORT[$z] = "$dbrow[5]";						
	$ANTRAGSCOUTER[$z] = "$dbrow[6]";							
	$BOOKEDPREMIUM[$z] = "$dbrow[7]";	
	$zmax = $z;
	}

	}


#print "<font size=\"2\" color=\"#ffffff\">$sqlbefehl</font>";


$dbh->disconnect; # Von Datenbank abmelden		
################

if ( ($FORM{'showantrage'} eq 1) )
{


    print "<table width=800 cellspacing=2 cellpadding=2 border=0>\n";
    print "<form method=\"POST\" action=\"$cgiurl\">\n";   
    print "<tr><td align=\"right\">";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";									
	print "		<input type=submit value=\"zum Hauptmenü\">\n";	
#-------------------------------------   


$FORM{'main0'} ='ok'; #hilfsvariable gesetzt!
	print "<input type=hidden name=\"willkommen\"";
    print "value=\"1\">\n";	
	
	print "<input type=hidden name=\"PASSWORT\"";
    print "value=\"$FORM{'PASSWORT'}\">\n";	
		
	print "<input type=hidden name=\"CODE\" value=\"$CODE\"> \n";	
	print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		
	print "<input type=hidden name=\"willkommen\" value=\"$FORM{'willkommen'}\"> \n";
	print "<input type=hidden name=\"MASTERPW\" value=\"$FORM{'MASTERPW'}\">";
#-------------------------------------   
	print "<br>\n";	
	print "</td></tr></form>";
	print "</table>";
}


	print "<table width=\"900\" cellspacing=\"5\" cellpadding=\"5\" bgcolor=\"gray\">\n";
	print "<tr>";
    print "<form method=\"POST\" action=\"$cgiurl\">\n";   
	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff><label>";
if ($FORM{'showantrage'} eq 1)
	{
	print "<input type=\"checkbox\" name=\"showantrage\" value=\"1\" checked>";
	}
	else
	{
	print "<input type=\"checkbox\" name=\"showantrage\" value=\"1\">";
	}
	print "Premium Anträge anzeigen </label>| ";

	print "Passwort: <input type=\"password\" name=\"MASTERPW\" value=\"$FORM{'MASTERPW'}\" size=\"5\">\n";		
	print "&nbsp;&nbsp;<input type=\"submit\" value=\"anzeigen\">";
	print "</td>";

if ( ($FORM{'MASTERPW'} ne $MASTERPW2) and ($FORM{'showantrage'} eq 1) )
	{
	print "<td bgcolor=\"ffffff\">";
	print "<b><font color=\"red\">Falsches Passwort wurde angegeben!</font></b>";
	print "</td>";
	}


	print "</tr>";

	print "<input type=hidden name=\"willkommen\" value=\"1\">\n";	
	print "<input type=hidden name=\"PASSWORT\" value=\"$FORM{'PASSWORT'}\">\n";	
	print "<input type=hidden name=\"CODE\" value=\"$CODE\"> \n";	
	print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		
	print "<input type=hidden name=\"willkommen\" value=\"$FORM{'willkommen'}\"> \n";

	print "</table>";


	
if ($FORM{'MASTERPW'} eq $MASTERPW2)
{


if ($FORM{'showantrage'} eq 1)
{	

if ($FORM{'ausblenden'} ne "1")
{	


	print "<table width=\"900\" cellspacing=\"2\" cellpadding=\"2\" border=\"0\" bgcolor=\"#ffffff\">\n";
	print "<tr bgcolor=\"silver\">";
	print "	<td width=\"30\" align=\"right\" valign=\"top\">";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
	print "$FORM{'premaktiv'}";
	print " </td>";
	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";

if ( ($FORM{'premaktiv'} eq 1) or (!$FORM{'premaktiv'}) )
	{	
	print "<input type=\"radio\" name=\"premaktiv\" value=\"1\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"1\">";	
	}
	print "<font color=\"#ffff00\"><b>alle offene</b></font> Anträge anzeigen";

	print "</td>";
	print "</tr>";

	print "<tr bgcolor=\"silver\">";
	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
	print "[NL 2x]";
	print "</td>";

	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";	
if ( ($FORM{'premaktiv'} eq 3) or (!$FORM{'premaktiv'}) )
	{	
	print "<input type=\"radio\" name=\"premaktiv\" value=\"3\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"3\">";	
	}
	print "<font color=\"#990033\"><b>offene</b></font> Anträge anzeigen, die älter als ";
    
	print "<select name=\"TAGEPREMAKTIV\" size=1>";
if ($FORM{'TAGEPREMAKTIV'})
	{
	print "<option selected>$FORM{'TAGEPREMAKTIV'}</option>";
	}
	else
	{
	print "<option selected>7</option>";
	}
	print "<option value=\"0\">0 - $SPERRENTAGE Tage</option>";
	print "<option value=\"7\">7 - $SPERRENTAGE Tage</option>";	
	print "<option value=\"14\">14 - $SPERRENTAGE Tage</option>";	
	print "<option value=\"$SPERRENTAGE\">$SPERRENTAGE (+ Mitglieder blockieren)</option>";	
	print "</select>";
	
	print "Tage sind";

	print "| ";


	print "<input type=\"checkbox\" name=\"personensperren\" value=\"1\" checked>";

	print "bei $SPERRENTAGE Tage -> Personen sperren";

	print "</td>";

	print "</tr>";


	print "<tr bgcolor=\"silver\">";
	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";	

	print "</td>";

	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
if ($FORM{'premaktiv'} eq 2)
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"2\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"2\">";
	}
	print "<font color=\"green\"><b>aktive</b></font> Premium-Mitgliedschaften anzeigen,";	

	print "[<input type=\"checkbox\" name=\"SHOWNULL\" value=\"1\"> inkl.0 Euro]";

	print "| Monat: (Start)";
	print "<select name=\"SHOWMONATAKTIV\" size=1>";
	print "<option value=\"$monatnow\" selected>dieser Monat ($monatnow.$jahrnow)</option>";
	
	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	if ($monatnow eq "00")
		{
		$monatnow = 12;
		$jahrnow = $jahrnow - 1;
		}
	print "<option value=\"$monatnow\">letzter Monat ($monatnow.$jahrnow)</option>";	

	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">Monat: $monatnow.$jahrnow</option>";	

	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">Monat: $monatnow.$jahrnow</option>";	
	
	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">Monat: $monatnow.$jahrnow</option>";	
	
	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">Monat: $monatnow.$jahrnow</option>";	
	print "<option>alle anzeigen</option>";		
	print "</select><br>";

	print "</td>";

	print "</tr>";


	print "<tr bgcolor=\"silver\">";
	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
	print "[NL]";
	print "</td>";

	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
if ( ($FORM{'premaktiv'} eq 4) or (!$FORM{'premaktiv'}) )
	{	
	print "<input type=\"radio\" name=\"premaktiv\" value=\"4\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"4\">";	
	}
	print "<font color=\"green\"><b>aktive</b></font> Premium-Mitgliedschaften, die in den nächsten ";
    
	print "<select name=\"NOCHTAGEPREMAKTIV\" size=1>";
	if ($FORM{'NOCHTAGEPREMAKTIV'})
		{
		print "<option selected>$FORM{'NOCHTAGEPREMAKTIV'}</option>";
		}
		else
		{
		print "<option selected>15</option>";
		}
	print "<option>0</option>";
	print "<option>7</option>";	
	print "<option>15</option>";	
	print "<option>20</option>";	
	print "<option>30</option>";		
	print "</select>";
	
	print "ablaufen";	
	print "</td>";

	print "</tr>";
	print "<tr>";
	print "<td>&nbsp;</td>";
	print "<td>";

	print "<font face=verdana,arial,helvetica size=1 color=#000000>";
	print "<input type=\"checkbox\" name=\"ausblenden\" value=\"1\"> Kopf zum Drucken ausblenden $FORM{'ausblenden'}";		
	print "</td>";
	print "</tr>";

	print "<tr bgcolor=\"#8b8843\">";
	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";

	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print "<input type=\"checkbox\" name=\"shownlsql\" ";
if ($FORM{'shownlsql'} eq 1)
	{
	print "checked";
	}
	print " value=\"1\"> SQL/NL";	

		
	print "</td>";
	print "</form>";
	print "<form method=\"POST\" action=\"$emailcgiurl\" target=\"_blank\">\n";   
	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<font face=verdana,arial,helvetica size=1 color=000000>";
if ($FORM{'shownlsql'} eq 1)
	{
	print "$SQLDATEN<br>";
	print "<table>";
	print "<tr>";
	print "<td>";
	print "<textarea cols=\"50\" rows=\"3\" name=\"whereform\">$FROMWHERE</textarea>";
	print "</td>";

	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";

if ($FORM{'TAGEPREMAKTIV'} eq $SPERRENTAGE)
	{
	if ($FORM{'personensperren'} eq 1)
		{
		print "<font color=\"#ffff00\"><b> -> Profile wurden für Öffentlichkeit gesperrt!</b></font><br><br>";

		$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden		
		$dbh->do("UPDATE `$TABELLENNAME` SET `LOCKPUBLIC` = '2', `SHOWPUBLIC` = '0' WHERE ANTRAGMEMBER = 1 and ANTRAGDATUM <= (NOW() - INTERVAL $SPERRENTAGE DAY)");				
		$dbh->disconnect; # Von Datenbank abmelden			
		
		print "<font size=\"1\">$SQLLOCK</font><br><br>";

		}
	print "(TextID:";
	print "<input type=\"text\" name=\"NLTEXT\" size=\"2\" value=\"30\">  \n";		
	print ") <br><br>";
	
	}
	else
	{
	print "(TextID:";
	print "<input type=\"text\" name=\"NLTEXT\" size=\"2\" value=\"$FORM{'premaktiv'}\"> \n";		
	print ")<br>";
	}

	print "<input type=\"submit\" value=\"Newsletter starten\">";
	print "</td>";
	print "</tr>";
	print "</table>";

	print "$ORDER";
	}


	print "</td>";
	print "</from>";
	print "</tr>";

	print "<tr>";
	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
		
	print "</td>";

	print "<td>";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";
	
	print "</td>";

	print "</tr>";
	
	print "</table>";
}



if ($XALT)
{
	print "<table width=\"900\" cellspacing=\"2\" cellpadding=\"2\" border=\"1\" bgcolor=\"silver\">\n";
	print "<tr>";
	print "	<td width=\"20\" align=\"right\" valign=\"top\">";
	print "	<font face=verdana,arial,helvetica size=2 color=000000>";

	print "[NL]&nbsp;<br><br>[NL]<b></b></td>";


	print "	<td>";

	print "	<font face=verdana,arial,helvetica size=2 color=000000>";

if ( ($FORM{'premaktiv'} eq 1) or (!$FORM{'premaktiv'}) )
	{	
	print "<input type=\"radio\" name=\"premaktiv\" value=\"1\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"1\">";	
	}
	print "<font color=\"#ffff00\"><b>alle offene</b></font> Anträge anzeigen";
	print "<br>";

if ( ($FORM{'premaktiv'} eq 3) or (!$FORM{'premaktiv'}) )
	{	
	print "<input type=\"radio\" name=\"premaktiv\" value=\"3\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"3\">";	
	}
	print "<font color=\"#990033\"><b>offene</b></font> Anträge anzeigen, die älter als ";
    
	print "<select name=\"TAGEPREMAKTIV\" size=1>";
if ($FORM{'TAGEPREMAKTIV'})
	{
	print "<option selected>$FORM{'TAGEPREMAKTIV'}</option>";
	}
	else
	{
	print "<option selected>7</option>";
	}
	print "<option value=\"0\">0 - $SPERRENTAGE Tage</option>";
	print "<option value=\"7\">7 - $SPERRENTAGE Tage</option>";	
	print "<option value=\"14\">14 - $SPERRENTAGE Tage</option>";	
	print "<option value=\"$SPERRENTAGE\">$SPERRENTAGE (+ Mitglieder blockieren)</option>";	
	print "</select>";
	
	print "Tage sind";

	print "| ";


	print "<input type=\"checkbox\" name=\"personensperren\" value=\"1\" checked>";

	print "bei $SPERRENTAGE Tage -> Personen sperren";
	
	print "<br>";


if ($FORM{'premaktiv'} eq 2)
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"2\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"2\">";
	}
	print "<font color=\"green\"><b>aktive</b></font> Premium-Mitgliedschaften anzeigen,";	

	print "[<input type=\"checkbox\" name=\"SHOWNULL\" value=\"1\"> inkl.0 Euro]";

	print "| Monat:";
	print "<select name=\"SHOWMONATAKTIV\" size=1>";
	print "<option value=\"$monatnow\" selected>dieser Monat ($monatnow.$jahrnow)</option>";
	
	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">letzter Monat ($monatnow.$jahrnow)</option>";	

	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">Monat: $monatnow.$jahrnow</option>";	

	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">Monat: $monatnow.$jahrnow</option>";	

	$monatnow = $monatnow-1;
	$monatnow = sprintf("%02d",$monatnow);
	print "<option value=\"$monatnow\">Monat: $monatnow.$jahrnow</option>";	
	
	
	print "<option>alle anzeigen</option>";

	print "</select><br>";

if ( ($FORM{'premaktiv'} eq 4) or (!$FORM{'premaktiv'}) )
	{	
	print "<input type=\"radio\" name=\"premaktiv\" value=\"4\" checked>";
	}
	else
	{
	print "<input type=\"radio\" name=\"premaktiv\" value=\"4\">";	
	}
	print "<font color=\"green\"><b>aktive</b></font> Premium-Mitgliedschaften, die in den nächsten ";
    
	print "<select name=\"NOCHTAGEPREMAKTIV\" size=1>";
	if ($FORM{'NOCHTAGEPREMAKTIV'})
		{
		print "<option selected>$FORM{'NOCHTAGEPREMAKTIV'}</option>";
		}
		else
		{
		print "<option selected>15</option>";
		}
	print "<option>0</option>";
	print "<option>7</option>";	
	print "<option>15</option>";	
	print "<option>20</option>";	
	print "<option>30</option>";		
	print "</select>";
	
	print "ablaufen";
	print "<br>";


	
	print "</td>";
	print "</tr>";
	
	print "<tr bgcolor=\"#8b8843\">";	
	print "<td>";
	
	#####
	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print "<input type=\"checkbox\" name=\"shownlsql\" ";
if ($FORM{'shownlsql'} eq 1)
	{
	print "checked";
	}
	print " value=\"1\"> SQL/NL";	
	print "</td>";
	
	print "</form>";
	print "<form method=\"POST\" action=\"$emailcgiurl\" target=\"_blank\">\n";   
	
	print "<td valign=\"top\">";
	print "<font face=verdana,arial,helvetica size=1 color=000000>";
if ($FORM{'shownlsql'} eq 1)
	{
	print "$SQLDATEN<br>";
	print "<table>";
	print "<tr>";
	print "<td>";
	print "<textarea cols=\"50\" rows=\"3\" name=\"whereform\">$FROMWHERE</textarea>";
	print "</td>";

	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";

if ($FORM{'TAGEPREMAKTIV'} eq $SPERRENTAGE)
	{
	if ($FORM{'personensperren'} eq 1)
		{
		print "<font color=\"#ffff00\"><b> -> Profile wurden für Öffentlichkeit gesperrt!</b></font><br><br>";

		$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden		
		$dbh->do("UPDATE `$TABELLENNAME` SET `LOCKPUBLIC` = '2', `SHOWPUBLIC` = '0' WHERE ANTRAGMEMBER = 1 and ANTRAGDATUM <= (NOW() - INTERVAL $SPERRENTAGE DAY)");				
		$dbh->disconnect; # Von Datenbank abmelden			
		
		print "<font size=\"1\">$SQLLOCK</font><br><br>";

		}
	print "(TextID:";
	print "<input type=\"text\" name=\"NLTEXT\" size=\"2\" value=\"40\">  \n";		
	print ") <br><br>";
	
	}
	else
	{
	print "(TextID:";
	print "<input type=\"text\" name=\"NLTEXT\" size=\"2\" value=\"$FORM{'premaktiv'}\"> \n";		
	print ")<br>";
	}

	
	print "<input type=\"submit\" value=\"Newsletter starten\">";
	print "</td>";
	print "</tr>";
	print "</table>";

	print "$ORDER";
	}
	print "</td>";
	print "</from>";
	print "</tr>";
	print "</table>";	
	####
} # Ende Alt



	
	print "<table width=\"900\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"silver\">\n";
	print "<tr>";
	print "	<td bgcolor=\"#000000\"><font face=verdana,arial,helvetica size=3 color=$hg>";
	print " >>> <b>$ANZEIGETEXT</b>";
	print "</td>";
	print "</tr>";
	print "</table>";	

	print "<table width=\"900\" cellspacing=\"5\" cellpadding=\"5\" bgcolor=\"gray\">\n";

	$PREISGESAMT = 0;
for ($z=1; $z<=$zmax; $z++)
	{
		print "<tr>\n";

$BG = "#000000";		
if ($BOOKEDPREMIUM[$z] eq "0")
	{
	$STP = "<img src=\"http://www.flashmodels.de/casting/grafik/flag-showdata2.gif\" border=\"0\" alt=\"\"> ";
	$BG = "#a40000";
	}		
		
		print "	<td bgcolor=\"$BG\" width=\"150\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
		$PERSONLINK = "$SHOWPERSON?action=showperson&ses=$mastersession&ID=$CASTID[$z]&ccode=$FORM{'CODE'}";
		$PERSONLINK = "http://www.flashmodels.de/profile/profile.php?ses=$mastersession&ID=$CASTID[$z]&code=$FORM{'CODE'}&log=nolog";		
		print "$z.&nbsp;";
		print "<a href=\"$PERSONLINK\" target=\"_blank\">$CASTID[$z]</a> $STP";




		print "</td>";

		print "	<td bgcolor=\"#000000\" width=\"180\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";

		print "$VORNAME[$z] $NACHNAME[$z]<br> aus $WOHNORT[$z]";
if ($ANTRAGMEMBER[$z] eq 2)
	{
	print "<font face=verdana,arial,helvetica size=1 color=ffff00>";
	print " (Verlängerung)";
	}
		print "</td>";

		print "	<td width=\"150\" align=\"right\" bgcolor=\"#000000\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";

if ($FORM{'premaktiv'} eq 2)
	{
	$DBPREIS = $MEMBERPREIS[$z];		
	}
	else
	{
	$DBPREIS = $ANTRAGPREIS[$z];		
	}

		
	  	@PREIS = split(/\ /, $DBPREIS);
		$SHOWPREIS = $PREIS[0]; 
		$WAHRUNG = $PREIS[1]; 

		if ($SHOWPREIS eq "0.00")
			{
			$col = "<font color=\"red\">";
			}
			else
			{
			$col = "<font color=\"lime\">";
			}

		if ($FORM{'premaktiv'} ne 2)
			{
			$col = "<font color=\"ffff00\">";
			}

		print "$col<b>$SHOWPREIS $WAHRUNG</b></font>";
		
		
#		print "$ANTRAGPREIS[$z]|$MEMBERPREIS[$z]";
		$PREISGESAMT = $PREISGESAMT + $SHOWPREIS;
		
		print "</td>";

		print "	<td bgcolor=\"#000000\">";
		print "<font face=verdana,arial,helvetica size=2 color=silver>";
	if ( ($FORM{'premaktiv'} eq 2) or ($FORM{'premaktiv'} eq 4) )
			{
			print "$MEMBER_START[$z]-$MEMBER_ENDE[$z]";
			}
			else
			{
			print "$ANTRAGDATUM[$z]";
			}
			

	if ($ANTRAGSCOUTER[$z])
		{
		print "<br><font color=\"#f71e8c\" size=\"1\">PIN:$ANTRAGSCOUTER[$z]</font>";
		}
		
		print "&nbsp;";
		print "</td>";
		
		print "</tr>";
	}


		print "<tr>\n";

		print "	<td>&nbsp;";

		print "</td>";

		print "	<td align=\"right\">";

		print "<font face=verdana,arial,helvetica size=4 color=ffffff>";
		print "<b>Gesamt:</b><br><br>";

		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
		$zw = $z-1;
		print "Gesamt Mitglieder: <b>$zw</b>";


		print "</td>";

		print "	<td bgcolor=\"#000000\" align=\"right\">";
		print "<font face=verdana,arial,helvetica size=3 color=ffffff>";
		print "<hr width=\"120\" size=\"3\" color=\"White\" noshade>";
		
		$PREISGESAMT = sprintf("%.2f",$PREISGESAMT);
		print "<b>$PREISGESAMT Euro</b><br>";
		print "<hr width=\"120\" size=\"1\" color=\"White\" noshade>";

		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
#		$GEWINN = $PREISGESAMT / 1.16;
		$GEWINN = sprintf("%.2f", $PREISGESAMT / 1.19);		
		print "Gewinn: $GEWINN €<br>";

		$MWST = sprintf("%.2f", $GEWINN * 0.19);		
		print "19%Mwst.: $MWST €";

		print "</td>";

		print "	<td bgcolor=\"#000000\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
		print "&nbsp;";
		print "</td>";
		
		print "</tr>";


	print "</table>";	
}
} # Ende Passwort
print "<br>";

if ($FORM{'ausblenden'})
	{
	print "</body></html>";
	exit;
	}
}


	
#	print "Benutzername: $FORM{'BENUTZERNAME'}";

if ($FORM{'KUNDENNAMENANZEIGEN'})
	{
#	$FORM{'KUNDENNAMENANZEIGEN'} = "alle anzeigen";
	}
	else
	{
	$FORM{'KUNDENNAMENANZEIGEN'} = $FORM{'BENUTZERNAME'};

	if  ($MODUS eq 2)
		{
		$FORM{'KUNDENNAMENANZEIGEN'} = "alle anzeigen";
		}	

	}



if  ( ($MODUS eq 2) and ($FORM{'KUNDENNAMENANZEIGEN'} eq '') )
	{
#	$FORM{'KUNDENNAMENANZEIGEN'} = "alle anzeigen";
	}


&EINLESENBEWERBERDATEN;

	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
#	print "Bewerbungsthemen:<br>";


#	print "<table width=\"900\" cellspacing=\"5\" cellpadding=\"5\" bgcolor=\"gray\">\n";
#		print "<tr>\n";
#		print "<td>";
#		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
#		print "Benutzername: $FORM{'BENUTZERNAME'}";
#		print "</td>";
#		print "</tr>";
#	print "</table>";

if ($FORM{'showantrage'} ne 1)
{
	print "<table width=\"900\" cellspacing=\"5\" cellpadding=\"5\" bgcolor=\"gray\">\n";
    print "<form method=\"POST\" action=\"$cgiurl\">\n";   
		print "<tr>\n";

		print "	<td bgcolor=\"#000000\" width=\"100\">";
#		print "<img src=\"http://www.flashmodels.de/casting/grafik/fuchsia1-1.gif\" border=\"0\" alt=\"\" width=\"100%\" height=\"1\"><br>";
		print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
		print "$TEXT101<br>";
		   print "<select name=KUNDENNAMENANZEIGEN size=1>";	

if ($MODUS eq 2)
{		
		if ($FORM{'KUNDENNAMENANZEIGEN'})
			{
		   print "<option selected>$FORM{'KUNDENNAMENANZEIGEN'}";
		   print "<option value=\"alle anzeigen\">$TEXT135";
			}
			else
			{
		   print "<option selected value=\"alle anzeigen\">$TEXT135";
			}
		   print "$KUNDENNAME";
}
else
{
		   print "<option selected>$FORM{'KUNDENNAMENANZEIGEN'}";
}
		   print "</select>";

	   print "</td>";


       print "<td bgcolor=\"#000000\" width=\"100\">";
	   print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	   print "$TEXT136<br>";

    	   print "<select name=\"STATUSANZEIGEN\" size=1>";	

if ($FORM{'STATUSANZEIGEN'} eq 1)
	{
    print "<option selected value=\"1\" style=\"background: green; color: White;\">$TEXT137";	
	}		   

if ($FORM{'STATUSANZEIGEN'} eq 2)
	{
    print "<option selected value=\"2\" style=\"background: red; color: White;\">$TEXT138";	
	}		   

if ($FORM{'STATUSANZEIGEN'} eq "alle")
	{
    print "<option selected value=\"alle\">$TEXT139";	
	}		   

if ($FORM{'STATUSANZEIGEN'} eq '')
	{
    print "<option selected value=\"1\">$TEXT137";	
	}		   	
	
#		   print "<option selected value=\"1\">nur aktuell ausgeschriebene Themen";
		   print "<option value=\"1\" style=\"background: green; color: White;\">$TEXT137";
		   print "<option value=\"2\" style=\"background: red; color: White;\">$TEXT138";
		   print "<option value=\"alle\">$TEXT139";

		   print "</select>";
#	print "-$FORM{'STATUSANZEIGEN'}-";

		print "</td>";
	
		print "<td bgcolor=\"#000000\" width=\"250\">";
		print "<div align=\"center\"><input type=submit value=\"$TEXT140\"></div>\n";	
		print "</td>";

if ($MODUS eq 2)
{				
		print "<td bgcolor=\"#000000\" width=\"200\">";

		print "<a href=\"javascript:pophtml2('$BNurl', 800, 550)\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
		print "$TEXT145";
		print "</a><br><br>";	

		print "<a href=\"javascript:pophtml2('$cgiurl?code=$CODE&action=add&showid=&typ=', 800, 550)\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
		print "$TEXT146";
		print "</a>";	
		print "</td>";
}
			
		print "<td>&nbsp;</td>";
		print "</tr>";

	print "<input type=hidden name=\"PASSWORT\" value=\"$FORM{'PASSWORT'}\">\n";		
	print "<input type=hidden name=\"CODE\" value=\"$CODE\"> \n";	
	print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		
	print "<input type=hidden name=\"willkommen\" value=\"1\"> \n";
	print "<input type=hidden name=\"LG\" value=\"$LG\">\n";	
	print "</form>";
	print "</table>";

	
	
	print "<table width=\"900\" cellspacing=\"5\" cellpadding=\"5\" bgcolor=\"gray\">\n";

		print "<tr>\n";
		print "	<td bgcolor=\"#000000\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
		print "&nbsp;<b>$TEXT150</b></td>\n";

		print "	<td bgcolor=\"#000000\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
		print "<b>$TEXT151</b></td>\n";
		
		print "	<td bgcolor=\"#000000\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
		print "<div align=\"center\">&nbsp;</div>";
		print "</td>\n";
		print "</tr>\n";
	
if ($MODUS eq 2)
{
if ($FORM{'KUNDENNAMENANZEIGEN'})
			{
			}
			else
			{
			$FORM{'KUNDENNAMENANZEIGEN'} = "alle anzeigen";
			}
}
else
{
$FORM{'KUNDENNAMENANZEIGEN'} = $FORM{'BENUTZERNAME'};
}

			
	
	for ($k=1; $k<=$kmax; $k++)
		{


#$FORM{'BENUTZERNAME'} eq $RECHTEKUNDENNAME[$k]) or		
#if ( (($FORM{'KUNDENNAMENANZEIGEN'} eq "alle anzeigen") and ($MODUS eq 2)) or ($FORM{'BENUTZERNAME'} eq $RECHTEKUNDENNAME[$k]) or ($FORM{'KUNDENNAMENANZEIGEN'} eq $RECHTEKUNDENNAME[$k]))
#{##

	
#	if ( ($FORM{'BENUTZERNAME'} eq $RECHTEKUNDENNAME[$k]) or ($MODUS eq 2) )
#		{###
		print "<tr>\n";
		print "	<td valign=\"top\" bgcolor=\"#3C7186\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
		print "<div align=\"center\">ID: <b>$THEMENID[$k]</b></div><br>";

	if ($ANZEIGESTATUS[$k] eq 1)
		{
		print "<b>$TEXT155</b>";
		}

	if ($ANZEIGESTATUS[$k] eq 2)
		{
		print "<b>$TEXT156</b>";
		}
		
if ($MODUS eq 2)
		{
		print "<br><br>";


		print "<a href=\"javascript:pophtml2('$cgiurl?code=$CODE&action=infotext&showid=$THEMENID[$k]', 750, 550)\">";
	
		if ($INFOTEXT[$k])
			{
			print "$INFOBLOCK";
			print "</a>";		
			print "<br><font face=verdana,arial,helvetica size=1 color=ffffff>$TEXT157";		
			}
			else
			{
			print "$INFOBLOCKOFF";
			print "</a>";	
			print "<br><font face=verdana,arial,helvetica size=1 color=ffffff>$TEXT158";		
			}
		
		print "";
		}
		
		print "</td>\n";		
		
		print "	<td bgcolor=\"#000000\">";

		print "<table width=\"100%\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"\" border=\"0\">\n";
		print "<tr>\n";
if ($MODUS eq 2)
		{
		print "	<td bgcolor=\"#000000\" width=\"1\">";
		print "<a href=\"javascript:pophtml2('$cgiurl?code=$CODE&action=infotext&showid=$RECHTEKUNDENNAME[$k]&typ=kontaktinfo', 750, 550)\">";
	if ($INFOKONTAKT[$k])
			{
			print "$INFOANSCHRIFT";
			}
			else
			{
			print "$INFOANSCHRIFTOFF";
			}
		print "</a>";
		print "</td>";
		}
		
		print "	<td valign=\"top\">";
		print "<font face=verdana,arial,helvetica size=1 color=$mailgelb>";
		print "$TEXT101 ";
		print "<font face=verdana,arial,helvetica size=1 color=#ffffff>";
		print "<b>$RECHTEKUNDENNAME[$k]</b><br>";

		print "<font face=verdana,arial,helvetica size=1 color=$mailgelb>";		
		print "$TEXT160 ";
		print "<font face=verdana,arial,helvetica size=1 color=#ffffff>";
		print "<b>$RECHTETHEMENANSPRECHPARTNER[$k]</b> ";
		print "[<a href=\"mailto:$RECHTETHEMENEMAIL[$k]\" style=\"color: Silver;\">$RECHTETHEMENEMAIL[$k]</a>]";
		print " </td>";
		
		print "</tr>";
		print "</table>";



		print "<font face=verdana,arial,helvetica size=2 color=ffffff><br>";
		print "<a href=\"$cgiurlTERMINE?show=$THEMENID[$k]&admin=1\" target=\"_blank\" style=\"color: #ffffff;\">$TITETHEMA[$k]</a><br>";
		print "<br>";

if ($MODUS eq 2)
		{
	print "<img src=\"http://www.flashmodels.de/casting/grafik/fuchsia1-1.gif\" border=\"0\" alt=\"\" width=\"100%\" height=\"1\">";

		print "<br><font face=verdana,arial,helvetica size=2 color=$mailgelb>";		
		print "$TEXT161 ";
		
if ($BEWERBERSICHTBAR[$k] eq 1)
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#00ca00\">";
		print "<b>$TEXT162</b>";
	}
	else
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#dd0000\">";
		print "<b>$TEXT163</b>";
	}


		print "<br><font face=verdana,arial,helvetica size=2 color=$mailgelb>";		
		print "$TEXT166 ";
if ($DATENSICHTBAR[$k] eq 1)
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#00ca00\">";
		print "<b>$TEXT167</b>";
	}

if ($DATENSICHTBAR[$k] eq 0)
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#dd0000\">";
		print "<b>$TEXT168</b>";
	}

		print "<br><font face=verdana,arial,helvetica size=2 color=$mailgelb>";		
		print "$TEXT170 ";

if ($AUTOEMAIL[$k]	eq 1)
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#00ca00\">";
		print "<b>$TEXT171</b>";
		print "<font face=verdana,arial,helvetica size=1 color=\"#00ca00\">";
		print " [<a href=\"mailto:$RECHTETHEMENEMAIL[$k]\" style=\"color: Silver;\">$RECHTETHEMENEMAIL[$k]</a>]";		
	}
	else
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#dd0000\">";
		print "<b>$TEXT172</b>";
	}
		print "<br>";


		print "<font face=verdana,arial,helvetica size=2 color=$mailgelb>";		
		print "$TEXT175 ";

if ($DRUCKEN[$k] eq 1)
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#00ca00\">";
		print "<b>$TEXT176</b>";
		print "<font face=verdana,arial,helvetica size=1 color=\"#00ca00\">";
	}
	else
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"#dd0000\">";
		print "<b>$TEXT177</b>";
	}
		print "<br>";
	
	$dbh->disconnect; # Von Datenbank abmelden		

		
		print "<br><table bgcolor=\"#ffffff\" width=\"100%\">\n";
		print "	<tr>\n";
		print "	<td>";
		print "<font face=verdana,arial,helvetica size=1 color=\"#000000\">";
		print "$TEXT180<br> <b><a href=\"$cgiurl?action=bew&id=$THEMENID[$k]&lg=$LG\" target=\"_blank\" style=\"color: Blue;\">$cgiurl?action=bew&id=$THEMENID[$k]&lg=$LG</a></b><br>";
if ($RECHTEKUNDENNAME[$k])
	{
		print "$TEXT101 <b>$RECHTEKUNDENNAME[$k]</b><br>";
	}
	else
	{
		print "$TEXT182<br>";
	}

if ($KPW[$k])
	{
		print "$TEXT102 <b>$KPW[$k]</b>";
	}
	else
	{
		print "$TEXT183</b>";
	}
		print "</font>";
		print " </td>\n";
		print "	</tr>\n";
		print "</table>\n";
		}
		
		print "</td>\n";
		
		print "	<td valign=\"middle\" bgcolor=\"#000000\">";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
		print "$TEXT185 <b>$ANZAHLPERSONEN[$k]</b>";

if ( ($BEWERBERSICHTBAR[$k] eq 1) or ($MODUS eq 2) )
	{		

	print "<br><br><div align=\"center\"><a href=\"javascript:gfenster('http://www.flashmodels.de/casting/index_alteversion.php?page=showmembers&code=$CODE&thema=$THEMENID[$k]&lg=$LG', 1100, 800)\"><b>>> $TEXT188 <<</b></a></div>";
	

	    print "<form method=\"POST\" action=\"$cgiurl\" target=\"_blank\">\n";   

#		print "<form action=\"$cgiurl\" method=\"POST\" onSubmit=\"window.open('$cgiurl', 'fenster', 'width=750,height=650,left=75,top=0,scrollbars=yes,hotkeys=no,menubar=no,locationbar=no,resizeable=yes,status=no')\">";

		print "<input type=hidden name=\"SHOWBEWERBER\" value=\"$THEMENID[$k]\"> \n";	


		print "<input type=hidden name=\"main0\" value=\"ok\">\n";	
		print "<input type=hidden name=\"PASSWORT\" value=\"$FORM{'PASSWORT'}\">\n";	
		print "<input type=hidden name=\"CODE\" value=\"$CODE\"> \n";	
		print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		
		print "<input type=hidden name=\"willkommen\" value=\"$FORM{'willkommen'}\"> \n";
		print "<div align=\"center\">";

		print "<hr width=\"200\" size=\"1\" color=\"White\" noshade>";
if ($MODUS eq 2)
		{
	    print "<br><br>Anzahl pro Seite: ";
		print "<select name=\"ANZMOD\" size=\"1\"><option selected>35<option>14<option>70<option>140<option>210<option>280</select>";	
		print "<br><br>";
		}
		else
		{
		print "<input type=hidden name=\"ANZMOD\" value=\"35\"> \n";	
		}	

if ($ANZAHLPERSONEN[$k] > 0)
		{
#		print "		<input type=submit value=\"alte version\">\n";			
		}
		
		print "</div>";
		print "</form>";
	}
	else
	{
		print "<font face=verdana,arial,helvetica size=2 color=\"red\"><br><br>";		
		print "<b>$TEXT189</b>";
	}
		print "</td>\n";
		print "</tr>\n";
#		}###
#}
#else
#{
#}

		}

	print "</table>\n";
}
#################

   
   print "$TEXTHAUPTSEITE";
   

   
   print "</center><br><br><br><br><br>\n";

   print "\n</body></html>\n";

   exit;
}



sub EINLESENBEWERBERDATEN
{
################
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

#$sqlbefehl="select DATE_FORMAT(BEWERBUNGSDATUM, '%d.%m.%Y'), TIME_FORMAT(BEWERBUNGSDATUM, '%H:%i:%s'), CASTID, THEMENID, ZUSATZINFO FROM $CASTINGBEWERBUNG";

#print "<option selected>aktuell ausgeschriebene Themen<option>abgeschlossenen Themen<option>alle Themen anzeigen";


#### Einlesen aller vorhandenen Themen ID`s

#print "-$FORM{'STATUSANZEIGEN'}-";
if ($FORM{'STATUSANZEIGEN'} eq '') 
	{
	$FORM{'STATUSANZEIGEN'} = 1;
	}


if (($FORM{'STATUSANZEIGEN'} eq 1) or ($FORM{'STATUSANZEIGEN'} eq 2))
	{
	$THEMENSTAT = "and ($THEMANAME.ANZEIGESTATUS = '$FORM{'STATUSANZEIGEN'}' or $THEMANAME.ANZEIGESTATUS = '0') and $CASTINGBEWERBUNGRECHTE.THEMENID = $THEMANAME.ID";
	$THEMENSTAT2 = "($THEMANAME.ANZEIGESTATUS = '$FORM{'STATUSANZEIGEN'}' or $THEMANAME.ANZEIGESTATUS = '0') and $CASTINGBEWERBUNGRECHTE.THEMENID = $THEMANAME.ID";
	}


	
if ($FORM{'STATUSANZEIGEN'} eq "alle") 
	{
	$THEMENSTAT = "and $CASTINGBEWERBUNGRECHTE.THEMENID = $THEMANAME.ID";
	$THEMENSTAT2 = "$CASTINGBEWERBUNGRECHTE.THEMENID = $THEMANAME.ID";	
	}
	
if ($FORM{'KUNDENNAMENANZEIGEN'})
	{
	if ($FORM{'KUNDENNAMENANZEIGEN'} eq "alle anzeigen")
		{
		### alle anzeigen
		$sqlbefehl="select DISTINCT THEMENID FROM $CASTINGBEWERBUNG ORDER BY THEMENID DESC";
		$sqlbefehl="select DISTINCT $CASTINGBEWERBUNGRECHTE.THEMENID, $THEMANAME.ANZEIGESTATUS FROM $CASTINGBEWERBUNGRECHTE, $THEMANAME where $THEMENSTAT2 ORDER BY $CASTINGBEWERBUNGRECHTE.THEMENID DESC";
		}
		else
		{
#		$sqlbefehl="select DISTINCT THEMENID FROM $CASTINGBEWERBUNGRECHTE where KUNDENNAME = '$FORM{'KUNDENNAMENANZEIGEN'}' ORDER BY THEMENID DESC";
		$sqlbefehl="select DISTINCT $CASTINGBEWERBUNGRECHTE.THEMENID, $THEMANAME.ANZEIGESTATUS FROM $CASTINGBEWERBUNGRECHTE, $THEMANAME where $CASTINGBEWERBUNGRECHTE.KUNDENNAME = '$FORM{'KUNDENNAMENANZEIGEN'}' $THEMENSTAT ORDER BY $CASTINGBEWERBUNGRECHTE.THEMENID DESC";
		}
	}
	else
	{
	### alle anzeigen
	$sqlbefehl="select DISTINCT THEMENID FROM $CASTINGBEWERBUNG ORDER BY THEMENID DESC";
	}

$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
#print "<font face=verdana,arial,helvetica size=2 color=ffffff>";		
#print "<br>-$sqlbefehl-<br>";
$k=0;
	while (@dbrow = $sth->fetchrow_array)
		{
		$k++;
		$THEMENID[$k] = $dbrow[0];
		$ANTST[$k] = $dbrow[1];		
		$kmax = $k;
#		print "-----$dbrow[0]-$dbrow[1]-$dbrow[2]-$dbrow[3]--<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
		}


		
		
#### Einlesen aller Kunden, die Rechte besitzen
$sqlbefehl="select DISTINCT KUNDENNAME FROM $CASTINGBEWERBUNGRECHTE ORDER BY KUNDENNAME ASC";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

$ka=0;
	while (@dbrow = $sth->fetchrow_array)
		{
		$ka++;
		$KUNDENNAME[$ka] = $dbrow[0];
		$kamax = $ka;
		#print "-----$dbrow[0]-$dbrow[1]-$dbrow[2]-$dbrow[3]--<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
#		print "<br>$KUNDENNAME[$ka]<br>";
		$KUNDENNAME = "$KUNDENNAME<option>$KUNDENNAME[$ka]";
		}

		
		
$k=0;
#### Einlesen der zu den Themen ID`s gehörenen Titel
	for ($k=1; $k<=$kmax; $k++)
	{
	$sqlbefehl="select TITEL, ANZEIGESTATUS, INFOTEXT FROM $THEMANAME WHERE ID = '$THEMENID[$k]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$TITETHEMA[$k] = $dbrow[0];
		$ANZEIGESTATUS[$k] = $dbrow[1];
		$INFOTEXT[$k] = $dbrow[2];		
		}
	}

if ($FORM{'SHOWBEWERBER'})
	{
	$sqlbefehl="select TITEL, INFOTEXT FROM $THEMANAME WHERE ID = '$FORM{'SHOWBEWERBER'}'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$TITETHEMA = $dbrow[0];
		$INFOTEXT = $dbrow[1];		
		}
	}
	
$k=0;
#### Einlesen der vorhandenen Personen
	for ($k=1; $k<=$kmax; $k++)
	{
	$sqlbefehl="select COUNT(*) FROM $CASTINGBEWERBUNG WHERE THEMENID = '$THEMENID[$k]' AND LOSCH = '0'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$ANZAHLPERSONEN[$k] = $dbrow[0];
		}
	}

####### Rechte einlesen
	for ($k=1; $k<=$kmax; $k++)
	{
	$sqlbefehl="select THEMENID, KUNDENNAME, ANSPRECHPARTNER, KUNDENEMAIL, DATENSICHTBAR, AUTOEMAIL, DRUCKEN, BEWERBERSICHTBAR FROM $CASTINGBEWERBUNGRECHTE WHERE THEMENID = '$THEMENID[$k]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$RECHTETHEMENID[$k] = $dbrow[0];
		$RECHTEKUNDENNAME[$k] = $dbrow[1];
		$RECHTETHEMENANSPRECHPARTNER[$k] = $dbrow[2];				
		$RECHTETHEMENEMAIL[$k] = $dbrow[3];						
		$DATENSICHTBAR[$k] = $dbrow[4];								
		$AUTOEMAIL[$k] = $dbrow[5];	
		$DRUCKEN[$k] = $dbrow[6];			
		$BEWERBERSICHTBAR[$k] = $dbrow[7];			
		}

	$sqlbefehl="select INFOFELD FROM $TABELLENNAMEPW WHERE BENUTZERNAME = '$RECHTEKUNDENNAME[$k]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$INFOKONTAKT[$k] = $dbrow[0];
#		print "$INFOKONTAKT[$k]<br>";
		}


	}


#### Einlesen ades Passwortes
	for ($k=1; $k<=$kmax; $k++)
	{
	$sqlbefehl="select PASSWORT FROM $TABELLENNAMEPW WHERE BENUTZERNAME = '$RECHTEKUNDENNAME[$k]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$KPW[$k] = $dbrow[0];
		}
	}
###############   	
	
		

	$dbh->disconnect; # Von Datenbank abmelden		
###############
}



sub main1 {

&PWCHECK;

print "Content-type: text/html\n\n";	
print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n\n";
print "<html><head><title>$TITEL</title>\n\n";
   
&JAVASCRIPT;   

#print "<link href=\"../../../casting/styles/castingedit.css\" rel=\"stylesheet\" type=\"text/css\">\n";		
#print "<script language=\"JavaScript\" src=\"../../../casting/styles/skript.js\" type=\"text/javascript\"></script>\n";   
 
print "</head>\n";
print "<body bgcolor=\"$hg\" text=\"ffff00\" link=\"ffff00\" vlink=\"ffff00\" alink=\"ffff00\" leftmargin=\"0\" topmargin=\"0\">\n";


if ($FORM{'SHOWBEWERBER'})
	{
	$THEMENID = $FORM{'SHOWBEWERBER'} ;
	&EINLESENBEWERBERDATEN;
	}




################
$sqlbefehl="select Count(*) FROM $TABELLENNAME";
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$GESMATEINTRAGE = $dbrow[0];	
}

#####
$sqlbefehl="select Count(*) FROM $TABELLENNAME WHERE GESCHLECHT = 'Mann'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$MANNEINTRAGE = $dbrow[0];	
}

#####
$sqlbefehl="select Count(*) FROM $TABELLENNAME WHERE GESCHLECHT = 'Frau'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$FRAUEINTRAGE = $dbrow[0];	
}

#print "<b>An Datenbank angemeldet</b><br>";
	
$dbh->disconnect; # Von Datenbank abmelden		
###############   


$hhh="lll";
if ($hhh)
{
####
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden


if ($FORM{'SORTIERUNG'} eq 'aktuellster Eintrag zuerst')
	{
	$ORDERBY = "ORDER BY `SHOWPOS` DESC";
	}
	else
	{
	$ORDERBY = "ORDER BY `SHOWPOS` ASC";
	}



if ($FORM{'ANZMODVON'})
	{
	$LIMIT = "LIMIT $FORM{'ANZMODVON'}, $FORM{'ANZMOD'}";
	$BEREICHBIS = $FORM{'ANZMODVON'} + $FORM{'ANZMOD'};
	$BEREICHVON = $FORM{'ANZMODVON'}+1;
	$BEREICH = "$BEREICHVON -  $BEREICHBIS";
	}
	else
	{
	$LIMIT = "LIMIT 0, $FORM{'ANZMOD'}";
	$BEREICH = "1 - $FORM{'ANZMOD'}";
	}


####
if ($FORM{'GESCHLECHT'} eq 'weiblich')
	{	
	$WHERE = "WHERE GESCHLECHT = 'Frau'";
	}

if ($FORM{'GESCHLECHT'} eq 'männlich')
	{	
	$WHERE = "WHERE GESCHLECHT = 'Mann'";
	}
	
#####
if ($FORM{'SORTLAND'} eq 'alle Länder')
	{	
	}
	else
	{
	if ($WHERE)
		{		
		$WHERE = "$WHERE AND LAND = '$FORM{'SORTLAND'}'";
		}
		else
		{
		$WHERE = "WHERE LAND = '$FORM{'SORTLAND'}'";
		}
	}
	

if ($FORM{'PLZVON'} and $FORM{'PLZBIS'})
	{	
	$STELLEN1 = length ($FORM{'PLZVON'});
	$STELLEN2 = length ($FORM{'PLZBIS'});	

	if ($STELLEN1 < $STELLEN2)
		{
		$STELLEN2 = 1;
		$FORM{'PLZBIS'} = substr ($FORM{'PLZBIS'} ,0 ,1)
		}
	

	if ($STELLEN1 > $STELLEN2)
		{
		$STELLEN1 = 1;
		$FORM{'PLZVON'} = substr ($FORM{'PLZVON'} ,0 ,1)
		}
		
		
	if ( ($STELLEN1 eq 1) and ($STELLEN2 eq 1) )
		{
	
#		if ( ($FORM{'GESCHLECHT'} eq 'männlich') or ($FORM{'GESCHLECHT'} eq 'weiblich') or ($FORM{'SORTLAND'} != 'alle Länder') )
#			{		
		if ($WHERE)
			{	
			$WHERE = "$WHERE AND LEFT(POSTLEITZAHL,1) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,1) <= '$FORM{'PLZBIS'}'";
			}
			else
			{
			$WHERE = "WHERE LEFT(POSTLEITZAHL,1) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,1) <= '$FORM{'PLZBIS'}'";
			}
		}
	

	if ( ($STELLEN1 eq 2) and ($STELLEN2 eq 2) )
			{
#			if ( ($FORM{'GESCHLECHT'} eq 'männlich') or ($FORM{'GESCHLECHT'} eq 'weiblich') or ($FORM{'SORTLAND'} != 'alle Länder') )
#				{					
			if ($WHERE)
				{	
				$WHERE = "$WHERE AND LEFT(POSTLEITZAHL,2) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,2) <= '$FORM{'PLZBIS'}'";
				}
				else
				{
				$WHERE = "WHERE LEFT(POSTLEITZAHL,2) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,2) <= '$FORM{'PLZBIS'}'";				
				}
			}
	}


if ($FORM{'ALTERVON'} and $FORM{'ALTERBIS'})
	{

	$nowdatum = '2005';
	$alterdatumvon = $nowdatum - $FORM{'ALTERVON'}  ;
	$alterdatumbis = $nowdatum - $FORM{'ALTERBIS'}  ;	

	$alterdatumvon1 = $alterdatumvon - 1;
	$alterdatumbis1 = $alterdatumbis - 1;

	
	if ($WHERE)
		{
		$WHERE = "$WHERE AND ( (GEBURTSJAHR <= '$alterdatumvon' AND GEBURTSJAHR >= '$alterdatumbis') OR (GEBURTSJAHR <= '$alterdatumvon1' AND GEBURTSJAHR >= '$alterdatumbis1') )";

		}
		else
		{
		$WHERE = "WHERE ( (GEBURTSJAHR <= '$alterdatumvon' AND GEBURTSJAHR >= '$alterdatumbis') OR (GEBURTSJAHR <= '$alterdatumvon1' AND GEBURTSJAHR >= '$alterdatumbis1') )";		
		}
	}
	
###########################
if ($FORM{'KORPERGROSSEVON'} and $FORM{'KORPERGROSSEBIS'})
	{
	if ($WHERE)
		{
		$WHERE = "$WHERE AND ( (KORPERGROSSE <= '$FORM{'KORPERGROSSEBIS'}' AND KORPERGROSSE >= '$FORM{'KORPERGROSSEVON'}')  )";

		}
		else
		{
		$WHERE = "WHERE ( (KORPERGROSSE <= '$FORM{'KORPERGROSSEBIS'}' AND KORPERGROSSE >= '$FORM{'KORPERGROSSEVON'}')  )";
		}
	}


###########################
if ($FORM{'GEWICHTVON'} and $FORM{'GEWICHTBIS'})
	{
	if ($WHERE)
		{
		$WHERE = "$WHERE AND ( (GEWICHT <= '$FORM{'GEWICHTBIS'}' AND GEWICHT >= '$FORM{'GEWICHTVON'}')  )";

		}
		else
		{
		$WHERE = "WHERE ( (GEWICHT <= '$FORM{'GEWICHTBIS'}' AND GEWICHT >= '$FORM{'GEWICHTVON'}')  )";
		}
	}

	
if ($FORM{'SUCHBEGRIFF'})
	{
	if ($WHERE)
		{	
	$WHERE = "$WHERE AND (ID LIKE '%$FORM{'SUCHBEGRIFF'}%' or VORNAME LIKE '%$FORM{'SUCHBEGRIFF'}%' or NACHNAME LIKE '%$FORM{'SUCHBEGRIFF'}%' 
			or EMAIL LIKE '%$FORM{'SUCHBEGRIFF'}%' or WOHNORT LIKE '%$FORM{'SUCHBEGRIFF'}%' or BERUF LIKE '%$FORM{'SUCHBEGRIFF'}%' 
			or HOBBYS LIKE '%$FORM{'SUCHBEGRIFF'}%' or BESCHREIBUNG1 LIKE '%$FORM{'SUCHBEGRIFF'}%' or BESCHREIBUNG2 LIKE '%$FORM{'SUCHBEGRIFF'}%')";
		}
		else
		{
	$WHERE = "WHERE ID LIKE '%$FORM{'SUCHBEGRIFF'}%' or VORNAME LIKE '%$FORM{'SUCHBEGRIFF'}%' or NACHNAME LIKE '%$FORM{'SUCHBEGRIFF'}%' 
			or EMAIL LIKE '%$FORM{'SUCHBEGRIFF'}%' or WOHNORT LIKE '%$FORM{'SUCHBEGRIFF'}%' or BERUF LIKE '%$FORM{'SUCHBEGRIFF'}%' 
			or HOBBYS LIKE '%$FORM{'SUCHBEGRIFF'}%' or BESCHREIBUNG1 LIKE '%$FORM{'SUCHBEGRIFF'}%' or BESCHREIBUNG2 LIKE '%$FORM{'SUCHBEGRIFF'}%'";
		}
	}



#### Nur Bewerber anzeigen
if ($FORM{'SHOWBEWERBER'})
	{
	$WHERE = "WHERE $TABELLENNAME.ID = $CASTINGBEWERBUNG.CASTID AND $CASTINGBEWERBUNG.THEMENID = '$FORM{'SHOWBEWERBER'}' AND $CASTINGBEWERBUNG.LOSCH = '0'";
#	$LIMIT="";
	}
	
if ($FORM{'SHOWBEWERBER'})
	{
	$WHERE = "WHERE $TABELLENNAME.ID = $CASTINGBEWERBUNG.CASTID AND $CASTINGBEWERBUNG.THEMENID = '$FORM{'SHOWBEWERBER'}' AND $CASTINGBEWERBUNG.LOSCH = '0'";
	$ORDERBY="ORDER BY $CASTINGBEWERBUNG.BEWERBUNGSDATUM DESC";
	$sqlbefehlX="select $TABELLENNAME.ID, $TABELLENNAME.VORNAME, $TABELLENNAME.NACHNAME, $TABELLENNAME.GESCHLECHT, $TABELLENNAME.WOHNORT, $TABELLENNAME.SHOWPOS, DATE_FORMAT($CASTINGBEWERBUNG.BEWERBUNGSDATUM, '%d.%m.%Y'), TIME_FORMAT($CASTINGBEWERBUNG.BEWERBUNGSDATUM, '%H:%i:%s'), $CASTINGBEWERBUNG.FLAGMAIL, $CASTINGBEWERBUNG.FLAG2, $CASTINGBEWERBUNG.FLAG3, $CASTINGBEWERBUNG.MANUELLADD FROM $TABELLENNAME, $CASTINGBEWERBUNG $WHERE $ORDERBY $LIMIT";
	$sqlbefehl="select Count(*) FROM $TABELLENNAME, $CASTINGBEWERBUNG $WHERE";
	}
	else
	{
	$sqlbefehlX="select ID, VORNAME, NACHNAME, GESCHLECHT, WOHNORT, SHOWPOS FROM `$TABELLENNAME` $WHERE $ORDERBY $LIMIT";
	$sqlbefehl="select Count(*) FROM `$TABELLENNAME` $WHERE";
	}
	
	

$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$ERGEBNISSE = $dbrow[0];	
}
	

if ($FORM{'SHOWBEWERBER'})
	{
	$SUCHERG = "Es haben sich $ERGEBNISSE Personen zu dem Thema beworben:";
	}
	else
	{
	$SUCHERG = "Die Suche ergab $ERGEBNISSE Ergebnisse:";
	}


if ($FORM{'SHOWBEWERBER'})
	{
#	$WHERE = "WHERE $TABELLENNAME.ID = $CASTINGBEWERBUNG.CASTID AND $CASTINGBEWERBUNG.THEMENID = '$FORM{'SHOWBEWERBER'}'";
#	$ORDERBY="ORDER BY $CASTINGBEWERBUNG.BEWERBUNGSDATUM DESC";
#	$sqlbefehlX="select $TABELLENNAME.ID, $TABELLENNAME.VORNAME, $TABELLENNAME.NACHNAME, $TABELLENNAME.GESCHLECHT, $TABELLENNAME.WOHNORT, $TABELLENNAME.SHOWPOS, DATE_FORMAT($CASTINGBEWERBUNG.BEWERBUNGSDATUM, '%d.%m.%Y'), TIME_FORMAT($CASTINGBEWERBUNG.BEWERBUNGSDATUM, '%H:%i:%s') FROM $TABELLENNAME, $CASTINGBEWERBUNG $WHERE $ORDERBY $LIMIT";
	}



if ($FORM{'SHOWDATENMOD3'} eq '1')
	{
#	print "---$FORM{'BENUTZERNAME'}---<br>";
#	$sqlbefehl="select CASTINGKARTEILOG.SHOWNID, $TABELLENNAME.VORNAME, $TABELLENNAME.NACHNAME, $TABELLENNAME.GESCHLECHT, $TABELLENNAME.WOHNORT, $TABELLENNAME.SHOWPOS FROM `$TABELLENNAME`, `CASTINGKARTEILOG` WHERE CASTINGKARTEILOG.BENUTZERNAME = '$FORM{'BENUTZERNAME'}' $LIMIT";
	$sqlbefehl="select SHOWNID FROM `CASTINGKARTEILOG` WHERE BENUTZERNAME = '$FORM{'BENUTZERNAME'}' ORDER BY `SHOWNID` DESC $LIMIT";
	}

   
$sth = $dbh->prepare($sqlbefehlX); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

$k=0;

while (@dbrow = $sth->fetchrow_array)
{
$k=$k+1;
$c=$c+1;
$ID[$k] = $dbrow[0];	
$VORNAME[$k] = $dbrow[1];
$WOHNORT[$k] = $dbrow[4];	
$SHOWPOS[$k] = $dbrow[5];	

$BEWERBUNGSDATUM[$k] = $dbrow[6];
$BEWERBUNGSZEIT[$k] = $dbrow[7];
$FLAGMAIL[$k] = $dbrow[8];
$FLAG2[$k] = $dbrow[9];
$FLAG3[$k] = $dbrow[10];
$MANUELLADD[$k] = $dbrow[11];

	$realimage[$k] = "$fotourl/$ID[$k].jpg";	
	$phpphoto[$k] = "$phpfotourl?castid=$ID[$k]&ses=$mastersession";

	$BILD = "$saveurleinfug/$ID[$k].jpg";
#	($width[$k],$height[$k]) = imgsize($image[$k]); 

#	$BILD = $image[$k];
		$width1[$k] = "";
		$height1[$k] = "";
		$PIC = "";

		open (PIC, "<" . $BILD);
		@PIC=<PIC>;
		$PIC=@PIC;
		close (PIC);				
	
			#($width1,$height1) = imgsize($BILD); 
	if ($PIC ne 0)
		{
		   	$image = GD::Image->newFromJpeg($BILD);
			($width[$k],$height[$k]) = $image->getBounds();
		}

$kmax=$k;
}


$dbh->disconnect; # Von Datenbank abmelden				
##############################
}




    
   
   
#    print "<form method=POST action=\"$cgiurl\">\n";   

	print "<center>";

#	print "$FORM{'PLZVON'}-$FORM{'PLZBIS'}<br>";
	$PLZVONLANG = length $FORM{'PLZVON'};
	$PLZBISLANG = length $FORM{'PLZBIS'};
	
#	print "$PLZVONLANG-	$PLZBISLANG<br>";
#  print "$FORM{'CODE'}";

	print "<center>";
	print "<table bgcolor=\"#000000\" width=\"850\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
		print "<font face=verdana,arial,helvetica size=4 color=ffffc8>";
		print "<b>Castingkartei von <a href=\"http://www.flashModels.de\" target=\"_blank\">www.flashModels.de</a></b><br>";	
		print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";		

if ($MODUS eq 1)
		{
		print "<br><b>Sie nutzen derzeit die Demoversion!</b>";
		}

if ($MODUS eq 2)
		{
		print "<br><b>Sie nutzen die Vollversion!</b>";
		}

if ($MODUS eq 3)
		{
		print "<br><b>Sie nutzen die eingeschränkte Vollversion!</b>";
		}


#		print "<br>$DATENFILE, $SIZE";


	print "<font face=verdana,arial,helvetica size=1 color=ffffc8><br>";	
		
			
	print "</td></tr>";
	print "</table><br>";
   
			

	
	print "<table bgcolor=\"#000000\" width=\"850\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
		print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";

if ($FORM{'SHOWBEWERBER'})
	{
	}
	else
	{
	&VORZURUCK;			
	}

if ($FORM{'SHOWBEWERBER'})
	{
	print "<table border=\"0\" width=\"100%\" cellpadding=\"5\">\n";
	print "<tr>\n";
	print "	<td width=\"100\">";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
	print "ID:$FORM{'SHOWBEWERBER'}";
	print "</td>\n";

	print "<td>";
	print "<font face=verdana,arial,helvetica size=3 color=ffffff>";
	print "<b><a href=\"$cgiurlTERMINE?show=$FORM{'SHOWBEWERBER'}&admin=1\" target=\"_blank\" style=\"color: #ffffff;\">$TITETHEMA</a></b><br>";
	print "</td>";

	print "</tr>\n";
	print "</table>\n";
	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";
	}




print "<font face=verdana,arial,helvetica size=3 color=$mailgelb>";


if ($ERGEBNISSE eq '0')
	{
	print "<b>Die Suche ergab leider keine Ergebnisse!";  
	print "Geben Sie bitte andere Suchkriterien ein.</b>";
	}
	else
	{
	print "<b>$SUCHERG</b>";  
	}		
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";	

	print "<table width=\"100%\" border=\"0\" cellpadding=\"2\">";

	print "<tr>";


if ($FORM{'SHOWBEWERBER'})
	{	
	print "<td bgcolor=\"silver\" width=\"250\">";
	print "<div align=\"center\"><a href=\"javascript:gfenster('http://www.flashModels.de/casting/index.php?page=showmembers&code=$FORM{'CODE'}', 1100, 800)\" style=\"color: #000000; ; font-size: 12px;\"><b>Alle Kartei-Mitglieder anzeigen</b></a></div>";
#	print "<a href=\"$cgiurl?action=hauptmenu&thema=&user=$FORM{'BENUTZERNAME'}&code=$CODE&pw=$FORM{'PASSWORT'}\" style=\"color: #000000; ; font-size: 12px;\"><b>zum Hauptmenü</b></a>";	
	print "</td>";

	print "<td width=\"190\" bgcolor=\"silver\">";
	print "<div align=\"center\"><a href=\"$cgiurl?action=aktual&thema=$FORM{'SHOWBEWERBER'}&user=$FORM{'BENUTZERNAME'}&code=$CODE&pw=$FORM{'PASSWORT'}\" style=\"color: #000000; ; font-size: 12px;\"><b>Liste aktualisieren</b></a></div>";	
	print "</td>";

if ($MODUS eq 2)
		{
		print "<td width=\"20\" bgcolor=\"#000000\">";
#		print "<a href=\"$cgiurl?action=aktual&thema=$FORM{'SHOWBEWERBER'}&user=$FORM{'BENUTZERNAME'}&code=$CODE&pw=$FORM{'PASSWORT'}\" style=\"color: #000000; ; font-size: 12px;\"><b>Liste aktualisieren</b></a>";	
		print "<a href=\"javascript:pophtml2('$cgiurl?code=$CODE&action=infotext&showid=$FORM{'SHOWBEWERBER'}', 750, 550)\">";

	if ($INFOTEXT)
		{
		print "$INFOBLOCK";
		}
		else
		{
		print "$INFOBLOCKOFF";
		}
		print "</a>";		
		print "</td>";

		
		print "<td width=\"300\" bgcolor=\"000000\">";
		print "<img src=\"http://www.flashmodels.de/casting/grafik/fuchsia1-1.gif\" border=\"0\" alt=\"\" width=\"100%\" height=\"1\"><br>";
		print "$PICMAIL<a href=\"$emailcgiurl?text=BewerbungCastingkartei&themenID=$FORM{'SHOWBEWERBER'}\" target=\"_blank\" style=\"color: #ffffff; ; font-size: 12px;\"><b>eMail (Newsletter) senden</b></a>";
		print " | <a href=\"http://www.flashmodels.de/login/user/programme/sqledit.php?themenID=$FORM{'SHOWBEWERBER'}\" target=\"_blank\" style=\"color: #ffffff; ; font-size: 12px;\"><b>SQL</b></a>";
		
#		print "<img src=\"http://www.flashmodels.de/casting/grafik/fuchsia1-1.gif\" border=\"0\" alt=\"\" width=\"100%\" height=\"1\">";	
		print "</td>";
		}
	}
	print "<td>&nbsp;</td>";
	print "</tr>";
	print "</table>";

		
$c= 0;
################

#print "-$k--<br>";


#print "-$sqlbefehl-<br>";
#print "-$sqlbefehlX-<br>";


$t = 0;
$t2 = 0;
for ($k=1; $k<=$kmax; $k++)
	{
	$t++;
	if ($t eq 1)
		{
		if ($t2 eq 1) 
			{
			$bgtable="005070";
			$t2=0;
			}
			else
			{
			$bgtable="001070";
			$t2=1;			
			}
		print "\n\n<center>\n\n<table bgcolor=\"#$bgtable\" width=\"830\" cellspacing=\"2\" cellpadding=\"2\" border=\"0\">\n\n";
		print "<tr align=\"center\">\n";
		}
	print "<td align=\"center\" valign=\"top\"><center>";

if ($width[$k])
	{
	$FAKTORBREITE = $BREITEKLEIN/$width[$k];
	$FAKTORBREITE=sprintf("%.2f",$FAKTORBREITE);
	}

if ($height[$k])
	{
	$HOHE = $height[$k]*$FAKTORBREITE;
	$HOHE = sprintf("%.0f",$HOHE);	
	}
	
	print "<font face=verdana,arial,helvetica size=1 color=000000><center>\n";	
#	print "<a href=\"javascript:gfenster2('$ANZEIGEN?ID=$ID[$k]$FORM{'CODE'}')\">";	

	if ($FORM{'SHOWBEWERBER'})
		{
		if ($FLAG3[$k] eq 0)
			{
			$NEWFLAG3=1;
			$PIC3 = $PICFLAG3;
			}
			else
			{
			$NEWFLAG3=0;			
			$PIC3 = $PICFLAG3NO;
			}
		print "<br><br><div align=\"center\">";
#		print "<a href=\"$cgiurl?action=flag3&ID=$ID[$k]&thema=$FORM{'SHOWBEWERBER'}&setflag=$NEWFLAG3\" target=\"_blank\">";

#		print "<a href=\"javascript:pophtml('$cgiurl?action=flag3&ID=$ID[$k]&thema=$FORM{'SHOWBEWERBER'}&setflag=$NEWFLAG3', 500, 300)\">";
#		print "$PIC3</a></div>";

if ($MODUS eq 2)
		{
		print "\n<iframe src=\"$cgiurl?action=flag3&ID=$ID[$k]&thema=$FORM{'SHOWBEWERBER'}&setflag=show&change=0&bgcolor=$bgtable&typ=master\" width=\"100\" height=\"60\" marginwidth=\"10\" marginheight=\"10\" scrolling=\"no\">hallo</iframe>\n\n";
		}
		else
		{
		print "\n<iframe src=\"$cgiurl?action=flag3&ID=$ID[$k]&thema=$FORM{'SHOWBEWERBER'}&setflag=show&change=0&bgcolor=$bgtable\" width=\"100\" height=\"25\" marginwidth=\"10\" marginheight=\"10\" scrolling=\"no\">hallo</iframe>\n\n";
		}

		}


if ($MODUS eq 2)
		{
		$csession = $mastersession;
		}
		else
		{
		$csession = "nosession";		
		}

#	print "xx<br><a href=\"javascript: void(0);\" onclick=\"gfenster2('$ANZEIGEN?ID=$ID[$k]$FORM{'CODE'}');return false;\">\n";
	$PERSONLINK = "$SHOWPERSON2?action=showperson&ses=$csession&ID=$ID[$k]&ccode=$FORM{'CODE'}&thema=$FORM{'SHOWBEWERBER'}";
	
	print "<br><a href=\"javascript: void(0);\" onclick=\"sedcardfenster('$PERSONLINK');return false;\" style=\"border: Black; color: Black;\">\n";
#	print "<br><a href=\"javascript:gfenster2('$PERSONLINK')\" style=\"border: Black; color: Black;\">\n";
#	print "<img src=\"$realimage[$k]\" width=$BREITEKLEIN height=$HOHE  border=\"2\" alt=\"\"></a><br>";
	print "<img src=\"$phpphoto[$k]\" width=\"$BREITEKLEIN\" height=\"$HOHE\"  border=\"2\" alt=\"\" style=\"border-color: Black Black Black Black;\"></a><br>";

	print "<font face=verdana,arial,helvetica size=1 color=ffff00><div align=\"center\">\n";	

	print "<font face=verdana,arial,helvetica size=1 color=ffffff>\n";		
#	print "Pos:$SHOWPOS<br>";
#	print "$HOHE,$FAKTORBREITE";
#	print "<br>$k.";
	print "<br><b>$VORNAME[$k]</b><br>";
	print "aus $WOHNORT[$k]<br>";

	print "<br>";
	print "</div>";

if ($BEWERBUNGSDATUM[$k])
	{

	if ($MANUELLADD[$k] eq 1)
		{
		print "<font face=verdana,arial,helvetica size=1 color=\"#f2b600\">\n";		
		print "manuell hinzugefügt:<br>";
		}
		else
		{
		print "<font face=verdana,arial,helvetica size=1 color=ffffff>\n";		
		print "Beworben&nbsp;am:<br>";
		}

	print "<font face=verdana,arial,helvetica size=1 color=ffffff>\n";				
	print "$BEWERBUNGSDATUM[$k] um<br>";
	print "$BEWERBUNGSZEIT[$k] Uhr<br>";
	}
	
if ($MODUS eq 2)
		{
	print "<br><img src=\"http://www.flashmodels.de/casting/grafik/fuchsia1-1.gif\" border=\"0\" alt=\"\" width=\"100\" height=\"1\">";
	print "<br><a href=\"$PERSONLINK\" target=\"_blank\">öffnen</a><br><br>";


	if ($FORM{'SHOWBEWERBER'})
		{
#		if ($FLAGMAIL[$k] eq 0)
#			{
#			$NEWFLAG=1;
#			$PIC = $PICMAIL;
#			}
#			else
#			{
#			$NEWFLAG=0;			
#			$PIC = $PICMAILNO;
#			}

#		print "<a href=\"javascript:pophtml('$cgiurl?action=mailflag&ID=$ID[$k]&thema=$FORM{'SHOWBEWERBER'}&setflag=$NEWFLAG', 500, 300)\">";		
#		print "$PIC</a><br>";


		print "<a href=\"$DELETEURL?ID=$ID[$k]&action=delbew&thema=$FORM{'SHOWBEWERBER'}\" target=\"_blank\" style=\"color: Silver;\">Bewerbung löschen</a><br><br>";
		}


		}

	print "</td>";
	if ($t eq 7)
		{
		$t = 0;
		print "</tr>";
		print "</table>";
		}
	}


if ($XX eq 'dgdgdg')
{	
####
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden


if ($FORM{'SORTIERUNG'} eq 'aktuellster Eintrag zuerst')
	{
	$ORDERBY = "ORDER BY `SHOWPOS` DESC";
	}
	else
	{
	$ORDERBY = "ORDER BY `SHOWPOS` ASC";
	}



if ($FORM{'ANZMODVON'})
	{
	$LIMIT = "LIMIT $FORM{'ANZMODVON'}, $FORM{'ANZMOD'}";
	$BEREICHBIS = $FORM{'ANZMODVON'} + $FORM{'ANZMOD'};
	$BEREICHVON = $FORM{'ANZMODVON'}+1;
	$BEREICH = "$BEREICHVON -  $BEREICHBIS";
	}
	else
	{
	$LIMIT = "LIMIT 0, $FORM{'ANZMOD'}";
	$BEREICH = "1 - $FORM{'ANZMOD'}";
	}


####
if ($FORM{'GESCHLECHT'} eq 'weiblich')
	{	
	$WHERE = "WHERE GESCHLECHT = 'Frau'";
	}

if ($FORM{'GESCHLECHT'} eq 'männlich')
	{	
	$WHERE = "WHERE GESCHLECHT = 'Mann'";
	}
	
#####
if ($FORM{'SORTLAND'} eq 'alle Länder')
	{	
	}
	else
	{
	if ( ($FORM{'GESCHLECHT'} eq 'männlich') or ($FORM{'GESCHLECHT'} eq 'weiblich') )
		{		
		$WHERE = "$WHERE AND LAND = '$FORM{'SORTLAND'}'";
		}
		else
		{
		$WHERE = "WHERE LAND = '$FORM{'SORTLAND'}'";
		}
	}
	

if ($FORM{'PLZVON'} and $FORM{'PLZBIS'})
	{	
	$STELLEN1 = length ($FORM{'PLZVON'});
	$STELLEN2 = length ($FORM{'PLZBIS'});	

	if ($STELLEN1 < $STELLEN2)
		{
		$STELLEN2 = 1;
		$FORM{'PLZBIS'} = substr ($FORM{'PLZBIS'} ,0 ,1)
		}
	

	if ($STELLEN1 > $STELLEN2)
		{
		$STELLEN1 = 1;
		$FORM{'PLZVON'} = substr ($FORM{'PLZVON'} ,0 ,1)
		}
		
		
	if ( ($STELLEN1 eq 1) and ($STELLEN2 eq 1) )
		{
	
		if ( ($FORM{'GESCHLECHT'} eq 'männlich') or ($FORM{'GESCHLECHT'} eq 'weiblich') or ($FORM{'SORTLAND'} != 'alle Länder') )
			{		
			$WHERE = "$WHERE AND LEFT(POSTLEITZAHL,1) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,1) <= '$FORM{'PLZBIS'}'";
			}
			else
			{
			$WHERE = "WHERE LEFT(POSTLEITZAHL,1) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,1) <= '$FORM{'PLZBIS'}'";
			}
		}
	

	if ( ($STELLEN1 eq 2) and ($STELLEN2 eq 2) )
			{
			if ( ($FORM{'GESCHLECHT'} eq 'männlich') or ($FORM{'GESCHLECHT'} eq 'weiblich') or ($FORM{'SORTLAND'} != 'alle Länder') )
				{					
				$WHERE = "$WHERE AND LEFT(POSTLEITZAHL,2) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,2) <= '$FORM{'PLZBIS'}'";
				}
				else
				{
				$WHERE = "WHERE LEFT(POSTLEITZAHL,2) >= '$FORM{'PLZVON'}' AND LEFT(POSTLEITZAHL,2) <= '$FORM{'PLZBIS'}'";				
				}
			}
	}


if ($FORM{'ALTERBIS'} and $FORM{'ALTERBIS'})
	{
	if ($WHERE)
		{
		$WHERE = "WHERE GEBURTSJAHR = '1974'";				
		}
		else
		{
		$WHERE = "$WHERE AND GEBURTSJAHR = '1974'";				
		}
	}
	
	
if ($FORM{'SUCHBEGRIFF'})
	{
	$WHERE = "WHERE ID LIKE '%$FORM{'SUCHBEGRIFF'}%' or VORNAME LIKE '%$FORM{'SUCHBEGRIFF'}%' or NACHNAME LIKE '%$FORM{'SUCHBEGRIFF'}%' 
			or EMAIL LIKE '%$FORM{'SUCHBEGRIFF'}%' or WOHNORT LIKE '%$FORM{'SUCHBEGRIFF'}%' or BERUF LIKE '%$FORM{'SUCHBEGRIFF'}%' 
			or HOBBYS LIKE '%$FORM{'SUCHBEGRIFF'}%' or BESCHREIBUNG1 LIKE '%$FORM{'SUCHBEGRIFF'}%' or BESCHREIBUNG2 LIKE '%$FORM{'SUCHBEGRIFF'}%'";
	}


	
$sqlbefehl="select ID, VORNAME, NACHNAME, GESCHLECHT, WOHNORT, SHOWPOS FROM `$TABELLENNAME` $WHERE $ORDERBY $LIMIT";

if ($FORM{'SHOWDATENMOD3'} eq '1')
	{
#	print "---$FORM{'BENUTZERNAME'}---<br>";
#	$sqlbefehl="select CASTINGKARTEILOG.SHOWNID, $TABELLENNAME.VORNAME, $TABELLENNAME.NACHNAME, $TABELLENNAME.GESCHLECHT, $TABELLENNAME.WOHNORT, $TABELLENNAME.SHOWPOS FROM `$TABELLENNAME`, `CASTINGKARTEILOG` WHERE CASTINGKARTEILOG.BENUTZERNAME = '$FORM{'BENUTZERNAME'}' $LIMIT";
	$sqlbefehl="select SHOWNID FROM `CASTINGKARTEILOG` WHERE BENUTZERNAME = '$FORM{'BENUTZERNAME'}' ORDER BY `SHOWNID` DESC $LIMIT";
	}

#   print "-$sqlbefehl-<br><br>";

$sqlbefehl2="select Count(*) FROM $TABELLENNAME $WHERE";
$sth = $dbh->prepare($sqlbefehl2); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$ERGEBNISSE = $dbrow[0];	
}

print "$sqlbefehl<br><br>";
print "Where:-$WHERE-<br>";


   
   
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$c=$c+1;
$ID = $dbrow[0];	
$SHOWPOS = $dbrow[5];	
	print "<td valign=\"top\">\n";
	$realimage = "$fotourl/$ID.jpg";	
	$image = "$saveurleinfug/$ID.jpg";
	($width,$height) = imgsize($image); 

	$FAKTORBREITE = $BREITEKLEIN/$width;
	$FAKTORBREITE=sprintf("%.2f",$FAKTORBREITE);

	$HOHE = $height*$FAKTORBREITE;
	$HOHE=sprintf("%.0d",$HOHE);
		
	print "<font face=verdana,arial,helvetica size=1 color=000000><center>\n";	

#	print "xx<br><a href=\"javascript: void(0);\" onclick=\"gfenster2('$ANZEIGEN?ID=$ID[$k]$FORM{'CODE'}');\">\n";
	print "<a href=\"javascript:gfenster2('$ANZEIGEN?ID=$ID$FORM{'CODE'}')\">";	
	print "<img src=\"$realimage\" width=$BREITEKLEIN height=$HOHE  border=\"2\" alt=\"\"></a><br>";
	print "<font face=verdana,arial,helvetica size=1 color=ffffff>\n";	
	print "Pos:$SHOWPOS<br>";
	print "$HOHE,$FAKTORBREITE";
	print "</td>\n";

#print "$dbrow[0], $dbrow[1], $dbrow[2], $dbrow[3], $dbrow[4]<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
#print "$c";

if ($c eq 7)
	{
	$c = 0;
	print "</tr>\n\n\n";
	print "<tr align=\"center\">\n";
	}

}
$dbh->disconnect; # Von Datenbank abmelden				
##############################
}
	
	print "</tr>\n\n";
#	print "<tr>\n";
	print "</table></center>\n\n\n";

		

##################### Anzeigenende ##########################################

			
&VORZURUCK;		

	print "</td></tr>";
	print "</table>";
	
	print "<table bgcolor=\"#000000\" width=\"855\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
		print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
		print "Sollten Sie hier keine Personen gefunden haben, so besuchen Sie bitte unsere <a href=\"http://www.flashModels.de\" target=\"_blank\">Hauptseite</a>!<br>";
		print "Dort finden Sie eine grosse Anzahl an Models. (Diese Personen sind nicht bestandteil dieser Kartei!)<br>";
		print "Hier werden jedoch keine Telefonnummern angezeigt. Sollten Sie dort Interesse an einer<br>";
		print "bestimmten Person haben, so setzen Sie sich bitte mit uns in Verbindung!<br><br>";
		print "<a href=\"http://www.flashModels.de\" target=\"_blank\">www.flashModels.de</a><br>";	
		print "Tel. 0178 - 479 98 40 oder 0241-57 91 352";
	print "</td></tr>";
	print "</table>";
   

    print "<center><table bgcolor=$orange width=855 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td bgcolor=\"$orange\">";
	print "<font face=verdana,arial,helvetica size=1 color=000000>";
	print "</td></tr></table><br>";
#	print "$COPYRIGHT&nbsp;<br>\n";
	print "<br>";	


   
   
&logkartei;
   
   
   

   
   
   print "</center>$TEXTHAUPTSEITE<br><br><br><br><br>\n";

   print "\n</body></html>\n";

   exit;
}




sub logkartei{

# Begin the Editing of the Guestbook File
open (FILE,"$LOGKARTEI") || die "Can't Open $LOGKARTEI: $!\n";
@LINESAAA=<FILE>;
close(FILE);
$SIZEAAA=@LINESAAA;

# Open Link File to Output
open (GUEST,">$LOGKARTEI") || die "Can't Open $LOGKARTEI: $!\n";

for ($iaaa=0;$iaaa<=$SIZEAAA;$iaaa++) {
   $_=$LINESAAA[$iaaa];
   if (/<!--begin-->/) { 

      if ($entry_order eq '1') {
         print GUEST "<!--begin-->\n";
      }
   
	  print GUEST "\n";
	  print GUEST "<!--+++++++++++++++++++++++++++++++++++++++++-->\n";
	  print GUEST "<!--a $date-->\n\n";
      print GUEST "\n";
 	 
      print GUEST "<center><table width=700 cellspacing=2 cellpadding=2 border=0>\n";
      print GUEST "<tr>\n";
      print GUEST "<td bgcolor=$dunkel>\n";
		print GUEST "<font face=verdana,arial,helvetica size=1 color=ffff00>";
	print GUEST "<b>$FORM{'BENUTZERNAME'}</b> ";
	print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print GUEST " | $IP |";
	print GUEST "<font face=verdana,arial,helvetica size=1 color=#99ffff>";
	print GUEST "$date|";
	print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print GUEST " Geschlecht :$FORM{'GESCHLECHT'}|<font face=verdana,arial,helvetica size=1 color=ffff00> PLZvon$FORM{'PLZVON'} - PLZ :$FORM{'PLZBIS'}";

	print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffff>";	
	print GUEST "| Personen pro Seite:$FORM{'ANZMOD'}|";
	

	if ($FORM{'SUCHBEGRIFF'} )
		{
	print GUEST " Such:$FORM{'SUCHBEGRIFF'} ";
		}
		
	if ($FORM{'SHOWDATENMOD3'})
		{
	print GUEST "<br><b>zugängliche Daten anzeigen | </b>";
		}
	print GUEST "<font face=verdana,arial,helvetica size=1 color=$mailgelb> <b>$BEREICH</b>";

	if ($FORM{'SHOWBEWERBER'})
		{
	print GUEST "<br><font face=verdana,arial,helvetica size=1 color=$mailgelb>Bewerber angeschaut ID:<b>$FORM{'SHOWBEWERBER'}<br><font face=verdana,arial,helvetica size=1 color=ffffff>$TITETHEMA</b>";
		}

  print GUEST "</td>\n";
  print GUEST "</tr></table></center>";	  

	  print GUEST "<!--e $date-->\n\n\n";	  
	  
      if ($entry_order eq '0') {
         print GUEST "<!--begin-->\n";
      }

   }
   else {
      print GUEST $_;
   }
}

close (GUEST);
}







sub falsepassword {

######### LogDatei ##########################################################
		
		
# Begin the Editing of the Guestbook File
open (FILE,"$LOGFALSE") || die "Can't Open $LOGFALSE: $!\n";
@LINESAAA=<FILE>;
close(FILE);
$SIZEAAA=@LINESAAA;

# Open Link File to Output
open (GUEST,">$LOGFALSE") || die "Can't Open $LOGFALSE: $!\n";

for ($iaaa=0;$iaaa<=$SIZEAAA;$iaaa++) {
   $_=$LINESAAA[$iaaa];
   if (/<!--begin-->/) { 

      if ($entry_order eq '1') {
         print GUEST "<!--begin-->\n";
      }
   
	  print GUEST "\n";
	  print GUEST "<!--+++++++++++++++++++++++++++++++++++++++++-->\n";
	  print GUEST "<!--a $date-->\n\n";
      print GUEST "\n";
 	 
      print GUEST "<center><table width=700 cellspacing=2 cellpadding=2 border=0>\n";
      print GUEST "<tr>\n";
      print GUEST "<td bgcolor=$dunkel>\n";
      print GUEST "<font face=verdana,arial,helvetica size=1 color=Red>Fehlgeschlagen: ";
      
	  print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffc8>";
	  print GUEST " [IP:$ENV{'REMOTE_ADDR'}]\n";
	  
      print GUEST "<font face=verdana,arial,helvetica size=1 color=ffff00>";
	  print GUEST "$date";
      print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	  print GUEST " [Bname:$FORM{'BENUTZERNAME'}] [Passwort:$FORM{'PASSWORT'}]";

	  print GUEST "</td>\n";
	  print GUEST "</tr></table></center>";	  

	  print GUEST "<!--e $date-->\n\n\n";	  
	  
      if ($entry_order eq '0') {
         print GUEST "<!--begin-->\n";
      }

   }
   else {
      print GUEST $_;
   }
}

close (GUEST);
		
		
		
######### Ende LogDatei ##########################################################		

   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>";
   print "<link href=\"$styles\" rel=\"stylesheet\" type=\"text/css\">";
   print "</head>\n";
   print "<body bgcolor=$hg>\n";
   
    print "<form method=\"POST\" action=\"$cgiurl\">\n";   

	print "<div align=\"center\">";
	print "<table border=\"1\" cellspacing=\"0\" cellpadding=\"0\" bordercolor=\"Black\" style=\"border-collapse: collapse\">\n";
	print "	<tr>\n";
	print "	<td>\n";


    print "<table background=\"$TABELLEHG\" width=530 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td class=\"textfeld\">\n";

	print "$TEXT200";

	print "$TEXT105";
	
	print "</td></tr>";
	print "</table>";

 
	  

	print "</td>\n";
	print "</tr>\n";
	print "</table>\n";	  
	  

#-------------------------------------   


$FORM{'passwort'} ='ok'; #hilfsvariable gesetzt!
	print "<input type=hidden name=\"passwort\"";
    print "value=\"$FORM{'passwort'}\">\n";	
	

#-------------------------------------   
   print "</form>$TEXTHAUPTSEITE";
   

   print "</center><br><br><br><br><br>\n";

   print "\n</body></html>\n";

   exit;
}

sub JAVASCRIPT{
print "<script language=\"JavaScript\">\n";
print "<!--\n";
print "function sedcardfenster(datei20)\n";
print "{\n";
print "grafik20=window.open(datei20,\"sedcardfenster\", \"width=950,height=650,scrollbars,resizable=yes\");\n";
print "grafik20.focus();\n";
print "return;\n";
print "}\n";
print "//-->\n";

print "<!--\n";
print "function gfenster(datei)\n";
print "{\n";
print "grafik=window.open(datei,\"datenfenster2\", \"width=1000,height=700,scrollbars,resizable=yes\");\n";
print "grafik.focus();\n";
print "}\n";
print "//-->\n";


print "<!--\n";
print "function pophtml2(src,winw,winh)\n";
print "{\n";
#print "grafik=window.open(src,\"popfenster2\", \"width=\"+winw+\",height=\"+winh\");\n";
print "grafik=window.open(src,\"popfenster2\", \"scrollbars,resizable=yes,width=800,height=600\");\n";
print "grafik.focus();\n";
print "}\n";
print "//-->\n";

print "</script>\n";
#print "<script language=\"JavaScript\" src=\"../../../casting/styles/skript.js\" type=\"text/javascript\"></script>";   
}

sub JAVASCRIPT2{
print "<script language=\"JavaScript\">\n";

print "<!--\n";
print "function gfenster(datei)\n";
print "{\n";
print "grafik=window.open(datei,\"datenfenster2\", \"width=1000,height=700,scrollbars,resizable=yes\");\n";
print "grafik.focus();\n";
print "}\n";
print "//-->\n";

print "<!--\n";
print "function pophtml2(src,winw,winh)\n";
print "{\n";
#print "grafik=window.open(src,\"popfenster2\", \"width=\"+winw+\",height=\"+winh\");\n";
print "grafik=window.open(src,\"popfenster2\", \"scrollbars,resizable=yes,width=800,height=600\");\n";
print "grafik.focus();\n";
print "}\n";
print "//-->\n";


print "</script>\n";

#print "<link href=\"../../../casting/styles/castingedit.css\" rel=\"stylesheet\" type=\"text/css\">";		
#print "<script language=\"JavaScript\" src=\"../../../casting/styles/skript.js\" type=\"text/javascript\"></script>";   

}


sub VORZURUCK
	{

$sqlbefehl="select Count(*) FROM $TABELLENNAME";
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$GESMATEINTRAGE = $dbrow[0];	
}

#####
$sqlbefehl="select Count(*) FROM $TABELLENNAME WHERE GESCHLECHT = 'Mann'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$MANNEINTRAGE = $dbrow[0];	
}

#####
$sqlbefehl="select Count(*) FROM $TABELLENNAME WHERE GESCHLECHT = 'Frau'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

while (@dbrow = $sth->fetchrow_array)
{
$FRAUEINTRAGE = $dbrow[0];	
}
$dbh->disconnect; # Von Datenbank abmelden		
###########################
	

    print "<form method=\"POST\" action=\"$cgiurl\">\n";	
	print "<br><table bgcolor=\"$dunkel\" width=\"850\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr>";
	print "<td width=\"600\" valign=\"top\" bgcolor=\"$mailgelb\">";

	print "<font face=verdana,arial,helvetica size=2 color=000000>";	
	print "Es befinden sich derzeit insgesamt <b>$GESMATEINTRAGE</b> Personen in der Datenbank!<br>";
	print "Davon <b>Männer: $MANNEINTRAGE</b> und <b>Frauen: $FRAUEINTRAGE</b><br>";	
	
	
	print "<font face=verdana,arial,helvetica size=4 color=000000>";
	print "<center><b>$BEREICH</b></center>";
	print "</td>";
	

	print "<td bgcolor=\"silver\">";
	print "<center>";
   print "<input type=button value=\"<<&nbsp;zurück\" onClick=history.back()>&nbsp;\n";	

	print "<input type=submit value=\"weiter&nbsp;>>\">\n";	

#	print "<font face=verdana,arial,helvetica size=5 color=000000>";
#	print "<b>Ende</b>";

	print "</center>";
#-------------------------------------   

	print "<input type=hidden name=\"main0\"";
    print "value=\"$FORM{'main0'}\">\n";	
	print "<input type=hidden name=\"willkommen\" value=\"$FORM{'willkommen'}\"> \n";	
	print "<input type=hidden name=\"PASSWORT\"";
    print "value=\"xxx\">\n";	
	
	print "<input type=hidden name=\"CODE\" value=\"$FORM{'CODE'}\"> \n";	
	print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		

	print "<input type=hidden name=\"FOTO\" value=\"$FORM{'FOTO'}\"> \n";	
	print "<input type=hidden name=\"TEXT\" value=\"$FORM{'TEXT'}\"> \n";	
	
	print "<input type=hidden name=\"VORNAMEANZ\" value=\"$FORM{'VORNAMEANZ'}\"> \n";
	print "<input type=hidden name=\"NACHNAMEANZ\" value=\"$FORM{'NACHNAMEANZ'}\"> \n";	
	print "<input type=hidden name=\"POSTLEITZAHLANZ\" value=\"$FORM{'POSTLEITZAHLANZ'}\"> \n";	
	print "<input type=hidden name=\"WOHNORTANZ\" value=\"$FORM{'WOHNORTANZ'}\"> \n";	
	print "<input type=hidden name=\"LANDANZ\" value=\"$FORM{'LANDANZ'}\"> \n";	
	print "<input type=hidden name=\"GEBUTRSJAHRANZ\" value=\"$FORM{'GEBUTRSJAHRANZ'}\"> \n";	
	print "<input type=hidden name=\"BERUFANZ\" value=\"$FORM{'BERUFANZ'}\"> \n";	
	print "<input type=hidden name=\"HOBBYSANZ\" value=\"$FORM{'HOBBYSANZ'}\"> \n";	
 	print "<input type=hidden name=\"STERNZEICHENANZ\" value=\"$FORM{'STERNZEICHENANZ'}\"> \n";	
	print "<input type=hidden name=\"KORPERGROSSEANZ\" value=\"$FORM{'KORPERGROSSEANZ'}\"> \n";	
	print "<input type=hidden name=\"GEWICHTANZ\" value=\"$FORM{'GEWICHTANZ'}\"> \n";	
	print "<input type=hidden name=\"HAUTTYPANZ\" value=\"$FORM{'HAUTTYPANZ'}\"> \n";	
	print "<input type=hidden name=\"HAARFARBEANZ\" value=\"$FORM{'HAARFARBEANZ'}\"> \n";	
	print "<input type=hidden name=\"HAARLANGEANZ\" value=\"$FORM{'HAARLANGEANZ'}\"> \n";	
	print "<input type=hidden name=\"AUGENFARBEANZ\" value=\"$FORM{'AUGENFARBEANZ'}\"> \n";	
	print "<input type=hidden name=\"SCHUHGROSSEANZ\" value=\"$FORM{'SCHUHGROSSEANZ'}\"> \n";	
	
	print "<input type=hidden name=\"GESCHLECHT\" value=\"$FORM{'GESCHLECHT'}\">\n";	
	print "<input type=hidden name=\"PASSWORT\" value=\"$FORM{'PASSWORT'}\">\n";	
	print "<input type=hidden name=\"ALTERBIS\" value=\"$FORM{'ALTERBIS'}\">\n";
	print "<input type=hidden name=\"ALTERVON\" value=\"$FORM{'ALTERVON'}\">\n";

	print "<input type=hidden name=\"KORPERGROSSEVON\" value=\"$FORM{'KORPERGROSSEVON'}\"> \n";	
	print "<input type=hidden name=\"KORPERGROSSEBIS\" value=\"$FORM{'KORPERGROSSEBIS'}\"> \n";		
	
	print "<input type=hidden name=\"GEWICHTVON\" value=\"$FORM{'GEWICHTVON'}\"> \n";
	print "<input type=hidden name=\"GEWICHTBIS\" value=\"$FORM{'GEWICHTBIS'}\"> \n";	

	print "<input type=hidden name=\"PLZVON\" value=\"$FORM{'PLZVON'}\">\n";
	print "<input type=hidden name=\"PLZBIS\" value=\"$FORM{'PLZBIS'}\">\n";
	print "<input type=hidden name=\"SORTLAND\" value=\"$FORM{'SORTLAND'}\"> \n";
	print "<input type=hidden name=\"SORTIERUNG\" value=\"$FORM{'SORTIERUNG'}\"> \n";	
	print "<input type=hidden name=\"SUCHBEGRIFF\" value=\"$FORM{'SUCHBEGRIFF'}\"> \n";
	print "<input type=hidden name=\"ANZEIGE\" value=\"$FORM{'ANZEIGE'}\"> \n\n";
	print "<input type=hidden name=\"SHOWDATENMOD3\" value=\"$FORM{'SHOWDATENMOD3'}\"> \n\n";	

	print "<input type=hidden name=\"SHOWBEWERBER\" value=\"$FORM{'SHOWBEWERBER'}\"> \n";	
		
	$ANZMODVON = $FORM{'ANZMOD'} + $FORM{'ANZMODVON'};
	print "<input type=hidden name=\"ANZMODVON\" value=\"$ANZMODVON\"> \n";	

	print "<input type=\"hidden\" name=\"SQLLEER\" value=\"$FORM{'SQLLEER'}\">	";
	
	$x = $FORM{'ANZMOD'};

	print "<font face=verdana,arial,helvetica size=2 color=000000>";


	print "<table width=300 cellspacing=\"2\" cellpadding=\"2\" border=\"0\">";
	print "<tr>";
	print " <td align=\"right\"><font face=verdana,arial,helvetica size=2 color=000000><b>Anzahl pro Seite : </b></td>";
    print " <td><select name=\"ANZMOD\" size=\"1\"><option selected>$x<option>14<option>35<option>70<option>140<option>210</select></td>";
	print "</tr>";
	print "</table>";


	print "<input type=hidden name=\"STARTMOD\" value=\"$stopp\">\n";			
	
	
#-----------------------------------------------------------------------   
   print "</form>";


    print "<form method=\"POST\" action=\"$cgiurl\">\n";
	print "<center><input type=submit value=\"&nbsp;&nbsp;&nbsp;zum&nbsp;Hauptmenü&nbsp;&nbsp;&nbsp;\" ></center>\n";

	print "</td>";
	print "</tr>";
	print "</table>";


	print "<input type=hidden name=\"CODE\" value=\"$FORM{'CODE'}\"> \n";	
	print "<input type=hidden name=\"BENUTZERNAME\" value=\"$FORM{'BENUTZERNAME'}\"> \n";		
	print "<input type=hidden name=\"PASSWORT\" value=\"$FORM{'PASSWORT'}\">\n";	
	print "<input type=hidden name=\"willkommen\" value=\"$FORM{'willkommen'}\"> \n";

	print "<input type=hidden name=\"KORPERGROSSEVON\" value=\"$FORM{'KORPERGROSSEVON'}\"> \n";	
	print "<input type=hidden name=\"KORPERGROSSEBIS\" value=\"$FORM{'KORPERGROSSEBIS'}\"> \n";		
	
	print "<input type=hidden name=\"GEWICHTVON\" value=\"$FORM{'GEWICHTVON'}\"> \n";
	print "<input type=hidden name=\"GEWICHTBIS\" value=\"$FORM{'GEWICHTBIS'}\"> \n";	
	
	print "<input type=hidden name=\"PLZVON\" value=\"$FORM{'PLZVON'}\"> \n";
	print "<input type=hidden name=\"PLZBIS\" value=\"$FORM{'PLZBIS'}\"> \n";
	print "<input type=hidden name=\"SORTLAND\" value=\"$FORM{'SORTLAND'}\"> \n";	
	print "<input type=hidden name=\"ANZMOD\" value=\"$FORM{'ANZMOD'}\"> \n";	
	print "<input type=hidden name=\"ANZEIGE\" value=\"$FORM{'ANZEIGE'}\"> \n";	
	print "<input type=hidden name=\"GESCHLECHT\" value=\"$FORM{'GESCHLECHT'}\">\n";	
	print "</form>";
##############################################---------------------------------------------------------------------				

}



sub PWCHECK
{

# print "Content-type: text/html\n\n";   
################# Passwortcheck ########################################
################
$sqlbefehl="select BENUTZERNAME, PASSWORT, CODE, STATUS, INFOFELD, POS FROM $TABELLENNAMEPW";
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

$LOGIN = 0;
while (@dbrow = $sth->fetchrow_array)
{
$BENUTZERNAME = $dbrow[0];
$REALPASSWORT = $dbrow[1];
$INFOFELD = $dbrow[4];
$POS = $dbrow[5];

$BENUTZERNAME = lc($BENUTZERNAME);
$BENUTZERNAME =~ s/\ //g; # Leerzeichen entfernen

$FORM{'BENUTZERNAME'} = lc($FORM{'BENUTZERNAME'});
$FORM{'BENUTZERNAME'} =~ s/\ //g; # Leerzeichen entfernen

$FORM{'PASSWORT'} = lc($FORM{'PASSWORT'});
$FORM{'PASSWORT'} =~ s/\ //g; # Leerzeichen entfernen

$REALPASSWORT = lc($REALPASSWORT);
$REALPASSWORT =~ s/\ //g; # Leerzeichen entfernen

#print "$dbrow[0]-$dbrow[1]-$dbrow[2]-$dbrow[3]-$dbrow[4]-$dbrow[5]";

if ( ($FORM{'BENUTZERNAME'} eq $BENUTZERNAME) and ( $FORM{'PASSWORT'} eq $REALPASSWORT) )
	{
	$LOGIN = 1;
	$CODE = $dbrow[2];
	$MODUS = $dbrow[3];
	}

}
$dbh->disconnect; # Von Datenbank abmelden		
################


	if ($LOGIN eq 1)
		{
		}
		else
		{
		&falsepassword
		}
################# Ende Passwortcheck ########################################
}



sub SETFLAG
{

    print "Content-type: text/html\n\n";
#	print "$FLAG2, $FLAG3";
    print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
	print "<html>";
	print "<body bgcolor=\"#$DATEN[6]\" leftmargin=\"0\" topmargin=\"0\" style=\"border: none;\">";

$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden


if ($DATEN[1] eq "mailflag")
{
#$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAGMAIL` = '$DATEN[4]' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
}

if ($DATEN[1] eq "flag2")
{
#$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG2` = '$DATEN[4]' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
}


if ($DATEN[1] eq "mailflag")
{
	if ( ($DATEN[4] eq '1') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAGMAIL` = '1' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

	if ( ($DATEN[4] eq '0') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAGMAIL` = '0' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

}


if ($DATEN[1] eq "showpersondata")
{
	if ( ($DATEN[4] eq '1') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `SHOWFLAG` = '1' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

	if ( ($DATEN[4] eq '0') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `SHOWFLAG` = '0' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

}


if ($DATEN[1] eq "flag2")
{
	if ( ($DATEN[4] eq '1') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG2` = '1' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

	if ( ($DATEN[4] eq '0') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG2` = '0' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

}



if ($DATEN[1] eq "flag3")
{
	if ( ($DATEN[4] eq '1') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG3` = '1' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

	if ( ($DATEN[4] eq '0') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG3` = '0' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

}

if ($DATEN[1] eq "flag4")
{
	if ( ($DATEN[4] eq '1') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG4` = '1' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

	if ( ($DATEN[4] eq '0') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG4` = '0' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}
}
		
if ($DATEN[1] eq "flag5")
{
	if ( ($DATEN[4] eq '1') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG5` = '1' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

	if ( ($DATEN[4] eq '0') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG5` = '0' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}
}

if ($DATEN[1] eq "flag6")
{
	if ( ($DATEN[4] eq '1') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG6` = '1' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}

	if ( ($DATEN[4] eq '0') and ($DATEN[5] = "yes") )
		{
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `FLAG6` = '0' where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'");
		}
}


#### Status überprüfen, ob alle Daten für Kunden zugänglich sind

	$sqlbefehl="select DATENSICHTBAR FROM $CASTINGBEWERBUNGRECHTE where THEMENID = '$DATEN[3]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$RECHTEDATENSICHTBAR = $dbrow[0];				
		}


		
	$sqlbefehl="select FLAG2, FLAG3, FLAG4, FLAG5, FLAGMAIL, FLAG6, SHOWFLAG FROM $CASTINGBEWERBUNG where CASTID = '$DATEN[2]' and THEMENID = '$DATEN[3]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$FLAG2 = $dbrow[0];
		$FLAG3 = $dbrow[1];
		$FLAG4 = $dbrow[2];		
		$FLAG5 = $dbrow[3];			
		$FLAGMAIL = $dbrow[4];
		$FLAG6 = $dbrow[5];			
		$PERSONSHOWDATA = $dbrow[6];				
		}

	if ($FLAGMAIL eq 1)
		{
		$PICMAIL = $PICMAILNO;
		$MAILURL = "$cgiurl?action=mailflag&ID=$DATEN[2]&thema=$DATEN[3]&setflag=0&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";
		}		
		else
		{
		$PICMAIL = $PICMAIL;
		$MAILURL = "$cgiurl?action=mailflag&ID=$DATEN[2]&thema=$DATEN[3]&setflag=1&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";		
		}


	if ($PERSONSHOWDATA eq 1)
		{
		$PICSHOWDATA = $PICSHOWDATAGIF;
		$SHOWDATAURL = "$cgiurl?action=showpersondata&ID=$DATEN[2]&thema=$DATEN[3]&setflag=0&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";
		$PICSHOWDATA2 = $PICSHOWDATAGIF2;

		}		
		else
		{
		$PICSHOWDATA = $PICSHOWDATANOGIF;
		$SHOWDATAURL = "$cgiurl?action=showpersondata&ID=$DATEN[2]&thema=$DATEN[3]&setflag=1&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";		
		$PICSHOWDATA2 = $PICSHOWDATAGIFON2;
#	print "$PICSHOWDATAGIFON2";
		}

	if ($RECHTEDATENSICHTBAR eq 1)
		{		
		$PICSHOWDATA2 = $PICSHOWDATAGIF2;
		}
		
		

	if ($FLAG2 eq 1)
		{
		$PIC2 = $PICFLAG2;
		$URL2 = "$cgiurl?action=flag2&ID=$DATEN[2]&thema=$DATEN[3]&setflag=0&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";
		}		
		else
		{
		$PIC2 = $PICFLAG2NO;
		$URL2 = "$cgiurl?action=flag2&ID=$DATEN[2]&thema=$DATEN[3]&setflag=1&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";		
		}
	

	if ($FLAG3 eq 1)
		{
		$PIC3 = $PICgelbblink;
		$URL = "$cgiurl?action=flag3&ID=$DATEN[2]&thema=$DATEN[3]&setflag=0&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";
		}		
		else
		{
		$PIC3 = $PICgelbaus;
		$URL = "$cgiurl?action=flag3&ID=$DATEN[2]&thema=$DATEN[3]&setflag=1&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";		
		}

	if ($FLAG4 eq 1)
		{
		$PIC4 = $PICgrunblink;	
		$URL4 = "$cgiurl?action=flag4&ID=$DATEN[2]&thema=$DATEN[3]&setflag=0&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";
		}		
		else
		{
		$PIC4 = $PICgrunaus;	
		$URL4 = "$cgiurl?action=flag4&ID=$DATEN[2]&thema=$DATEN[3]&setflag=1&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";		
		}

	if ($FLAG5 eq 1)
		{
		$PIC5 = $PICrotblink;	
		$URL5 = "$cgiurl?action=flag5&ID=$DATEN[2]&thema=$DATEN[3]&setflag=0&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";
		}		
		else
		{
		$PIC5 = $PICrotaus;	
		$URL5 = "$cgiurl?action=flag5&ID=$DATEN[2]&thema=$DATEN[3]&setflag=1&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";		
		}

	if ($FLAG6 eq 1)
		{
		$PIC6 = $PICFLAG6;
		$URL6 = "$cgiurl?action=flag6&ID=$DATEN[2]&thema=$DATEN[3]&setflag=0&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";
		}		
		else
		{
		$PIC6 = $PICFLAG6NO;
		$URL6 = "$cgiurl?action=flag6&ID=$DATEN[2]&thema=$DATEN[3]&setflag=1&change=yes&bgcolor=$DATEN[6]&typ=$DATEN[7]";		
		}
		
		
		
#}

$dbh->disconnect; # Von Datenbank abmelden		
###########################
	



	
if (($DATEN[1] eq "flag2") or ($DATEN[1] eq "flag3") or ($DATEN[1] eq "flag4") or ($DATEN[1] eq "flag5")  or ($DATEN[1] eq "flag6") or ($DATEN[1] eq "mailflag") or ($DATEN[1] eq "showpersondata"))
{	
	print "<div align=\"center\">";

#	print "adsfafd<hr align=\"center\" width=\"80\" size=\"1\" color=\"Fuchsia\" noshade>adfadfs";

	if ($DATEN[7] eq "master")
	{
	print "<img src=\"http://www.flashmodels.de/casting/grafik/fuchsia1-1.gif\" border=\"0\" alt=\"\" width=\"100\" height=\"1\">";
	print "<table bgcolor=\"#000000\" width=\"100\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\" bordercolor=\"Fuchsia\">\n";
	print "<tr>\n";

	print "	<td bgcolor=\"silver\">\n";
	if ($RECHTEDATENSICHTBAR eq 1)
		{
		print "$PICSHOWDATAGIFON";	
		}
		else
		{
		print "<a href=\"$SHOWDATAURL\">";
		print "$PICSHOWDATA";	
		print "</a>";	
		}
	print " </td>\n";	

	print "	<td width=\"25\" bgcolor=\"silver\">\n";
	print "<a href=\"$MAILURL\">";
	print "$PICMAIL";	
	print "</a>";	
	print " </td>\n";	


	print "<td width=\"35\">";
	print "<div align=\"center\">";
	print "<a href=\"$URL2\">";
	print "$PIC2";
	print "</a>";
	print "</div>";	
	print "</td>";

	print "	<td width=\"25\">\n";
	print "<a href=\"$URL6\">";	
	print "$PIC6";
	print "</a>";
	print "</td>";
	
	
	print "</tr>\n";
	print "</table>\n";
	print "</div>\n";
	}
	
	
	print "<div align=\"center\">";
	print "<table border=\"0\">\n";
	print "<tr>\n";

	print "	<td width=\"15\">\n";

	print "$PICSHOWDATA2";

	print " </td>\n";	



	print "	<td width=\"15\">\n";

	print "<a href=\"$URL4\">";
	print "$PIC4";	
	print "</a>";	

	print " </td>\n";	
	print "	<td width=\"15\">\n";

	print "<a href=\"$URL\">";
	print "$PIC3";
	print "</a>";

	print "	</td>\n";
	print "	<td width=\"15\">\n";
		
	print "<a href=\"$URL5\">";
	print "$PIC5";	
	print "</a>";	

	print "	</td>\n";
	print "</tr>\n";
	print "</table>\n";
	print "</div>\n";

}
else
{

	print "<div align=\"center\">";
	print "<table bgcolor=\"$dunkel\" width=\"480\" height=\"250\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr>";
	print "<td width=\"400\" valign=\"top\" bgcolor=\"$mailgelb\">";
	print "<font face=verdana,arial,helvetica size=4 color=000000>";
	print "<center><b>Die Markierung wurde geändert</b></center><br>";

	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<b>Erst nachdem die ursprüngliche Seite von Ihnen aktualisiert wurde ist die Änderung sichtbar!</b><br><br><br>";

	print "<div align=\"center\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=#000000><b>Fenster schliessen</b></a><br><br>PersonenID: $DATEN[2]</div><br><br>";	
	print "<font face=verdana,arial,helvetica size=1 color=000000>";
	print "$DATEN[2], $DATEN[3], $DATEN[4]";
	print "</td>";
	print "</tr>";
	print "</table>";
	print "</div>";
}
	print "</body>";
	print "</html>	";
exit;
}



	
sub infotext
{
################
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden

	$sqlbefehl="select BENUTZERNAME FROM $TABELLENNAMEPW WHERE CODE = '$DATEN[1]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$CBENUTZERNAME = $dbrow[0];
		}



	if ($FORM{'SAVEINFOTEXT'} eq 1)
		{   
		if ($DATEN[4] eq "kontaktinfo")
			{
			$dbh->do("UPDATE `$TABELLENNAMEPW` SET `INFOFELD` = '$FORM{'INFOTEXT'}' where BENUTZERNAME = '$DATEN[3]'");
			}
			else
			{
			$dbh->do("UPDATE `$THEMANAME` SET `INFOTEXT` = '$FORM{'INFOTEXT'}' where ID = '$DATEN[3]'");
			}
		}

	$sqlbefehl="select TITEL, ANZEIGESTATUS, INFOTEXT FROM $THEMANAME WHERE ID = '$DATEN[3]'";


if ($DATEN[4] eq "kontaktinfo")
	{
	$sqlbefehl="select BENUTZERNAME, PASSWORT, INFOFELD FROM $TABELLENNAMEPW WHERE BENUTZERNAME = '$DATEN[3]'";
	}
	
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$TITETHEMA = $dbrow[0];
		$ANZEIGESTATUS = $dbrow[1];
		$INFOTEXT = $dbrow[2];		
		}
	$dbh->disconnect; # Von Datenbank abmelden		

   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>";
	&JAVASCRIPT;   
   print "</head>\n";


   print "<body bgcolor=\"#000000\" text=ffffff link=000000 vlink=ffff00 alink=ffff00>\n";
#  print "$sqlbefehl<br>$query_string<br>";

if ( ($TITETHEMA eq '') and ($DATEN[1] != $mastersession) )
{
	print "<font face=verdana,arial,helvetica size=3 color=\"red\">";		
	print "<b>Fehler!</b><br><br>";
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";	
	print "der Benutzername bzw. die ThemenID '$DATEN[3]' wurde nicht gefunden!<br><br>";

	print "Eine Speicherung ist leider nicht möglich.";

	print "<br><br><br><br><br><br>";
	print "<div align=\"center\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=\"#ffffff\"><b>Fenster schliessen</b></a></div>";	
}###
else
{###


if ( ($CBENUTZERNAME) or ($DATEN[1] = $mastersession) )
{   
   
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";		

if ($DATEN[4] eq "kontaktinfo")
	{
	print "<b>Kontakt - Infofeld für Benutzername \"$DATEN[3]\"</b><br>";
	print "Hier sollen alle Kontaktdaten für \"$DATEN[3]\" eingetragen werden, es können also auch mehrere Ansprechpartner vorhanden sein, die sich mit dem selben Passwort einloggen!";
	}
	else
	{
	print "<b>Infofeld zum Thema:</b> (ID: $DATEN[3])<br>";
    print "<font color=\"ffff00\">$TITETHEMA</font>";
	}


	print "<table width=\"550\" border=\"0\" cellspacing=\"5\" cellpadding=\"5\">\n";
    print "<form method=\"POST\" action=\"$cgiurl?$query_string\">\n";   
	print "	<tr>\n";

	print "<td>";
	if ($FORM{'SAVEINFOTEXT'} eq 1)
		{   
		print "<font face=verdana,arial,helvetica size=2 color=\"lime\">";		
	    print "<b>Der Infotext wurde gespeichert!</b>";
		print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";			
	    }
	print "&nbsp;</td>";

	print "<td width=\"180\">";	
	print "<div align=\"center\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=\"#ffffff\"><b>Fenster schliessen</b></a></div>";	
	print "</td>";
			
	print "	<td align=\"right\" bgcolor=\"green\" width=\"1\">";
	print "<input type=submit value=\"Infotext&nbsp;speichern\"\n";	
	print "</td>\n";
	print "	</tr>\n";
	print "	</table>\n";


$bgcolor = "#ffffff";

if ($DATEN[4] eq "kontaktinfo")
	{
	$bgcolor = "#ffff11";
	}


	print "<textarea cols=\"80\" rows=\"25\" name=\"INFOTEXT\" style=\"color: #000000; font-size: 12px; background: $bgcolor;\">";

if ($FORM{'SAVEINFOTEXT'} eq 1)
	{   
	}
	else
	{
	if ($DATEN[4] eq "kontaktinfo")
		{
		}
		else
		{
		print "$nurdatum, $CBENUTZERNAME: \n";
		print "\n---------------------------------\n";
		}
	}

	print "$INFOTEXT";
	print "</textarea>";
	print "<input type=hidden name=\"SAVEINFOTEXT\" value=\"1\">\n";	
if ($DATEN[4] eq "kontaktinfo")
	{
	print "<input type=hidden name=\"TYP\" value=\"KONTAKTINFO\">\n";		
	}
	print "</form>";

}
else
{
	print "<font face=verdana,arial,helvetica size=2 color=\"red\"><br><br><br>";		
	print "<b>Error, der Code '$CBENUTZERNAME' konnte keinem Benutzer zugeordnet werden!</b>";
}


}###

    print "\n</body></html>\n";


exit;
}

sub add
{
################
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden

	$sqlbefehl="select BENUTZERNAME FROM $TABELLENNAMEPW WHERE CODE = '$DATEN[1]'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$CBENUTZERNAME = $dbrow[0];
		}


	$sqlbefehl="select MAX(ID), MAX(ANZPOS) FROM $THEMANAME";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$MAXID = $dbrow[0];
		$NEWID = $MAXID + 1;
		$MAXANZPOS = $dbrow[1];
		$NEWANZPOS = $MAXANZPOS + 3;
		}
		


if ($FORM{'SAVETHEMA'})
	{
	if ( ($FORM{'KUNDENNAME'} eq '') or ($FORM{'KUNDENNAME'} eq 'bitte wählen') or ($FORM{'TITELTHEMA'} eq '') or ($FORM{'ANSPRECHPARTNER'} eq '') or ($FORM{'ANSPRECHPARTNEREMAIL'} eq ''))
		{
		$FELDER = 1;
		}
		else
		{
		$dbh->do("INSERT INTO `$THEMANAME` 
		( `ID`, `ANZPOS` , `SHOWNOT`, `TOPHTML` , `BOTTOMHTML` , `TOPTEXT` , `TITEL` , `NEW` , `ANZEIGESTATUS` , `INHALT`, `INFOFELD`, `COUNTER`) 
	    VALUES 
		('$FORM{'THEMAID'}', '$NEWANZPOS', '1', '', '', '', '$FORM{'TITELTHEMA'}', '', '1', '', '', '')	");

		$dbh->do("INSERT INTO `$CASTINGBEWERBUNGRECHTE` 
		(`THEMENID`, `BEWERBERSICHTBAR`, `KUNDENNAME`, `ANSPRECHPARTNER`, `KUNDENEMAIL`) 
	    VALUES 
		('$FORM{'THEMAID'}', '1', '$FORM{'KUNDENNAME'}', '$FORM{'ANSPRECHPARTNER'}', '$FORM{'ANSPRECHPARTNEREMAIL'}')	");
		}
	}
	$sqlbefehl="select BENUTZERNAME FROM `$TABELLENNAMEPW` ORDER BY `POS` DESC";
#	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
	{
	$SQLKUNDENNAME = "$SQLKUNDENNAME<option>$dbrow[0]";
	}

		
$dbh->disconnect; # Von Datenbank abmelden		
################


   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>";
	&JAVASCRIPT;   
   print "</head>\n";


   print "<body bgcolor=\"#000000\" text=ffffff link=000000 vlink=ffff00 alink=ffff00>\n";
#	print "$sqlbefehl<br>$query_string<br>$CBENUTZERNAME<br>";
#	print "$MAXID, $MAXANZPOS";
	print "<table width=\"100%\" border=\"0\" cellspacing=\"1\" cellpadding=\"1\">\n";
	print "	<tr>\n";

	print "<td>";
	print "<td width=\"180\">";	
	print "<div align=\"center\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=\"#ffffff\"><b>Fenster schliessen</b></a></div>";	
	print "</td>";


	print "	</tr>\n";
	print "	</table>\n";


if ($CBENUTZERNAME)
{   
   
if ($FORM{'SAVETHEMA'})
	{
	if ($FELDER eq 1)
		{
		print "<font face=verdana,arial,helvetica size=4 color=\"red\">Fehler!";		
		print "<font face=verdana,arial,helvetica size=2 color=\"ffff00\">";		
		print "<br><br>Bitte alle Felder ausfüllen, das Thema wurde <b>nicht</b> gespeichert!<br><br>";
		}
		else
		{
		print "<font face=verdana,arial,helvetica size=4 color=\"lime\">";		
		print "Das Thema wurde hinzugefügt bzw. gespeichert!";
		$save = 1;
		}
	}

	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";		

if ($save != 1)
{###	
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\"><br>";		
	print "Hier kann ein Thema für die Castingkartei eingerichtet werden.";
	print "Zunächst ist es wichtig, dass der Benutzername mit dem Passwort vorhanden ist.";
	print "Hat ein Kunde noch keine Zugangsdaten wie Benutzername und Passwort dann muß dies zunächst eingerichtet werden!";
	print "&nbsp;&nbsp;&nbsp;[<a href=\"$BNurl\" style=\"color: #ffff00;\">Benutzername/Zugang jetzt einrichten</a>]<br><br>";	

	print "Ist der entsprechende Benutzer eingerichtet, so kann jetzt das nachfolgende Formular ausgefüllt werden.<br><br>";

	print "<table width=\"750\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">\n";
    print "<form method=\"POST\" action=\"$cgiurl?$query_string\">\n";   

	print "	<tr>\n";

	print "<td width=\"200\" bgcolor=\"gray\">";	
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";		
	print "<b>Themen ID</b>:<br>";	
	print "<font face=verdana,arial,helvetica size=1 color=\"ffffff\">";		
#	print "Z.B. Personen für Fotoshooting am 20.12.06 gesucht";
	print "</td>";

	print "<td bgcolor=\"gray\">";
	print "<b>$NEWID</b>";
	print "<input type=\"hidden\" name=\"THEMAID\" size=\"10\" value=\"$NEWID\">";
	print "</td >";

	print "	</tr>\n";

	print "	<tr>\n";
	print "<td bgcolor=\"gray\">";	
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";		
	print "<b>Benutzername</b>:<br>";	
	print "<font face=verdana,arial,helvetica size=1 color=\"ffffff\">";		
	print "Der Benutzername sieht dann die Personen in dem Thema. Sollte Ihr gewünschter Benutzername hier nicht enthalten sein, so muss dieser erst eingerichtet werden!";
	print "</td>";

	print "<td bgcolor=\"gray\">";					
	print "<font face=verdana,arial,helvetica size=2 color=000000>\n";
	print "<select name=\"KUNDENNAME\" size=\"1\">";
	print "<option selected>";
	if ($FORM{'KUNDENNAME'})
		{
		print "$FORM{'KUNDENNAME'}";
		}
		else
		{
		print "bitte wählen";	
		}
	
	print "<option>$KUNDENNAME$SQLKUNDENNAME";
	print "</select>	";

	print "&nbsp;&nbsp;&nbsp;[<a href=\"$BNurl\" style=\"color: #ffff00;\">Benutzername/Zugang einrichten</a>]";	
	
	print "</td>";
	print "	</tr>\n";	
	
	
	print "	<tr>\n";
	print "<td width=\"200\" bgcolor=\"gray\">";	
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";		
	print "<b>Überschrift des Themas</b>:<br>";	
	print "<font face=verdana,arial,helvetica size=1 color=\"ffffff\">";		
	print "Z.B. Personen für Fotoshooting am 20.12.06 gesucht<br>";
	print "Diese Überschrift wird in der Castingkartei angezeigt!";
	print "</td>";

	print "<td bgcolor=\"gray\">";
	print "<input type=\"text\" name=\"TITELTHEMA\" value=\"$FORM{'TITELTHEMA'}\" size=\"60\">";
	print "</td >";
	print "	</tr>\n";


	print "	<tr>\n";
	print "<td width=\"200\" bgcolor=\"gray\">";	
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";		
	print "<b>Ansprechpartner</b>:<br>";	
	print "<font face=verdana,arial,helvetica size=1 color=\"ffffff\">";		
	print "Hier bitte die Person angeben, die sich später einloggt, z.B. Mario Müller, oder Frau Schmidt etc.<br>";
	print "</td>";

	print "<td bgcolor=\"gray\">";
	print "<input type=\"text\" name=\"ANSPRECHPARTNER\" value=\"$FORM{'ANSPRECHPARTNER'}\" size=\"40\">";
	print "</td >";
	print "	</tr>\n";

	print "	<tr>\n";
	print "<td width=\"200\" bgcolor=\"gray\">";	
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";		
	print "<b>eMailadresse des Ansprechpartners</b>:<br>";	
	print "<font face=verdana,arial,helvetica size=1 color=\"ffffff\">";		
	print "Hier bitte die eMail des Ansprechpartners eintragen.<br>";
	print "</td>";

	print "<td bgcolor=\"gray\">";
	print "<input type=\"text\" name=\"ANSPRECHPARTNEREMAIL\" value=\"$FORM{'ANSPRECHPARTNEREMAIL'}\" size=\"40\">";
	print "</td >";
	print "	</tr>\n";

	
	print "	</table>\n";

	print "<br><br>";

	print "<input type=\"hidden\" name=\"SAVETHEMA\" size=\"10\" value=\"1\">";
	print "<input type=submit value=\"Thema&nbsp;speichern\"\n";	
}
else
{
	print "<br><br><br>Damit dieses Thema in der Castingkartei sichtbar ist, muss diese nur aktualisiert werden. Dazu jetzt bitte in der Kartei auf <b>Reset/zurücksetzen</b> oder <b>aktualisieren</b> klicken!<br><br>";
	print "<br><br><br><div align=\"center\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=\"#ffffff\"><b>Fenster schliessen</b></a></div>";	
}

}

    print "\n</body></html>\n";


exit;
}