#!/usr/bin/perl
#Module
use DBI;
use File::Copy;
no utf8;
#binmode STDOUT, ":utf8";
#use Image::Size;
use GD;

use CGI::Carp qw(fatalsToBrowser);

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


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



# Set Variables

$SHOWPREMIUMNOW = 1; # Premium Mitgliedschaft möglich

#$HOMEURL = "http://85.214.65.218/1flashmodels-de";
$HOMEURL = "http://www.flashmodels.de";

#$cgiurl = "http://www.flashmodels.de/casting/cgi-bin/castingedit.pl";
$cgiurl = "$HOMEURL/casting/cgi-bin/castingedit.pl";
$REQTEXT = "include/castingedit_text.inc.pl";

$REALHT = "$DOCROOT/1flashmodels-eu";		# htacces usw.

$cgicastingform = "$HOMEURL/casting/cgi-bin/castingform.pl";
$KANZEIGEN = "$HOMEURL/casting/cgi-bin/karteianzeigen.pl";
$loginurl = "$HOMEURL/casting/cgi-bin/login.pl";

#$HOMEURL ="http://www.flashModels.de";
$REAL ="$DOCROOT/1flashmodels-de";
$AGB = "http://www.flashModels.de/agb/";

$CONTACTURL = "$HOMEURL/casting/contact.php";

$guestbookreal = "$DOCROOT/1flashmodels-de/casting/kartei/casting/castingedit.html";
$LOGFILE = "$DOCROOT/1flashmodels-de/casting/kartei/casting/castinglog.html";
$LOGKARTEI = "$DOCROOT/1flashmodels-de/casting/kartei/log/logkartei.html";

$skripturlx = "http://www.flashmodels.de/casting/cgi-bin/castingeinfug.pl";

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

$UPLOADURL ="http://www.flashmodels.de/casting/castingfileuploadform.php";
$UPLOADURL ="$HOMEURL/casting/castingfileuploadform.php";

$DELPICURL ="$HOMEURL/casting/castingfileupload.php";

$DELPICURL = "$DOCROOT/1flashmodels-de/casting/kartei/foto/";
$DELETEURL ="$HOMEURL/casting/cgi-bin/castingdelete.pl";

$picurl = "$HOMEURL/casting/kartei/foto";
$realpicurltemp = "$REAL/casting/kartei/temp-foto";
$picurltemp = "$HOMEURL/casting/kartei/temp-foto";

$picuploadurlmodel = "$HOMEURL/bewerben/bewerbungsformular.php";

$fotourl = "$HOMEURL/casting/kartei/foto";

$phpfotourl = "http://www.flashModels.de/casting/castingfoto.php";
#$phpfotourl = "http://85.214.65.218/1flashmodels-de/casting/castingfoto.php";

$NEW = "<img src=\"http://www.flashModels.de/ger/graf/new2.gif\" align=\"middle\" width=\"10\" height=\"25\" border=\"0\" alt=\"\">";

$NEWHORI = "<img src=\"http://www.flashModels.de/ger/graf/new3-hori.gif\" align=\"middle\" width=\"30\" height=\"10\" border=\"0\" alt=\"\">";

$HGPIC = "http://www.flashModels.de/casting/grafik/casting-hintergrund.jpg";
$TABELLEHG = "http://www.flashModels.de/casting/grafik/castingtext-hintergrund.jpg";
$HGGRUN = "http://www.flashModels.de/casting/grafik/hg-grun.jpg";
$HGGRUNTOP = "http://www.flashModels.de/casting/grafik/hg-grun-top.jpg";
$HGGRUNTOP2 = "http://www.flashModels.de/casting/grafik/hg-grun-top2.jpg";

$HGBLACK = "http://www.flashModels.de/casting/grafik/hg-black.jpg";
$HGGOLD = "http://www.flashModels.de/casting/grafik/hg-gold.jpg";
$HGGOLDTOP = "http://www.flashModels.de/casting/grafik/hg-gold-top.jpg";
$HGROT = "http://www.flashModels.de/casting/grafik/hg-rot.jpg";
$HGROTTOP = "http://www.flashModels.de/casting/grafik/hg-rot-top.jpg";
$HGROTTOP2 = "http://www.flashModels.de/casting/grafik/hg-rot-top2.jpg";

$styles = "http://www.flashModels.de/casting/styles/castingkartei.css";


$pfeilurl ="http://www.flashmodels.de/ger/graf/pfeill.gif";
$FLAGEN = "http://www.flashModels.de/ger/graf/flags/en-25.gif";


$GOTOURL= "$HOMEURL/cgi-bin/goto.pl";
$date_command = "/bin/date";

$DOT ="http://www.flashmodels.de/ger/graf/dot.gif";

$ACHTUNG = "<img src=\"http://www.flashmodels.de/casting/grafik/achtung.gif\" border=\"0\" alt=\"\">";
$DELETEPIC = "<img src=\"http://www.flashmodels.de/casting/grafik/delete.gif\" border=\"0\" alt=\"\">";
$DELETEPICBIG = "<img src=\"http://www.flashmodels.de/casting/grafik/delete_gross.gif\" border=\"0\" alt=\"\">";

$newsletter = 0;
$newslmail = "/pages/c2/d2/d0006431/home/htdocs/web/1flashmodels-de/master/mailing/adressen/tvletter.txt";

$PICFLAG2 = "<img src=\"http://www.flashModels.de/casting/grafik/flag2.gif\" border=\"0\" alt=\"\">";
$MAIL1 = "<img src=\"http://www.flashModels.de/casting/grafik/mail1.gif\" border=\"0\" alt=\"\">";

$BAROMETER100 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer100-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER90 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer90-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER80 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer80-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER70 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer70-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER60 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer60-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER50 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer50-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER40 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer40-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER30 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer30-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER20 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer20-vertikal.jpg\" border=\"0\" alt=\"\">";
$BAROMETER10 = "<img src=\"http://www.flashModels.de/casting/grafik/barometer10-vertikal.jpg\" border=\"0\" alt=\"\">";

$HERZ = "<img src=\"http://www.flashModels.de/casting/grafik/herz.gif\" border=\"0\" alt=\"\">";
$HERZ3 = "<img src=\"http://www.flashModels.de/casting/grafik/herz3.gif\" border=\"0\" alt=\"\">";

$MENSCHEN2 = "<img src=\"http://www.flashmodels.de/casting/grafik/menschen2.gif\" align=\"middle\" border=\"0\" alt=\"community\">";
$MENSCHEN3 = "<img src=\"http://www.flashmodels.de/casting/grafik/menschen3.gif\" align=\"middle\" border=\"0\" alt=\"community\">";

$GO = "<img src=\"http://www.flashModels.de/casting/grafik/flag-showdata2-no.gif\" border=\"0\">";
$STOPP = "<img src=\"http://www.flashModels.de/casting/grafik/flag-showdata2.gif\" border=\"0\">";

# 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'};

$PREISFOTOTAUSCH = "19,90 Euro";

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


# Tabelle
$RAHMEN = 880;
$br ='250';
$br1 ='255';
$sbr1 ='5';
$brunten ='650';


$sbr ='5';
$sbr2 ='120';
$mbr ='9%';
# Farben
$MBGCOLOR = "#968278";	
$hell ='ffffc8';
$hg ='ffffff';
$VBG = "#2581ad";
$dunkel ='000000';
$grau = '#808080';
$orange ='#ff8000';
$mailgelb ='ffd133';

$FARBELINKS ='3C71A6';

$titel ='Suche Deinen Partner!';

# 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 = 'kontakt@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 %H:%M:%S "`; chop($date);
	$laenge= length ($datum); # \n wird am Ende entfernt!
	$datum = substr ($datum ,0,$laenge-1);			

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

	
$ISODATE = `$date_command +"%Y-%m-%d"`; chop($date);
$UHRZEIT = `$date_command +"%T"`; chop($date);


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

$YEARNOW =`$date_command +"%Y"`; chop($date);


# 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;
		}
	}	
	
	$FORMEMAIL = $DATEN[1];
	
	$SES = $DATEN[2];
	$ID = $DATEN[3];	
	$VAR = $DATEN[4];
	$BEWERBUNGTHEMENID = $DATEN[5];
	$LG = $DATEN[6];	

	if ( ($DATEN[2] eq 'br') or ($DATEN[2] eq 'en') )
		{
		$LG = $DATEN[2];
		}


   #print "Content-type: text/html\n\n";
   #print "-$LG-";

if ($DATEN[1] =~(/\D/) ) 
	{
	}
	else
	{
	if ($DATEN[1])
		{
		$ID = $DATEN[1];
		$SES = $SHOWSESSION;
		$LG	= $DATEN[2];

		if ($LG_INCLUDE)
			{
			$LG = $LG_INCLUDE; #
			}
			
			
		$DATEN[1] = "showperson";
		$DATEN[2] = $SES;
		$DATEN[3] = $ID;	
#	print "ID: -$DATEN[1]-, -$SES-";
		}

	}
	
$STARALT = "Modelagentur";
if ($LG eq 'br')
	{
	$STARALT = "Agência de Modelos";
	}
if ($LG eq 'en')
	{
	$STARALT = "Model Agency";
	}


$STAR = "<img src=\"http://www.flashmodels.de/casting/grafik/star.gif\" border=\"0\" alt=\"$STARALT\">";


#print "-$DATEN[1]-$LG-";
#	$GESCHLECHT = $DATEN[2];
#	$LAND = $DATEN[3];
#	$ORDNER = $DATEN[4];
#	$FILE = $DATEN[5];
	
#   print "Content-type: text/html\n\n";
#   print "id: $ID, geschl.: $GESCHLECHT, land: $LAND, ordner: $ORDNER, file: $FILE<br>";


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


#################################################################################
$FORM{'WOHNORT'} =~ s/ae/ä/g;
$FORM{'WOHNORT'} =~ s/oe/ö/g;
$FORM{'WOHNORT'} =~ s/ue/ü/g;
$FORM{'WOHNORT'} =~ s/Ae/Ä/g;
$FORM{'WOHNORT'} =~ s/Oe/Ö/g;
$FORM{'WOHNORT'} =~ s/Ue/Ü/g;
#   print "Content-type: text/html\n\n";
### Entfernen des @ damit dort keine eMail erscheint! #############
if ( $FORM{'HOMEPAGE'} =~/([\w\-\+]+)@([\w\-\+\.]+)/)
	{
	$FORM{'HOMEPAGE'} = "";
	}
if ( $FORM{'VIDEOTITEL1'} =~/([\w\-\+]+)@([\w\-\+\.]+)/)
	{
	$FORM{'VIDEOTITEL1'} = "";
	}

#################################################################################

$TITEL = $titel;


# Print the Blank Response Subroutines
if ($DATEN[1] eq 'cast')
	{
	&CAST;
	}

if ($DATEN[1] eq 'sendpassword')
	{
	&falsepw;
	}

if ($DATEN[1] eq 'savemembership')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&SAVEMEMBERSHIP;
	}

	
if ($DATEN[1] eq 'savezusatz')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&SAVEZUSATZ;
	}


if ($DATEN[1] eq 'savepersonincasthema')
	{
	&SAVEUSERINBEWERBUNG;
	}


if ($DATEN[1] eq 'showbewerungen')
	{
	&SESSIONPROOF;
	&SHOWBEWERBUNGEN;
	}


if ($DATEN[1] eq 'startseite')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	&MENU;
	&STARTTEXT;
	&BOTTOM;
	}



if ($DATEN[1] eq 'sedfoto')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	&MENU;
	&SEDFOTOTAUSCH;
	&BOTTOM;
	}	
	
if ($DATEN[1] eq 'seddata')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	&MENU;
	&SEDDATA;
	&BOTTOM;
	}	
	

if ($DATEN[1] eq 'myscouterid')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	&MENU;
	&MYSCOUTERID;
	&BOTTOM;
	}	
	
if ($DATEN[1] eq 'fotos')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	&MENU;
	&FOTOS;
	&BOTTOM;
	}

if ( ($DATEN[4] eq 'premiumaccept') and ($FORM{'PREMIUM'} eq 'einlösen') )
	{
	$DATEN[1] = "chmember";
	$DATEN[4] = "premium";
	&SESSIONPROOF;
	&TOP;
	&DATENEINLESEN;
	&MENU;
	&chmember;
	&BOTTOM;
	}	
	
if ( ($DATEN[4] eq 'premiumaccept') and ($FORM{'AGB'} ne "1") )
	{
	&TOP;
	&AGB;
	&BOTTOM;
	exit;
	}
	

if ($DATEN[1] eq 'chmember')
	{
	&SESSIONPROOF;
	&TOP;
	&DATENEINLESEN;
	&MENU;
	&chmember;
	&BOTTOM;
	}


if ($DATEN[1] eq 'options')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	&MENU;
	&OPTIONS;
	&BOTTOM;
	}

if ($DATEN[1] eq 'delcastingpage')
	{
	&SESSIONPROOF;
	&TOP;
	&DATENEINLESEN;
	&MENU;
	&DELPAGE;
	&BOTTOM;
	}

if ($DATEN[1] eq 'delcastingpageOK')
	{
	&SESSIONPROOF;
	&TOP;
	&DATENEINLESEN;
	&MENU;
	&DELPAGEOK;
	&BOTTOM;
	}

	
if ($DATEN[1] eq 'delphoto')
	{
	&SESSIONPROOF;
	&TOP;
	&DATENEINLESEN;

	$DELPICURL = "$DELPICURL$ID-$VAR.jpg";
	if ( ($DATEN[7] eq 1) or ($DATEN[5] eq "modelfoto") )
	{
	$DELPICURL ="$REAL/p/$ID/modelphoto-$VAR.jpg";
	$CHANGEMODELFOTOS = 1;
	$DATEN[4] = "modelfoto";
	}
	unlink ($DELPICURL);

	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
	$dbh->do("UPDATE `CASTINGKARTEIB_INFO` SET `LOCKFOTO` = '0' WHERE CASTID = '$ID' ");
	$dbh->disconnect; # Von Datenbank abmelden		

	&MENU;
	&FOTOS;
	&BOTTOM;
	}
	
	
if ($DATEN[1] eq 'start')
	{
	&SESSIONPROOF;

#	$datenvonemail = 1; # einlesen der Daten von der eMailadresse
#	&DATENEINLESEN;

	&DATENEINLESEN;
	&TOP;
	&MENU;
	&START;
	&BOTTOM;
	}
	
if ($DATEN[1] eq 'showperson')
	{
#	&SESSIONPROOF;
	&KUNDENANZ;
	&DATENEINLESEN;
	&TOP;
	&SHOWTOPPERSON;
	&START;
	&SHOWBOTTOMPERSON;

	&BOTTOM;
	}

	
if ($DATEN[1] eq 'saveSEDdata')
	{
	if (!$FORM{'SEDVORNAME'} or !$FORM{'SEDPOSTLEITZAHL'} or !$FORM{'SEDWOHNORT'} or !$FORM{'SEDLAND'} or !$FORM{'SEDGEBURTSJAHR'} or ($FORM{'SEDGEBURTSJAHR'} eq "0000")or ($FORM{'SEDGEBTAG'} eq "00") )
		{
		&felder;
		exit;
		}

	if (!$FORM{'AGB'})
		{
		&TOP;
		&AGB;
		&BOTTOM;
		exit;
		}
	
	
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	&MENU;
	&SAVESEDDATA;
	&BOTTOM;
	
	}


if ($DATEN[1] eq 'edituser')
	{
	&SESSIONPROOF;
	&TOP;
	&DATENEINLESEN;
	&MENU;
	&EDITUSER;
	&BOTTOM;
	}

if ($DATEN[1] eq 'logout')
	{
	&LOGOUT; # Löschen der Session
	&TOP;
	&LOGOUTTEXT;
	&BOTTOM;
	}
	

if ($DATEN[1] eq 'bewerben')
	{
	&SESSIONPROOF;
	&DATENEINLESEN;
	&TOP;
	if ($FORM{'AGB'} eq 1)
		{
#		&MENU;
		&TERMINETITEL;
		&BEWERBUNGOK;
		}
		else
		{
		&AGB;
		}
	&BOTTOM;
	}
	
if  ($DATEN[1] eq 'savedata') ############################################################
	{
	&SESSIONPROOF;


	&felder unless ($FORM{'VORNAME'} and $FORM{'NACHNAME'} and $FORM{'GESCHLECHT'} and $FORM{'GEBURTSTAG'} and $FORM{'GEBURTSMONAT'} and $FORM{'GEBURTSJAHR'} and $FORM{'POSTLEITZAHL'} and $FORM{'WOHNORT'} and $FORM{'LAND'} and $FORM{'EMAIL'} and $FORM{'STRASSE'});
	&telefon unless ( ($FORM{'HANDYVORWAHL'} and $FORM{'HANDYRUFNUMMER'}) or ($FORM{'FESTNETZVORWAHL'} and $FORM{'FESTNETZRUFNUMMER'}) );

##### überprüfung ob Leerzeichen in der Telfonnummer ########
		$SPACEHV = split(/ /,"$FORM{'HANDYVORWAHL'}");		
		$SPACEHR = split(/ /,"$FORM{'HANDYRUFNUMMER'}");

		$SPACEFV = split(/ /,"$FORM{'FESTNETZVORWAHL'}");		
		$SPACEFR = split(/ /,"$FORM{'FESTNETZRUFNUMMER'}");

	if ($FORM{'HANDYRUFNUMMER'})
		{
		if ( ($SPACEHV eq 1) and ( $SPACEHR eq 1) )
			{
			}
			else
			{
			&telefonspace;
			}
		}		


	if ($FORM{'FESTNETZRUFNUMMER'})
		{
		if ( ($SPACEFV eq 1) and ( $SPACEFR eq 1) )
			{
			}
			else
			{
			&telefonspace;
			}
		}		
###########################		

	if ( $FORM{'EMAIL'} =~/([\w\-\+]+)@([\w\-\+\.]+)/)
		{
		}
		else
		{
		&email;
		}

	if ($FORM{'AGB'} eq 1)
		{
		}
		else
		{
		&TOP;
		&AGB;
		&BOTTOM;
		exit;
		}

 	if ( ($FORM{'VORNAME'}) and ($FORM{'NACHNAME'}) )
		{
		&SAVESQL;
		}
		else
		{
		&felder;
		}
		
	&TOP;
	&DATENEINLESEN;
	&MENU;

	&SAVETEXT;
	&START;
	&BOTTOM;
	}############################################################
	
	
if ($FORM{'SENDPASSWORD'} eq '1')
	{
	&sendpassword;
	}


&passwort unless $FORM{'EMAIL'};
&passwort unless $FORM{'PASSWORT'};
&passwort unless $FORM{'passwort'};
#&check_passwort unless $FORM{'check_passwort'};
&STARTSEITE unless $FORM{'check_passwort'};

#&main1 unless $FORM{'main1'};
#&main2 unless $FORM{'main2'};

		


	
	
	




#########
# Options

# Mail Option




if ($remote_mail eq '1' && $FORM{'EMAIL'}) {
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";


   print MAIL "To: $FORM{'EMAIL'}\n";
   print MAIL "From: $recipient\n";
   print MAIL "Subject: $FORM{'BETREFF'} \n\n";
  

	print MAIL "$FORM{'MAILTEXT'}";
   
   close (MAIL);
}

# Print Out Initial Output Location Heading
if ($redirection eq '1') {
   print "Location: $guestbookurl\n\n";
}
else { 
&no_redirection;
#   print "Location: $danke\n\n";

}

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


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";

#### Einlesen aller vorhandenen Themen ID`s
$sqlbefehl="select ZUSATZINFO, THEMENINFO FROM $CASTINGBEWERBUNG WHERE CASTID = '$ID' and THEMENID = '$FORM{'SHOWBEWERBER'}'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
		{
		$SQLZUSATZINFO = $dbrow[0];
		$SQLZUSATZINFO =~ s/\n/<br>\n/g;

		$SQLTHEMENINFO = $dbrow[1];
		$SQLTHEMENINFO =~ s/\n/<br>\n/g;

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


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

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



sub TERMINETITEL
{
#$FORM{'THEMENID'} = 144;
#	$cgiurl = "$cgiurl?action=$DATEN[1]&thema=$DATEN[2]";
##### Einlesen der Daten aus SQL Datenbank ##########################################

$sqlbefehl="select TITEL, ANZEIGESTATUS, NEW, INHALT, ANZPOS, ID, COUNTER, KID FROM $THEMANAME WHERE ID = '$FORM{'THEMENID'}'";
$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)
{
$TITELTEXT = $dbrow[0];
$ANZEIGESTATUS = $dbrow[1];
$NEWINFO = $dbrow[2];
$HAUPTTEXT = $dbrow[3];
$ANZPOS = $dbrow[4];
$THEMENID = $dbrow[5];
$COUNTER = $dbrow[6];
$KID = $dbrow[7];

$MAILTITELTEXT = $TITELTEXT;
$MAILTITELTEXT =~ s/\<br>//g;

$THEMENtitel = $TITELTEXT;
}

print "<div align=\"center\">";

#print "<table bgcolor=\"#000000\" width=\"550\" cellspacing=\"1\" cellpadding=\"5\" border=\"0\">\n";
#print "	<tr>\n";
#print "		<td bgcolor=\"#000000\">\n";
#print "<FONT face=Verdana color=#ffffff size=2>";
#print "Damit Du Dich für das nachfolgende Thema bewerben kannst, logge Dich bitte zunächst in Deine Castingseite ein!";
##print "		Bewerbung zu nachfolgendem Thema:";
#print "		</td>";
#print "	</tr>";
#print "</table>";





print "<table bgcolor=\"#000000\" width=\"550\" cellspacing=\"1\" cellpadding=\"5\" border=\"0\">\n";
print "	<tr><!-- ##########  -->\n";
print "		<td bgcolor=\"#3c7186\" width=50>\n";
if ($NEWINFO eq '1')
	{
	print "$NEW";
	}

if ($NEWINFO eq '2')
	{
	print "$NEW$NEW";
	}	

print "		</td>\n";
print "		<td bgcolor=\"#3c7186\">\n";


if ($ANZEIGESTATUS eq '2')
	{
	print "		<FONT face=Verdana color=#ffffff size=1>\n$TITELTEXT\n";
	}
	else
	{
#	print "		<a href=\"javascript:ANGEBOTETERMINE('http://www.flashModels.de')\">";
	print "		<FONT face=Verdana color=#ffffff size=2>\n$TITELTEXT</a>\n";
	}

print "		</A></FONT>	";
print "		</td>\n";
print "		<td align=\"right\" valign=\"top\" width=50 bgcolor=\"#3c7186\">\n";

if ($ANZEIGESTATUS eq '1')
	{
	print "$PERSONENSUCHE";
	}
if ($ANZEIGESTATUS eq '2')
	{
	print "$SCHONPROD";
	}	



print "		</td>\n";				  	 
print "	</tr> <!-- ########## -->\n";
print "</table><br>\n";
}


sub BEWERBENTHEMA
	{



print "<table bgcolor=\"\" width=\"100%\" cellspacing=\"1\" cellpadding=\"5\" border=\"0\">\n";
print "	<tr>\n";
print "		<td bgcolor=\"\">\n";

&TERMINETITEL;

#print "-$KID-$CTYP-";

if (($KID eq '1') and ($CTYP ne '1'))
	{
	print "<div style=\"width:600px; background-color: #9f0000; color:#fff; font-size:14px; text-align:left; padding:5px;\">";
	print "<b>Achtung!</b><br><br>";
	print "Damit Du Dein Kind zu diesem Thema anmelden bzw. bewerben kannst, ist es notwendig, dass Du für Dein Kind einen eigenen Account in der <a href=\"http://www.kindermodelagentur.net\">Kindermodelagentur</a> einrichtest. Lade dort dann auch Bilder von Deinem Kind hoch.<br>
<br>
Nachdem Dein Kind einen eigenen Account hat, kannst Du Dein Kind hier anmelden bzw. bewerben.<br>
<br>
>>> <a href=\"http://www.kindermodelagentur.net/index.php?page=kid&signup=1\" style=\"font-weight:bold;\">Zur Anmeldung, hier klicken</a> <<< <br><br>";
	print "</div>";
	$FORM{'ZUSATZINFO'} = "";
	$NOBEW = "1";
	}

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


print "<table bgcolor=\"\" width=\"100%\" cellspacing=\"1\" cellpadding=\"5\" border=\"0\">\n";
print "	<tr>\n";
print "		<td bgcolor=\"\">\n";
print "\n\n<form method=POST action=\"$cgiurl?action=bewerben&ses=$SES&ID=$ID&var=&bew=&lg=$LG\">\n\n";   			
print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";

if ($FORM{'ZUSATZINFO'})
{
print "$TEXT715";

$FORM{'ZUSATZINFO'} =~ s/\\n/\n/g;
print "		<div align=\"center\"><textarea cols=\"70\" rows=\"15\" name=\"ZUSATZINFO\" style=\"font-size: 11px; background: #ffffff; color: #000000;\">$FORM{'ZUSATZINFO'}</textarea></div>";
}
print "		&nbsp;</td><td width=\"170\" valign=\"bottom\">\n";


if($NOBEW ne "1")
{
print "$TEXT716";
print "<font face=verdana,arial,helvetica size=1 color=ffffff>";

	print "<input type=\"hidden\" name=\"THEMENID\" value=\"$FORM{'THEMENID'}\">\n";
if ($FORM{'EINFUG'} eq '3')
	{
	print "<input type=\"checkbox\" name=\"AGB\" value=\"1\" checked> $TEXT717<br><br>";
	}
	else
	{
	print "<input type=\"checkbox\" name=\"AGB\" value=\"1\"> $TEXT717<br><br>";
	}
	print "<input type=\"submit\" value=\"$TEXT718\">\n\n";
	print "</form>";
}
print "		</td>\n";
print "	</tr>\n";
print "</table>\n";
}


sub BEWERBENTOPTEXT
{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=lime>LOGIN - Startseite und Bewerben!!! (ID: $FORM{'THEMENID'})<br>";
	&LOG;

    print "	<table bgcolor=\"$grau\" width=800 cellspacing=2 cellpadding=2 border=0>\n";
    print "		<tr>";
	print "		<td>";	
	print "<font face=verdana,arial,helvetica size=2 color=#ffffff>";
   	print "<b>$TEXT705</b> ";
	print "&nbsp;&nbsp;|&nbsp;&nbsp;";
	print "<font face=verdana,arial,helvetica size=1 color=#ffffff>&nbsp;&nbsp;&nbsp;";
	print "$TEXT707<br>";
	print "		</td>";
	print "		</tr>";
	print "</table>";
	

	print "<table bgcolor=\"#000000\" width=\"800\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	$TEXT713 =~ s/\[VORNAME\]/$VORNAME/g;	
	$TEXT713 =~ s/\[NACHNAME\]/$NACHNAME/g;		
	print "$TEXT713";
	print "</td></tr>";
	print "</table><br><br>";
}



sub BEWERBUNGOK
	{

################
$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') FROM $CASTINGBEWERBUNG WHERE THEMENID = '$FORM{'THEMENID'}' AND CASTID = '$ID'";

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

while (@dbrow = $sth->fetchrow_array)
{
$BEWERBUNGSDATUM = $dbrow[0];	
$BEWERBUNGSZEIT = $dbrow[1];
$EINTRAGVORHANDEN = 1;
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}

#$BEWERBUNGSDATUM ="";
	
if ($EINTRAGVORHANDEN eq 1)
	{
	}
	else
	{
	$dbh->do("INSERT INTO `$CASTINGBEWERBUNG` 
	( `CASTID`, `THEMENID`, `BEWERBUNGSDATUM`, `LOSCH` ,`ZUSATZINFO` ) 
	 VALUES 
	( '$ID', '$FORM{'THEMENID'}', '$ISODATE $UHRZEIT', '0', '$FORM{'ZUSATZINFO'}' )	");


##### Sende eMail an Kunden

####### Rechte einlesen
	$sqlbefehl="select THEMENID, KUNDENNAME, ANSPRECHPARTNER, KUNDENEMAIL, AUTOEMAIL, DRUCKEN, LG FROM $CASTINGBEWERBUNGRECHTE WHERE THEMENID = '$FORM{'THEMENID'}'";
	$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)
		{
		$RECHTETHEMENID = $dbrow[0];
		$RECHTEKUNDENNAME = $dbrow[1];
		$RECHTETHEMENANSPRECHPARTNER = $dbrow[2];				
		$RECHTETHEMENEMAIL = $dbrow[3];						
		$RECHTEAUTOMAIL = $dbrow[4];		
		$RECHTEDRUCKEN = $dbrow[5];				
		$RECHTELG = $dbrow[6];		
		}
	


	if ($RECHTEAUTOMAIL eq 1)
		{
### Versenden der eMail
		$BETREFF = "flashModels-Bewerbung [ThemenID:$FORM{'THEMENID'}]";   
		$MAILTEXT ="Hallo $RECHTETHEMENANSPRECHPARTNER,
	
		soeben ist die Bewerbung von '$VORNAME aus $WOHNORT' zu nachfolgendem Thema bei flashModels eingegangen:
		.........................................
		$MAILTITELTEXT
		.........................................

		In der Castingkartei ist diese Bewerbung direkt abrufbar unter folgendem Link:
		$loginurl?action=bew&id=$FORM{'THEMENID'}
		
		Viele Grüße sendet das Team von
		flashModels.de
		
		::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
		*** Diese eMail wurde automatisch im Castingsystem erstellt";

if ($RECHTELG eq "en")
{
$BETREFF = "flashModels-application [Issue-ID:$FORM{'THEMENID'}]";   
$MAILTEXT ="Dear $RECHTETHEMENANSPRECHPARTNER,
 
in that moment the new member ($VORNAME from $WOHNORT) sign in for the following issue: 	
.........................................
$MAILTITELTEXT
.........................................

Directly you can login and watch that person by clicking on the following link:
$loginurl?action=bew&id=$FORM{'THEMENID'}&lg=$RECHTELG
		
Kind regards of the team of flashModels
		
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
*** This eMail was created automatically in the Castingsystem";
}

if ($RECHTELG eq "br")
{
$recipient = "agencia\@flashmodels.de";
$BETREFF = "flashModels-inscrição [Issue-ID:$FORM{'THEMENID'}]";   
$MAILTEXT ="Prezado $RECHTETHEMENANSPRECHPARTNER,

neste momento sua proposta recebeu uma nova inscrição (Michael de Aachen):
..........................................
$MAILTITELTEXT
..........................................

Você poderá fazer o seu login direto e ver o perfil dele(a), clicando no link a seguir:
$loginurl?action=bew&id=$FORM{'THEMENID'}&lg=$RECHTELG

Atenciosamente, o time da flashModels

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
*** Este e-mail foi enviado automaticamente pelo Castingsystem";
}

		
	   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";


	   print MAIL "To: $RECHTETHEMENEMAIL\n";
	   print MAIL "From: $recipient\n";
	   print MAIL "Subject: $BETREFF \n\n";
		print MAIL "$MAILTEXT";
   
	   close (MAIL);
	###########	

	}

	}

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

#print "-$FORM{'ZUSATZINFO'}-";

if ($EINTRAGVORHANDEN eq 1)
	{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#66ccff\">Beworben zur ID: $FORM{'THEMENID'}, Bewerbung aber schon vorhanden!<br>";
	&LOG;
	}
	else
	{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#66ccff\">Beworben zur ID: $FORM{'THEMENID'}, Bewerbung aufgenommen<br>";
	&LOG;
	}

    print "	<table bgcolor=\"$grau\" width=800 cellspacing=2 cellpadding=2 border=0>\n";
    print "		<tr>";
	print "		<td>";	
	print "<font face=verdana,arial,helvetica size=2 color=#ffffff>";
   	print "<b>$TEXT705</b> ";
	print "&nbsp;&nbsp;|&nbsp;&nbsp;";
	print "<font face=verdana,arial,helvetica size=1 color=#ffffff>&nbsp;&nbsp;&nbsp;";
	print "$TEXT708 ( ID:$FORM{'THEMENID'} )<br>";
	print "		</td>";
	print "		</tr>";
	print "</table>";

if ($EINTRAGVORHANDEN eq 1)
	{
	print "<table bgcolor=\"#000000\" width=\"800\" height=\"200\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td valign=\"top\">";

	$TEXT721 =~ s/\[VORNAME\]/$VORNAME/g;	
	$TEXT721 =~ s/\[BEWERBUNGSDATUM\]/$BEWERBUNGSDATUM/g;		
	$TEXT721 =~ s/\[BEWERBUNGSZEIT\]/$BEWERBUNGSZEIT/g;			
	print "$TEXT721";
	
	print "</td></tr>";
	print "</table><br><br>";
	}
	else
	{
	print "<table bgcolor=\"#000000\" width=\"800\" height=\"200\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td valign=\"top\">";
	$TEXT720 =~ s/\[VORNAME\]/$VORNAME/g;	
	$TEXT720 =~ s/\[EMAIL\]/$EMAIL/g;	

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

### Versenden der eMail
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";


   print MAIL "To: $EMAIL\n";
   print MAIL "From: $recipient\n";
   print MAIL "Subject: $BETREFF720 \n\n";
  
	$MAILTEXT720 =~ s/\[VORNAME\]/$VORNAME/g;	
	$MAILTEXT720 =~ s/\[MAILTITELTEXT\]/$MAILTITELTEXT/g;		
	print MAIL "$MAILTEXT720";
   
   close (MAIL);
###########
	

	}


	}


sub passwort {

if ($FORMEMAIL)
	{
	$FORM{'EMAIL'} = $FORMEMAIL;
	}

	$URL = "http://www.flashModels.de/login/index.php?card=a";
	if ($LG eq "en")
	{
	$URL = "http://www.flashModels.net/login/index.php?card=a";
	}
	if ($LG eq "br")
	{
	$URL = "http://www.flashModels.de/br/login/index.php?card=a";
	}
if (!$FORM{'THEMENID'})
	{	
	print "Location: $URL\n\n";
	exit;
	}

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

	print "<script language=\"JavaScript\">\n";
	print "<!--\n";
	print "function gfenster5(datei5)\n";
	print "{\n";
	print "grafik5=window.open(datei5,\"datenfenster\", \"width=750,height=500,toolbar=0,location=0,directories=0,status=1,menubar=0,resizable=1,scrollbars=1,copyhistory=0\");\n";
	print "grafik5.focus();\n";
	print "}\n";
	print "//-->\n";

	print "</script>\n";


   print "<link href=\"$styles\" rel=\"stylesheet\" type=\"text/css\">\n\n";
   print "</head>\n\n";

   print "<body background=\"$HGPIC\">\n\n";
   
   
	print "<center>";
   
if ($FORM{'THEMENID'})
	{
    print "	<table bgcolor=\"$grau\" width=700 cellspacing=2 cellpadding=2 border=0>\n";
    print "		<tr>";
	print "		<td>";	
	print "<font face=verdana,arial,helvetica size=2 color=#ffffff>";
   	print "<b>$TEXT705</b> ";
	print "&nbsp;&nbsp;|&nbsp;&nbsp;";
	print "<font face=verdana,arial,helvetica size=1 color=#ffffff>&nbsp;&nbsp;&nbsp;";
	print "$TEXT706<br>";
	print "		</td>";
	print "		</tr>";
	print "</table>";


    print "<table bgcolor=$dunkel width=700 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr>";
	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "$TEXT710";
	&TERMINETITEL;

	print "</td>";
	print "</tr>";
	print "</table><br>";
	}
   
    print "<form method=POST action=\"$cgiurl?email=$DATEN[1]&ses&id=&var=&bew=&lg=$LG\">\n";   
	print "<font face=verdana,arial,helvetica size=5 color=ffffc8>";

	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=700 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td class=\"textfeld\">\n";
	print "<h1 class=\"textfeld\">$TEXT100</h1>";
	
	print "$TEXT101<br>";

    print "<table width=\"100%\" cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr>";
	print "<td width=\"120\" align=\"right\"  bgcolor=\"Gray\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";									
	print "<b>$TEXT102:</b><br>";
	print "</td>";
	print "<td bgcolor=\"gray\" width=\"250\">";
    print "<input type=\"text\" name=\"EMAIL\" size=\"35\" maxlength=\"60\" value=\"$FORM{'EMAIL'}\">";
	print "";
	print "</td>";
	print "<td>&nbsp;";


	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>$TEXT103:</b>";
	print "</td>";
	print "<td bgcolor=\"gray\">\n";
	print "<input type=\"password\" name=\"PASSWORT\" value=\"$FORM{'PASSWORT'}\"size=\"35\" maxlength=\"60\">\n";
	print "<input type=\"hidden\" name=\"EINFUG\" value=\"$FORM{'EINFUG'}\">\n";
	print "<input type=\"hidden\" name=\"THEMENID\" value=\"$FORM{'THEMENID'}\">\n";
	print "<input type=\"hidden\" name=\"ZUSATZINFO\" value=\"$FORM{'ZUSATZINFO'}\">\n";	
	print "<input type=hidden name=\"passwort\" value=\"ok\">\n\n";
	print "";
	print "</td>\n";
	print "<td class=\"textfeld\">";

	print "<input type=submit value=&nbsp;&nbsp;&nbsp;login&nbsp;...&nbsp;&nbsp;&nbsp;>\n";	
	
	print "&nbsp;&nbsp; <a href=\"javascript:gfenster5('http://www.flashmodels.de/login/index.php?page=sendpw&lg=$LG&card=a&email=&login=')\">";
	print "$TEXT106</a>";
	
	print "</td>";	
    print "</form>";
	print "</tr>\n";

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

    print "<table width=700 cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td class=\"textfeld\">\n";
	print "$TEXT105\n";
	print "</td></tr>";
	print "</table>";

	print "<br>$CHOOSELG";	
		
	print "<hr width=\"100%\" size=\"2\" color=\"#000000\" noshade>";
#if (!$LG)
#	{
    print "<form method=POST action=\"http://www.flashmodels.de/index.php?page=casting&signup=1&lg=\" target=\"_blank\">\n";   
#	}
#	else
#	{
#    print "<form method=POST action=\"http://www.flashModels.de/casting/cgi-bin/castingform.pl?look=&lg=$LG\">\n";   
#	}
	print "<h1 class=\"textfeld\">$TEXT110</h1>";	
					
	print "$TEXT111";

if ($FORM{'THEMENID'})
	{
	print "(Dabei wird die Bewerbung zu dem obenstehenden Thema direkt mit aufgenommen!)<br>";
	}

	print "$TEXT113";
	print "<input type=\"hidden\" name=\"THEMENID\" value=\"$FORM{'THEMENID'}\">\n";
	print "<input type=\"hidden\" name=\"ZUSATZINFO\" value=\"$FORM{'ZUSATZINFO'}\">\n";	

	
    print "</form>";
#	print "<br><br>";		  

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


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

#-------------------------------------   
   print "$TEXTHAUPTSEITE";
   

   print "</center>\n";

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

   exit;
}



sub STARTSEITE
	{
	$datenvonemail = 1; # einlesen der Daten von der eMailadresse
	&DATENEINLESEN;

#   print "Content-type: text/html\n\n";	
#   print "ID:$ID | formemail = $FORM{'EMAIL'}<br>";

#print "$FORM{'EMAIL'} - $EMAIL";

$FORM{'EMAIL'} = lc($FORM{'EMAIL'});
$EMAIL = lc($EMAIL);

#print "$FORM{'EMAIL'} - $EMAIL";

if ($FORM{'EMAIL'} eq $EMAIL)
	{
	}
	else
	{
	&falseemail;
	}

if ($FORM{'PASSWORT'} eq  $PASSWORT)
	{
	}
	else
	{
	&falsepw;
	}

   
	&SESSION;

#   print "Content-type: text/html\n\n";	
#   print "Startseite<br>";
#	&SESSIONPROOF;

	$DATEN[1] = "LOGINOK";
	&TOP;


if ( ($FORM{'THEMENID'}) and ($FORM{'AGB'} eq '') )
	{
	&BEWERBENTOPTEXT;
	
	print "<table bgcolor=\"#000000\" width=\"800\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";

	&BEWERBENTHEMA;

	print "</td></tr>";
	print "</table><br><br>";
	
	}
	else
	{
	&DATENEINLESEN;
	&MENU;
	&STARTTEXT;
#	&START;
	}
	&BOTTOM;
	}




sub SESSION
{

	##########

	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden	
	
#### Löschen nach Ablauf der Sessionzeit
$dbh->do("DELETE FROM $TABELLENNAMECASTINGSESSION WHERE ( ((TO_DAYS(NOW()) - TO_DAYS(CASTINDATUM))*24*60*60) + (TIME_TO_SEC(NOW()) - TIME_TO_SEC(CASTINDATUM)) ) > $SESSEC ");	

$dbh->do("DELETE FROM $TABELLENNAMECASTINGSESSION WHERE CASTINGID = '$ID'");	

for ($g=0; $g <=1; $g++)
{
	
$SES = "";
	for ($i=1; $i<=20; $i++)
		{
		$SES[$i] = int (rand(36)+1);
		if ($SES[$i] eq 10) {$SES[$i] = "a";}
		if ($SES[$i] eq 11) {$SES[$i] = "a";}
		if ($SES[$i] eq 12) {$SES[$i] = "b";}
		if ($SES[$i] eq 13) {$SES[$i] = "c";}
		if ($SES[$i] eq 14) {$SES[$i] = "d";}
		if ($SES[$i] eq 15) {$SES[$i] = "e";}
		if ($SES[$i] eq 16) {$SES[$i] = "f";}
		if ($SES[$i] eq 17) {$SES[$i] = "g";}
		if ($SES[$i] eq 18) {$SES[$i] = "h";}
		if ($SES[$i] eq 19) {$SES[$i] = "i";}
		if ($SES[$i] eq 20) {$SES[$i] = "j";}																		
		if ($SES[$i] eq 21) {$SES[$i] = "k";}
		if ($SES[$i] eq 22) {$SES[$i] = "l";}
		if ($SES[$i] eq 23) {$SES[$i] = "m";}
		if ($SES[$i] eq 24) {$SES[$i] = "n";}
		if ($SES[$i] eq 25) {$SES[$i] = "o";}
		if ($SES[$i] eq 26) {$SES[$i] = "p";}
		if ($SES[$i] eq 27) {$SES[$i] = "q";}
		if ($SES[$i] eq 28) {$SES[$i] = "r";}
		if ($SES[$i] eq 29) {$SES[$i] = "s";}																		
		if ($SES[$i] eq 30) {$SES[$i] = "t";}
		if ($SES[$i] eq 31) {$SES[$i] = "u";}
		if ($SES[$i] eq 32) {$SES[$i] = "v";}						
		if ($SES[$i] eq 33) {$SES[$i] = "w";}
		if ($SES[$i] eq 34) {$SES[$i] = "x";}
		if ($SES[$i] eq 35) {$SES[$i] = "y";}						
		if ($SES[$i] eq 36) {$SES[$i] = "z";}		
		$SES = "$SES$SES[$i]";
		}	

	### Überprüfung ob Session schon vorhanden
	$sqlbefehl="select COUNT(*) FROM $TABELLENNAMESESSION WHERE SESSION = '$SES'";
	$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)
	{
	$FOUNDSESSION = $dbrow[0];
	}		

	if ($FOUNDSESSION > "0")
		{
		$g = 0;
		}
}
	$SESSION = $SES;

	
	### Überprüfung ob ID schon vorhanden
	$sqlbefehl="select CASTINGID, CASTINSESSION FROM $TABELLENNAMECASTINGSESSION WHERE CASTINGID = '$ID'";
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

#   print "Content-type: text/html\n\n";	
#	print "----<br>";
	while (@dbrow = $sth->fetchrow_array)
	{
	$CASTINGID = $dbrow[0];
	$CASTINSESSION = $dbrow[1];
#	print "$CASTINGID-$CASTINSESSION-<br>";
	}		


	if ($CASTINGID eq $ID)
		{
		$SES = $CASTINSESSION;
		}
		else
		{
### Session anlegen
	$dbh->do("INSERT INTO `$TABELLENNAMECASTINGSESSION` ( `CASTINGID`, `CASTINSESSION`, `CASTINDATUM`)
		 VALUES ( '$ID', '$SESSION', NOW() ) ");
		}
	 
	$dbh->disconnect; # Von Datenbank abmelden
	##########
	$LOGINUSER = 1;
}














sub falseemail {

   # Print Beginning of HTML
   print "Content-Type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body background=\"$HGPIC\" bgproperties=fixed bgcolor=$hg text=ffff00 link=red vlink=red alink=red>\n";
   print "<center>";
   print "<font face=verdana,helvetica,arial size=3 color=$hell>";
  

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

   print "<td bgcolor=$dunkel>\n";

   print "$TEXT805";

#	print "<a href=\"http://www.flashModels.de/cgi-bin/1miss/1flashcasting/castingform.pl\" style=\"color: $mailgelb;\"><b>Klicke bitte hier</b></a>, um Dich zur Aufnahme in die Castingkartei zu bewerben.<br><br>";
#	print "(Wenn wir Dich aufgenommen haben, kannst Du Dich hier einloggen.)<br><br>";

   print "<form>";
   print "<input type=button value=zurück onClick=history.back()><br><br>\n";
   print "</form>";



	print "<hr width=\"100%\" size=\"2\" color=\"White\" noshade>";
	$cgicastingform = "http://www.flashmodels.de/index.php?page=casting&signup=1&lg=";
    print "<form method=POST action=\"$cgicastingform\">\n";   

	print "$TEXT806";
	
	
if ($FORM{'THEMENID'})
	{
	print "<br><br><b>Nachdem Du aufgenommen wurdest, kannst Du Dich hier bewerben!</b>";
#	print "<br>$TEXT807<br>";
	}
	else
	{
	print "<br>";
	print "<input type=submit value=\"zur&nbsp;Bewerbung&nbsp;in&nbsp;die&nbsp;Castingkartei\">\n";	
	print "<input type=\"hidden\" name=\"THEMENID\" value=\"$FORM{'THEMENID'}\">\n";
	print "<input type=\"hidden\" name=\"ZUSATZINFO\" value=\"$FORM{'ZUSATZINFO'}\">\n";	
	}
    print "</form>";
	print "<br><br>";		  



   print "</td>";
  
  
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

   
	print "<table bgcolor=\"$hell\" width=\"520\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=1 color=$hell>&nbsp;<br>";
	print "</td></tr>";
	print "</table>$TEXTHAUPTSEITE";
   


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

   exit;
}

sub falsepw {

   # Print Beginning of HTML
   print "Content-Type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body background=\"$HGPIC\" bgproperties=fixed bgcolor=$hg text=ffff00 link=red vlink=red alink=red>\n";
   print "<center>";
   print "<font face=verdana,helvetica,arial size=3 color=$hell>";
    print "<form method=POST action=\"$cgiurl?email=&ses&id=&var=&bew=&lg=$LG\">\n";   

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

   print "<td bgcolor=$dunkel>\n";

if ($DATEN[1] eq 'sendpassword')
	{
	}
	else
	{

	print "$TEXT801";
	
	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";
	}

	print "$TEXT800";

#   print "<img src=$pfeilurl border=0>\n";
	print "<input type=hidden name=\"SENDPASSWORD\" value=\"1\">\n";

   print "</form><br><br><br><br>";
   print "</td>";
  
  
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

   
	print "<table bgcolor=\"$hell\" width=\"520\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=1 color=$hell>&nbsp;<br>";
	print "</td></tr>";
	print "</table>$TEXTHAUPTSEITE";
   


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

   exit;
}

sub felder {

	&SESSIONPROOF;
	&TOP;
	&MENU;

	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"red\">Error alle Felder ausfüllen wurde angezeigt";
	&LOG;
	
	
   print "<table width=520 cellspacing=0 cellpadding=0 border=0>\n";
   print "<tr>\n";
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";

   print "<td bgcolor=$dunkel>\n";

	print "$TEXT840";
	
   print "<form>";
	print "$ZURUCK<br><br>";

   print "</form>";
   print "</td>";
    
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

   
	&BOTTOM;   


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

   exit;
}



sub telefon {

	&SESSIONPROOF;
	&TOP;
	&MENU;

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

   print "<td bgcolor=$dunkel>\n";
	print "$TEXT845";
   print "<form>";
   print "$ZURUCK<br><br>\n";
   print "</form>";
   print "</td>";
  
  
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

	&BOTTOM;   

   exit;
}



sub telefonspace {

	&SESSIONPROOF;
	&TOP;
	&MENU;

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

   print "<td bgcolor=$dunkel>\n";

   print "$TEXT847";
   
   print "<form>";
   print "$ZURUCK <br><br>\n";
   print "</form>";
   print "</td>";
  
  
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

   
	&BOTTOM;      


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

   exit;
}



sub email {

   # Print Beginning of HTML
   print "Content-Type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body background=\"$HGPIC\" bgproperties=fixed bgcolor=$hg text=ffff00 link=red vlink=red alink=red>\n";
   print "<center>";
   print "<font face=verdana,helvetica,arial size=3 color=$hell>";


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

   print "<td bgcolor=$dunkel>\n";

   print "$TEXT850";
   print "<form>";
   print "$ZURUCK <br><br>\n";
   print "</form>";
   print "</td>";
  
  
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

   
	print "<table bgcolor=\"$hell\" width=\"520\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=1 color=$hell>&nbsp;<br>";
	print "</td></tr>";
	print "</table>$TEXTHAUPTSEITE";
   


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

   exit;
}

sub sendpassword {

################
$sqlbefehl="select PASSWORT, VORNAME FROM $TABELLENNAME WHERE EMAIL = '$FORM{'EMAIL'}'";
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
#print "-$sqlbefehl-";
while (@dbrow = $sth->fetchrow_array)
{
$PW = $dbrow[0];	
$VORNAME = $dbrow[1];	
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}
#print "-$PW-$VORNAME-";
$dbh->disconnect; # Von Datenbank abmelden		
################

$PW = "1111";
$VORNAME = "PIT";
print "-$VORNAME-";
if ($VORNAME)
{
if ($remote_mail eq '1' && $FORM{'EMAIL'}) {
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";


   print MAIL "To: $FORM{'EMAIL'}\n";
   print MAIL "From: $recipient\n";
   print MAIL "Subject: $SUBJECT1 \n\n";
  
	$MAILTEXT1 =~ s/\[VORNAME\]/$VORNAME/g;	
	$MAILTEXT1 =~ s/\[PW\]/$PW/g;		
	
	print MAIL "$MAILTEXT1";
   
 
   close (MAIL);
}


   # Print Beginning of HTML
   print "Content-Type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body background=\"$HGPIC\" bgproperties=fixed bgcolor=$hg text=ffff00 link=red vlink=red alink=red>\n";
   print "<center>";
   print "<font face=verdana,helvetica,arial size=3 color=$hell>";


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

   print "<td bgcolor=$dunkel>\n";

   print "$TEXT810";	
   print "<form>";

#   print "$WEITER\n";
   print "</form>";
   print "</td>";
  
  
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

   
	print "<table bgcolor=\"$hell\" width=\"520\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=1 color=$hell>&nbsp;<br>";
	print "</td></tr>";
	print "</table>$TEXTHAUPTSEITE";
   


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

   exit;
  }
  else
  {
  &falseemail;
  }
   
}

sub SHOWTOPPERSON
{


# print "Content-type: text/html\n\n";   
################# Passwortcheck ########################################
#print "Daten:";
#print "$DATEN[1], $DATEN[2], $DATEN[3], $DATEN[4],";

$CODE = $DATEN[4];

$sqlbefehl="select DISTINCT $THEMANAME.ID, $CASTINGBEWERBUNGRECHTE.KUNDENNAME, $THEMANAME.TITEL FROM $THEMANAME, $CASTINGBEWERBUNGRECHTE WHERE $THEMANAME.ID = $CASTINGBEWERBUNGRECHTE.THEMENID ORDER BY ID 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)
{
$THID = $dbrow[0];
$THKUNDE = $dbrow[1];
$THTITEL = $dbrow[2];
$THTITEL =~ s/<br>//g;
$THTITEL = substr ($THTITEL ,0,25);
$THTITEL = "$THTITEL...";
$SQLTHID = "$SQLTHID<option value=\"$THID\">Thema:$THID [$THKUNDE] $THTITEL";
#print "-$THID-<br>"; 
}

#### Ermittlung der Anzahl der Bewerbungen
$sqlbefehl="select COUNT(*) FROM $CASTINGBEWERBUNG WHERE CASTID = '$ID'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$ANZAHLBEWERBUNGEN = $dbrow[0];
}
if ($ANZAHLBEWERBUNGEN)
	{
	}
	else
	{
	$ANZAHLBEWERBUNGEN = "0";
	}


$sqlbefehl="select BENUTZERNAME, PASSWORT, CODE, STATUS, INFOFELD, POS FROM $TABELLENNAMEPW WHERE CODE = '$CODE'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

$LOGIN = 0;
while (@dbrow = $sth->fetchrow_array)
{
$CBENUTZERNAME = $dbrow[0];
$CREALPASSWORT = $dbrow[1];
$CINFOFELD = $dbrow[4];
$CPOS = $dbrow[5];
$CMODUS = $dbrow[3];

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

if ( ($CBENUTZERNAME) and ($CREALPASSWORT) )
	{
	$LOGIN = 1;
	}

#print "******-$BENUTZERNAME-, -$MODUS-, CODE:-$CODE-, ID: $IDX<br><br>";							
	
}

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

#print "-$CODE-";

	if ( ($LOGIN eq 1) or ($SES eq $mastersession) or ($SES eq $SHOWSESSION) )
		{
		}
		else
		{
		&NOLOGIN;
		}
################# Ende Passwortcheck ########################################
	$FORM{'SHOWBEWERBER'} = $BEWERBUNGTHEMENID;
	&EINLESENBEWERBERDATEN;

#	print "-$SHOWPERSONDATAFLAG-Thema:$BEWERBUNGTHEMENID-";

#### Rahmentabelle Start ####
print "<table width=\"$RAHMEN\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">\n";
print "<tr><td>\n\n";			

	
if ($DATEN[2] eq $mastersession)
	{
	$STLE = "style=\"font-size: 12px; background: #ffffff; color: #000000;\" ";
	$STLEYEL = "style=\"font-size: 12px; background: #ffff00; color: #000000;\" ";	


if ($MODEL eq '1')
	{
	print "<table bgcolor=\"#20937b\" width=\"100%\" height=\"10\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
	print "<tr>";
	print "<td>";
	print "<font size=\"2\" color=\"#000000\"><a href=\"http://www.flashmodels.de/p/$ID\" target=\"_blank\">*** Profi Sedcard vorhanden, öffnen</a>";
	print " | ";
	
	print "<a href=\"http://www.flashmodels.de/bewerben/edituser.php?ID=$ID\" target=\"_blank\">Edit Sedcard  Position</a> | ";

	print "<a href=\"http://www.flashmodels.de/login/cgi-bin/tool-log/mkdir.pl?ID=$ID&LD=/ger\" target=\"_blank\">Sedcard Fototausch</a>";

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

	print "<table bgcolor=\"#ee4400\" width=\"100%\" height=\"10\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
	print "<tr>";

	print "<td bgcolor=\"#ffff00\">";
	print "<font size=\"3\" color=\"#000000\">*** Aktuelle Mitgliedschaft:";
	if ($MEMBERPREMIUM eq 1)
		{
		print "<b><u>Premium-Mitglied</u></b>";
		}
		else
		{
		print "<b><u>Standard-Mitglied</u></b>";
		}
	print "<br></font>";

	print "</td>";

    print "<form method=POST action=\"$cgiur?action=savezusatz&ses=$SES&ID=$ID\">\n";
	print "<td>";
	print "<font face=verdana,arial,helvetica size=1 color=ffff00>";


	if ( ($LOCKFOTO eq 1) )
		{
		print "<b>Aktive FOTO-Sperre: Mitglied ist für Öffentlichkeit gesperrt, da keine ordentlichen Fotos!</b><br>";
		}

	if ( ($LOCKPUBLIC eq 2) )
		{
		print "<b>Mitglied ist für Öffentlichkeit gesperrt, da noch kein Geld für beantragte Premium-Mitgliedschaft eingegangen ist!</b><br>";
		}
	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print "<select name=\"LOCK\" size=\"1\" $STLEYEL>\n";

	print "<option value=\"1\" selected>FOTO-Sperre aktivieren</option>";

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

	print "<input type=submit value=\"Mitglied jetzt sperren!\" $STLEYEL>\n";	
	print "<input type=\"hidden\" name=\"USERID\" value=\"$ID\">\n\n";
		
	print "</td>";
	print "</form>";
	print "</tr>";
	print "</table>";	
	
	print "<table bgcolor=\"#dd4400\" width=\"100%\" height=\"10\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
	print "<tr>";
    print "<form method=POST action=\"$cgiur?action=savemembership&ses=$SES&ID=$ID\">\n";
	print "<td>";
	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
#	print "$DATUMHEUTE | $DATUMHEUTE_6MON";

	if ($ANTRAGMEMBER eq 1)
		{
		print "<font face=verdana,arial,helvetica size=2 color=\"AQUA\">";
		print "<b>*** Antrag auf Premium wurde gestellt!</b></font><br>$ANTRAGLAUSZEITMONAT Monate, ";
		$MEMBER_START = $DATUMHEUTE;
		$MEMBER_ENDE = $DATUMHEUTE_6MON;
		$VARMONTH = 6;

		if ($ANTRAGLAUSZEITMONAT eq "12")
			{
			$MEMBER_ENDE = $DATUMHEUTE_12MON;
			$VARMONTH = 12;
			}

		if ($ANTRAGLAUSZEITMONAT eq "24")
			{
			$MEMBER_ENDE = $DATUMHEUTE_24MON;
			$VARMONTH = 24;
			}
			
		$STLE = "style=\"font-size: 12px; background: Aqua; color: #000000;\" ";
		}

	if ($ANTRAGMEMBER eq 2)
		{
		print "<font face=verdana,arial,helvetica size=2 color=\"AQUA\">";
		print "<b>*** Antrag auf Premium-Verlängerung<br>wurde gestellt!</b></font><br>";

		print "Aktuelle Laufzeit: <b>$MEMBER_START - $MEMBER_ENDE</b><br>- > Verlängerung bis <b>$ENDEDATUMPLUSSECHS</b> (+ $ANTRAGLAUSZEITMONAT Monate)<br>";
		print "<input type=\"checkbox\" name=\"verlaengerung\" value=\"1\" checked> ";
		print "Mitgliedschaft verlängern";
		print "<br>"; 
		
		$MEMBERPREIS = "19.90 Euro";
		$MEMBER_START = $DATUMHEUTE;
		$MEMBER_ENDE = $ENDEDATUMPLUSSECHS;
		$STLE = "style=\"font-size: 12px; background: Aqua; color: #000000;\" ";
		}		


#	print "mem:$MEMBER- antr:-$ANTRAGMEMBER-*$MEMBERPREMIUM*-$MEMBERTIMEAKTIV.$MEMBER<br>";

if ($ANTRAGSCOUTERID)
	{
	print " | Scouter Pin: <b>$ANTRAGSCOUTERID</b> $PICFLAG2 | ";
	}
	print "<br>Mitgliedschaft ändern:";			

	print "<select name=\"MITGLIEDSCHAFT\" size=\"1\" $STLE>\n";

	if ( ($MEMBER eq 1) or ($ANTRAGMEMBER eq 1) )
#	if ( ($ANTRAGMEMBER eq 1) or ($ANTRAGMEMBER eq 2))
		{
		print "<option value=\"1\" selected>Premium";	
		}

#	if ( ($ANTRAGMEMBER eq 0) )		
#		{
#		print "<option value=\"0\" selected>Standard";	
#		}


	print "<option value=\"0\">Standard</option>";
	print "<option value=\"1\">Premium</option>";
	print "</select>\n\n";
	print "<font size=\"1\">Passwort:</font><input size=\"4\" type=\"password\" name=\"memberpassword\" $STLE><br>\n\n";	
	print "</td>";

	print "<td>";

	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
#	print "-$MEMBERPREIS-";
	print "*$MEMBERPREIS*";
	print "<b>bezahlter Preis:</b><br><select name=\"MEMBERPREIS\" size=\"1\" $STLE>\n";

if ( ($ANTRAGMEMBERPREIS) )
	{
	print "<option selected>$ANTRAGMEMBERPREIS</option>";	
	print "<option>0.00 Euro</option>\n";
	print "<option>19.90 Euro</option>";	
	print "<option>29.90 Euro</option>";
	print "<option>39.90 Euro</option>";	

	}
	else
	{
	if ($ANTRAGMEMBER eq 1)
		{
		print "<option selected>19.90 Euro</option>";	
		print "<option>29.90 Euro</option>";
		print "<option>39.90 Euro</option>";	
		}
		else
		{
		print "<option selected>0.00 Euro</option>";	
		}
	print "<option>19.90 Euro</option>\n";
	print "<option>29.90 Euro</option>";
	print "<option>39.90 Euro</option>";	
	print "<option>0.00 Euro</option>\n";	
	}
	print "</select>\n\n";

	print "</td>";

	print "<td>";
		
  	@datenmember = split(/\./, $MEMBER_START);
			$MEMBERTAG_START = $datenmember[0]; 
			$MEMBERMONAT_START = $datenmember[1]; 
			$MEMBERJAHR_START = $datenmember[2]; 						
	

	print "<font face=verdana,arial,helvetica size=2 color=#ffffff><b>Gültig vom</b><br>";
	print "<select name=\"STARTDATETAG\" size=\"1\" $STLE>\n";
	print "<option selected>$MEMBERTAG_START";	
	print "<option>00<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10\n";
	print "<option>11<option>12<option>13<option>14<option>15<option>16<option>17<option>18<option>19<option>20\n";
	print "<option>21<option>22<option>23<option>24<option>25<option>26<option>27<option>28<option>29<option>30\n";	
	print "<option>31<option>\n";	
	print "</select>\n\n";

	print ".<select name=\"STARTDATEMONAT\" size=\"1\" $STLE>\n";
	print "<option selected>$MEMBERMONAT_START";	
	print "<option>00<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10\n";
	print "<option>11<option>12\n";
	print "</select>\n\n";

	print ".<select name=\"STARTDATEJAHR\" size=\"1\" $STLE>\n";
	print "<option selected>$MEMBERJAHR_START";	

	if ($MEMBERJAHR_START eq "0000")
		{
		$MEMBERJAHR_START = "2006";
		}


	for ($j = $MEMBERJAHR_START; $j<= $MEMBERJAHR_START+15; $j++)
		{
		print "<option>$j";
		}
		
	print "</select>\n\n";

	print "</td>";
	print "<td>";
	#############

  	@datenmember = split(/\./, $MEMBER_ENDE);
			$MEMBERTAG_ENDE = $datenmember[0]; 
			$MEMBERMONAT_ENDE = $datenmember[1]; 
			$MEMBERJAHR_ENDE = $datenmember[2]; 						
	
#	print "$MEMBERTAG_START,$datenmember[1],";
	

#print "$DATUMHEUTE_12MON - $DATUMHEUTE_24MON";
	print "<font face=verdana,arial,helvetica size=2 color=#ffffff><b>bis zum</b> ($VARMONTH Monate)<br>";
	print "<select name=\"ENDEDATETAG\" size=\"1\" $STLE>\n";
	print "<option selected>$MEMBERTAG_ENDE";	
	print "<option>00<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10\n";
	print "<option>11<option>12<option>13<option>14<option>15<option>16<option>17<option>18<option>19<option>20\n";
	print "<option>21<option>22<option>23<option>24<option>25<option>26<option>27<option>28<option>29<option>30\n";	
	print "<option>31<option>\n";	
	print "</select>\n\n";

	print ".<select name=\"ENDEDATEMONAT\" size=\"1\" $STLE>\n";
	print "<option selected>$MEMBERMONAT_ENDE";	
	print "<option>00<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10\n";
	print "<option>11<option>12\n";
	print "</select>\n\n";

	print ".<select name=\"ENDEDATEJAHR\" size=\"1\" $STLE>\n";
	print "<option selected>$MEMBERJAHR_ENDE";	

	if ($MEMBERJAHR_ENDE eq "0000")
		{
		$MEMBERJAHR_ENDE = 2006;
		}

	for ($j = $MEMBERJAHR_ENDE; $j<= $MEMBERJAHR_ENDE+5; $j++)
		{
		print "<option>$j";
		}

	print "<option>$MEMBERJAHR_START";

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

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

	
	print "<br><input type=submit value=\"speichern\" $STLE>\n";	
	print "<input type=\"hidden\" name=\"USERID\" value=\"$ID\">\n\n";
		
#	print "Member:$MEMBER, Aktiv:$MEMBERTIMEAKTIV, - Start:$MEMBER_START - Ende:$MEMBER_ENDE";
	print "</td>";
	print "</form>";		
	print "</tr>";
	print "</table>";


	print "<table bgcolor=\"#cc0000\" width=\"100%\" height=\"30\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
	print "<tr>";

	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<a href=\"$cgiurl?action=edituser&ses=$SES&ID=$ID\" target=\"_blank\">Daten bearbeiten</a>";			
	print "</td>";

if ($BEWERBUNGTHEMENID)
	{
	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<a href=\"$DELETEURL?ID=$ID&action=delbew&thema=$BEWERBUNGTHEMENID\">Bewerbung zu ID:$BEWERBUNGTHEMENID löschen</a>";			
	print "</td>";
	}
	
	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<a href=\"$DELETEURL?ID=$ID\">Person aus Kartei löschen</a>";			
	print "</td>";

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

	print "[";		
	print "<a href=\"javascript:pophtml2('$cgiurl?action=showbewerungen&ses=$SES&ID=$ID', 700, 600)\">";
	print "alle Bewerbungen/Texte anzeigen</a> ($ANZAHLBEWERBUNGEN)]";
	print "</td>";				

	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<a href=\"http://www.flashmodels.de/cgi-bin/show.pl?p=$ID\" target=\"_blank\">öffentliches Profil öffnen</a>";			
	print "</td>";
	
	
	print "</tr>";
	print "</table>";

	print "<table bgcolor=\"#990000\" width=\"100%\" height=\"30\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
	print "<tr>";

    print "<form method=POST action=\"$cgiur?action=savepersonincasthema&ses=$SES\">\n";
	print "<td width=\"650\">";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<select name=\"SAVEUSERINBEWERBUNG\" size=\"1\" style=\"font-size: 10px; background: #cceaff; color: #000000;\">\n";
#	print "<option selected>bitte wählen";	
	print "<option>$SQLTHID\n";
	print "</select>\n\n";
	print "&nbsp;&nbsp;&nbsp;<input type=submit value=\"Person&nbsp;in&nbsp;Thema&nbsp;speichern/kopieren\" style=\"background: #cceaff; font-size: 10px; color: #000000;\">\n";	
	print "<input type=\"hidden\" name=\"USERID\" value=\"$ID\">\n\n";
	print "</td>";
	print "</form>";	

    print "<form method=POST action=\"$cgiur?$query_string\">\n";
	print "<td width=\"300\">";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<input type=submit value=\"Person-Infofeld&nbsp;bearbeiten\" style=\"background: #ffffff; font-size: 10px;\"> \n";	
	print "<input type=\"hidden\" name=\"SHOWINFOFORM\" value=\"1\">\n\n";
	print "</td>";
	print "</form>";	

if ($BEWERBUNGTHEMENID)
	{
    print "<form method=POST action=\"$cgiur?$query_string\">\n";
	print "<td width=\"300\">";
	print "<font face=verdana,arial,helvetica size=2 color=000000>";
	print "<input type=submit value=\"Themen-Infofeld&nbsp;bearbeiten\" style=\"background: #ffc559; font-size: 10px;\"> \n";	
	print "<input type=\"hidden\" name=\"SHOWINFOFORM\" value=\"1\">\n\n";
	print "<input type=\"hidden\" name=\"THEMENINFO\" value=\"1\">\n\n";
	print "</td>";
	print "</form>";	
	}

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

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


	
if ( ($INFOFELD) or ($FORM{'SHOWINFOFORM'} eq 1))
	{
#	print "$query_string";

if ($FORM{'THEMENINFO'} eq 1)
	{
	$bgcol = "#ffc559";
	}
	else
	{
	$bgcol = "#ffffff";
	}

	print "<table bgcolor=\"$bgcol\" width=\"800\" cellspacing=\"5\" cellpadding=\"5\" border=\"0\">";
	print "<tr>";
    print "<form method=POST action=\"$cgiur?$query_string\">\n";
	print "<td bgcolor=\"$bgcol\">";


#	print "$FORM{'SHOWBEWERBER'}<br>";
#	print "-$SQLTHEMENINFO-";


#if ($FORM{'SAVEINFOFORM'} eq 1)
#	{
#	print "<font face=verdana,arial,helvetica size=2 color=\"#009d00\">";
#	print "<b>Eintrag wurde gespeichert!</b><br>";
#	}

if ($FORM{'THEMENINFO'} eq 1)
	{
	print "<font face=verdana,arial,helvetica size=2 color=000000>";	
	print "<b>Themen - Infofeld zu dieser Person:</b><br>";
	print "<font face=verdana,arial,helvetica size=1 color=000000>";	
	print "(wird nur im entsprechenden Thema eingeblendet, soll bei Verwaltung helfen)<br>";
	$INFOFELD =	$SQLTHEMENINFO;
	$INFOFELD =~ s/<br>//g;
	}
	else
	{
	print "<font face=verdana,arial,helvetica size=2 color=000000>";	
	print "<b>Person - Infofeld zu dieser Person:</b><br>";
	}

	if ($FORM{'SHOWINFOFORM'} eq 1)
		{
		if ($FORM{'THEMENINFO'} eq 1)
			{
			}
			else
			{
			print "<font face=verdana,arial,helvetica size=1 color=000000>";	
			print "(wird immer bei Aufruf der Person eingeblendet)<br>";
			}
			
		print "<font face=verdana,arial,helvetica size=1 color=000000>";	
		print "<b>(Bitte den aktuellsten Eintrag immer ganz oben, hinter dem Datum und dem Benutzernamen eintragen!)</b><br>";
		print "<textarea cols=\"85\" rows=\"15\" name=\"INFOFELD1\" style=\"font-size: 12px;\">";

		print "$nurdatum, $CBENUTZERNAME: ";
		
if ($INFOFELD)
	{
		print "\n\n-----------------------\n$INFOFELD";
	}
	else
	{
		print "$INFOFELD";
	}

		print "</textarea>";
		
		print "</td>";
		print "<td valign=\"top\">";		
	    print "<p align=\"right\"><input type=button value=zurück onClick=history.back() style=\"background: Silver; font-size: 10px;\"></p> \n";	


		print "<input type=\"hidden\" name=\"SAVEINFOFORM\" value=\"1\">\n\n";

		if ($FORM{'THEMENINFO'} eq 1)
			{
			print "<input type=\"hidden\" name=\"THEMENINFO\" value=\"1\">\n\n";
			}
		print "<br><br><br><font face=verdana,arial,helvetica size=1 color=000000>";			
		print "<b>Die gemachten Angaben sind für Kunden nicht sichtbar!</b><br><br><br><br>";
		print "<input type=submit value=\"Eingabe&nbsp;speichern\" style=\"background: Silver; font-size: 10px;\"> \n";	
		}
		else
		{
		print "<font face=verdana,arial,helvetica size=2 color=000000>";	
		$INFOFELD =~ s/\n/<br>\n/g;
		print "$INFOFELD";		
		}
	

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


############################
if (($FORM{'THEMENINFO'} eq 1) or ($FORM{'SHOWINFOFORM'} eq 1))
	{
	}
	else
{
	if ($SQLTHEMENINFO) 
	{
	$bgcol = "#ffc559";
	print "<table width=\"800\" cellspacing=\"0\" cellpadding=\"5\" border=\"0\">";
	print "<tr>";
    print "<form method=POST action=\"$cgiur?$query_string\">\n";
	print "<td width=\"100\">&nbsp;</td>";
	print "<td bgcolor=\"$bgcol\">";


#	print "$FORM{'SHOWBEWERBER'}<br>";
#	print "-$SQLTHEMENINFO-";

	print "<font face=verdana,arial,helvetica size=2 color=000000>";	
	print "<b>Themen - Infofeld zu dieser Person:</b><br>";

#		$SQLTHEMENINFO =~ s/\n/<br>\n/g;
		print "$SQLTHEMENINFO";		

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

}





	

#&KUNDENANZ;
	
#	print "Benutzername: =";

#		print "$RECHTETHEMENID\n";
#		print "$RECHTEKUNDENNAME\n";
#		print "$RECHTETHEMENANSPRECHPARTNER\n";				
#		print "$RECHTETHEMENEMAIL\n";

if ( ($CHANGEMODUS eq 1) or ($SHOWPERSONDATAFLAG eq 1) )
	{
	$CMODUS = 2; #Freischalten der Daten
	}
	
	print "<center>";
	print "<table width=\"100%\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"#1e0d80\">\n";
	print "<tr>";
	print "<td width=\"580\" height=\"50\">";

	print "<font face=verdana,arial,helvetica size=1 color=silver>";

	if ($DATEN[2] ne $SHOWSESSION)
		{
	print "Benutzername: $CBENUTZERNAME<br>"; 
	print "Status: "; 
		}
		else
		{
		print "<font face=verdana,arial,helvetica size=2 color=silver>";
		if ($MEMBERPREMIUM eq 1)
			{
			print "$TEXT900 ";
			print "<b>Premium</b> $STAR$STAR$STAR";
			if ($SINGLE)
				{			
				print " | $HERZ3";
				}

			}
			else
			{
			print "$TEXT900 ";
			print "<b>Standard</b> $STAR";
			if ($SINGLE)
				{			
				print " | $HERZ3";
				}
			print "<font face=verdana,arial,helvetica size=1 color=silver><br>";			
			print "$TEXT901";
			}
		}

if ($DATEN[2] eq $mastersession)
	{
	print "Master - Vollversion";
	$LOGINUSER = 1;
	}


	if ($CMODUS eq 2)
		{
		print "Vollversion";
		$LOGINUSER =1; 			
		}
	if ($CMODUS eq 1){print "Demoversion";}	
	if ($CMODUS eq 3){print "Vollversion eingeschränkt";}	
	

	print "</td>";
	print "<td align=\"right\">";
	print "<p align=\"right\">";
if  ( ($RECHTEDRUCKEN eq 1) )
	{
	print "<a href=\"javascript:window.print()\" class=\"linkBig\"><font face=verdana,arial,helvetica size=2 color=$hell><b>Seite drucken</b></a>&nbsp;|&nbsp;";
	}
	else
	{
	if ($DATEN[2] ne $SHOWSESSION)
		{
		print "<font face=verdana,arial,helvetica size=2 color=\"silver\">";
		print "drucken u. markieren nicht möglich | ";
		}
	}


	print "<a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>";
	print "</p>";
	print "</td>";
	print "</tr>";
	print "</table>\n";

	
	
#### Überprüfen ob auch ein Eintrag bei flashModels vorhanden ist
$sqlbefehl="select ID, GESCHLECHT, VORNAME, NACHNAME FROM $STAMMDATENMODELS WHERE EMAIL = '$EMAIL'";
$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)
{
$FLASHID = $dbrow[0];
$FLASHGESCHLECHT = $dbrow[1];


if ($FLASHGESCHLECHT eq 'Frau')
	{
	$FLASHsqlbefehl="select COUNT(*) FROM $FRAUTABELLENNAME WHERE ID = '$FLASHID'";
	}

if ($FLASHGESCHLECHT eq 'Mann')
	{
	$FLASHsqlbefehl="select COUNT(*) FROM $MANNTABELLENNAME WHERE ID = '$FLASHID'";
	}	

	$FLASHsqlbefehl="select COUNT(*) FROM $TABELLENSEDCARDDATEN WHERE MODELID = '$ID'";

#print "$FLASHsqlbefehl";		
		
	$FLASHsth = $dbh->prepare($FLASHsqlbefehl); # SQL-Befehl vorbereiten
	$FLASHok=$FLASHsth->execute; #SQL-Befehl senden
	while (@FLASHdbrow = $FLASHsth->fetchrow_array)
	{
#	print "*******$FLASHdbrow[0]<br>";
	if ($FLASHdbrow[0] eq '0')
		{
		}
		else
		{
		print "<table bgcolor=\"Gray\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
		print "<tr>";
		print "<td>";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff><b>Sedcard</b>: ";
	
$LURL = "http://www.flashModels.de/p/$ID/index.html";
if ($LG eq "en") 
	{
	$LURL = "http://www.flashModels.net/p/$ID/index.html";
	}
if ($LG eq "br") 
	{
	$LURL = "http://www.flashModels.de/br/p/$ID/index.html";
	}


		print "<a href=\"$LURL\" target=\"_blank\">$LURL</a>";

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


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

}
$dbh->disconnect; # Von Datenbank abmelden		
########################################################	
	
	
	if ( ($DATEN[4] eq 'nolog') or ($SES eq $SHOWSESSION) )
		{
		}
		else
		{
		&logkartei;
		}
}

sub SHOWBOTTOMPERSON
{
	print "<table width=\"100%\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"#1e0d80\">\n";
	print "<tr>";
	print "<td align=\"right\" height=\"50\">";
	print "<p align=\"right\">";
#	print "<a href=\"javascript:window.print()\" class=\"linkBig\"><font face=verdana,arial,helvetica size=2 color=$hell><b>Seite drucken</b></a>&nbsp;|&nbsp;";
	print "<a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>";
	print "</p>";
	print "</td>";
	print "</tr>";
	print "</table>\n\n";

print "</td></tr>\n";
print "</table>\n\n\n";
### Ende Rahmen	
}



sub KUNDENANZ {

	#########
#print "Id =$ID";
if ($CMODUS eq 2)
{ # Modus 2
	$sqlbefehl="select BENUTZERNAME, DATUM FROM `$TABELLENNAMELOG` WHERE SHOWNID = '$ID'";
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

#print "SQL: -$IDX-<br>";	
	$SH = 0;
	while (@dbrow = $sth->fetchrow_array)
	{
	$SH=$SH+1;
	$BN = $dbrow[0];
	$DA = $dbrow[1];	

if ($SH eq '1')
	{
	print "<center><table width=800 cellspacing=0 cellpadding=0 border=0 bgcolor=\"#8080c0\">\n";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";	
	print "Diese Daten wurden weitergegeben an:<br>";
	print "</td></tr>";
	}

	print "<tr>\n";				
	print "<td>\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
	print "<b>$BN am $DA</b><br>";
	print "</td>\n";
	print "</tr>\n";				

	}

#	print "VOrhanden : -$VORHANDEN-";	
	$dbh->disconnect; # Von Datenbank abmelden			
	########
	print "</table></center><br>\n";
} # Modus 2


if ($MODUS eq 3)
{ # Modus 3
#print "-$CODE-";

	$sqlbefehl="select BENUTZERNAME, DATUM FROM `$TABELLENNAMELOG` WHERE SHOWNID = '$ID'";
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

#print "SQL: -$IDX-<br>";	
	$SH = 0;
	while (@dbrow = $sth->fetchrow_array)
	{
	$SH=$SH+1;
	$BN = $dbrow[0];
	$DA = $dbrow[1];	

#print "-$BN-$BENUTZERNAME-$SH-";
if ( ($SH eq '1') )
	{
	if ($BN eq $BENUTZERNAME)
		{
		$MOD3OK = '1'; 
		print "<center><table width=550 cellspacing=2 cellpadding=2 border=0 bgcolor=\"$modblau\">\n";
		print "<tr>";
		print "<td bgcolor=\"#b81616\">&nbsp;&nbsp;</td>";
		print "<td>";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";	
		print "Diese Daten wurden weitergegeben an ";
		print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
		print "<b>$BN am $DA</b><br>";
		print "<b>Bei Einsatz dieser Person, dies unbedingt flashModels mitteilen!</b>";
		print "</td></tr>";
		}
	}
	

	}

#	print "VOrhanden : -$VORHANDEN-";	
	$dbh->disconnect; # Von Datenbank abmelden			
	########
	print "</table></center>\n";
} # Modus 3





####### Rechte einlesen

	$sqlbefehl="select THEMENID, KUNDENNAME, ANSPRECHPARTNER, KUNDENEMAIL, DATENSICHTBAR, DRUCKEN FROM $CASTINGBEWERBUNGRECHTE WHERE THEMENID = '$BEWERBUNGTHEMENID'";
	$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)
		{
		$RECHTETHEMENID = $dbrow[0];
		$RECHTEKUNDENNAME = $dbrow[1];
		$RECHTETHEMENANSPRECHPARTNER = $dbrow[2];				
		$RECHTETHEMENEMAIL = $dbrow[3];						
		$DATENSICHTBAR = $dbrow[4];	
		$RECHTEDRUCKEN = $dbrow[5];							
		}
#print "$BEWERBUNGTHEMENID, $RECHTEKUNDENNAME $RECHTETHEMENANSPRECHPARTNER";

if ($DATENSICHTBAR eq 1)
	{
	$sqlbefehl="select COUNT(*) FROM $CASTINGBEWERBUNG WHERE CASTID = '$ID' AND THEMENID = '$BEWERBUNGTHEMENID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

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

#	print "Bewerbung vorhanden : -$CHANGE-";

	if ($CHANGE eq 0)
		{
		}
		else
		{
		$CHANGEMODUS = 1;
		}
	}

#### Ermitllen, ob das Flag für die Daten gesetzt ist
$sqlbefehl="select SHOWFLAG FROM $CASTINGBEWERBUNG WHERE CASTID = '$ID' and THEMENID = '$BEWERBUNGTHEMENID'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

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




sub TIMEOUT
	{
   # Print Beginning of HTML
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"red\">TIME OUT wurde angezeigt";
	&LOG;


   print "Content-Type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body background=\"$HGPIC\" bgproperties=fixed bgcolor=$hg text=ffffff link=ffffff vlink=ffffff alink=ffffff>\n";
   print "<center>";
   print "<font face=verdana,helvetica,arial size=3 color=$hell>";


   print "<br><br><table background=\"http://www.flashModels.de/casting/grafik/castingtext-hintergrund.jpg\" width=520 cellspacing=5 cellpadding=0 border=\"1\" bordercolor=\"Black\" style=\"border-collapse: collapse\">\n";
   print "<tr>\n";
   print "<td><br><font color=\"#000000\">\n";

   print "$TEXT830";
   
	print "<br><br><br><br><br></font>";
   print "</td>";
 
   print "</tr>\n";
   print "</table><br><br>\n";	
	&BOTTOM;
	
   exit;
}


sub NOLOGIN
	{
   # Print Beginning of HTML
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"red\">NOLOGIN wurde angezeigt, keine Berechtigung";
	&LOG;


#   print "Content-Type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body background=\"$HGPIC\" bgproperties=fixed bgcolor=$hg text=ffffff link=ffffff vlink=ffffff alink=ffffff>\n";
   print "<center>";
   print "<font face=verdana,helvetica,arial size=3 color=$hell>";


   print "<table width=520 cellspacing=0 cellpadding=0 border=0>\n";
   print "<tr>\n";
   print "<td width=4 bgcolor=$dunkel>&nbsp;</td>\n";

   print "<td bgcolor=$dunkel><br>\n";
   print "<font face=verdana,helvetica,arial size=2 color=red>";  
   print "<b>ERROR</b>";
   print "<font face=verdana,helvetica,arial size=2 color=$hell>";  
   print "<br><br>Sie haben keine Berechtigung, diese Seite zu öffnen!<br>";
	print "<br><br>";
	print "<br><br><br><br><br>";
   print "</td>";
  
  
   print "<td width=5 bgcolor=$dunkel>&nbsp;</td>\n";
   print "</tr>\n";
   print "</table>\n";   

   
	print "<table bgcolor=\"$hell\" width=\"520\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
	print "<font face=verdana,arial,helvetica size=1 color=$hell>&nbsp;<br>";
	print "</td></tr>";
	print "</table>";
	
	&BOTTOM;
	
   exit;
}


sub LOGOUT
{
	### Überprüfung ob ID schon vorhanden
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
	
	# Löschen der abgelaufenen Sessions
	$dbh->do("DELETE FROM $TABELLENNAMECASTINGSESSION WHERE ( ((TO_DAYS(NOW()) - TO_DAYS(CASTINDATUM))*24*60*60) + (TIME_TO_SEC(NOW()) - TIME_TO_SEC(CASTINDATUM)) ) > $SESSEC ");	

	# Löschen der Session und der ID
	$dbh->do("DELETE FROM $TABELLENNAMECASTINGSESSION WHERE CASTINSESSION = '$SES'");	
	$dbh->do("DELETE FROM $TABELLENNAMECASTINGSESSION WHERE CASTINGID = '$ID'");		
	
	$dbh->disconnect; # Von Datenbank abmelden		
}

sub LOGOUTTEXT
{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"red\">LOGOUT wurde geklickt";
	&LOG;


   print "<br><br><table background=\"http://www.flashModels.de/casting/grafik/castingtext-hintergrund.jpg\" width=520 cellspacing=5 cellpadding=0 border=\"1\" bordercolor=\"Black\" style=\"border-collapse: collapse\">\n";
   print "<tr>\n";
   print "<td><br><font color=\"#000000\">\n";

	print "$TEXT700";
	print "<br><br><br><div align=\"center\"><a href=\"javaScript: self.close();\"><b style=\"color: Black;\">$TEXT915</b></a></div>";	

	print "<br><br><br><br><br></font>";
   print "</td>";
 
   print "</tr>\n";
   print "</table><br><br>\n";   
}

sub SESSIONPROOF
{
#   print "Content-type: text/html\n\n";
	### Überprüfung ob ID schon vorhanden
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
	
	# Löschen der abgelaufenen Sessions
	$dbh->do("DELETE FROM $TABELLENNAMECASTINGSESSION WHERE ( ((TO_DAYS(NOW()) - TO_DAYS(CASTINDATUM))*24*60*60) + (TIME_TO_SEC(NOW()) - TIME_TO_SEC(CASTINDATUM)) ) > $SESSEC ");	

	$sqlbefehl="select CASTINGID, CASTINSESSION FROM $TABELLENNAMECASTINGSESSION WHERE CASTINSESSION = '$SES'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

#   print "Content-type: text/html\n\n";	
#	print "----<br>";
	while (@dbrow = $sth->fetchrow_array)
	{
	$CASTINGID = $dbrow[0];
	$CASTINSESSION = $dbrow[1];
#	print "$CASTINGID-$CASTINSESSION- | -$ID-<br>";
	}		

	if ( ( ($CASTINGID eq $ID) and ($CASTINSESSION eq $SES) ) or ($SES eq $mastersession) )
		{
#		print "$CASTINGID-$CASTINSESSION-<br>";		
		$LOGINUSER = 1;
		}
		else
		{
#		print "Timeout!!!";
		&TIMEOUT;
		}
	
	$dbh->disconnect; # Von Datenbank abmelden		
}


sub TOP
{
#	$ID = $MID;
if ( ($DATEN[1] eq "LOGINOK") and ($NOWATCHME eq 0) )
	{
	$SETCOOKIE = '1'; # Cookie wird gesetzt
	}
	
if ( ($DATEN[4] eq "watchon") or ($NOWATCHME eq 0) )
	{
	$SETCOOKIE = 1;
	$COOKINHALTML = "$ID";
	$COOKINHALTPW = "$DBCODE";
	}

if ($FORM{'EINFUG'} eq '3') # Wenn ein Neueintrag mit einer Bewerbung eingefügt wird, dann kein Cookie
	{
	$SETCOOKIE = 0;
	}
	
if ($DATEN[4] eq "watchoff")
	{
	$SETCOOKIE = "delete";
	$COOKINHALTML = "";
	$COOKINHALTPW = "";
	}	
	
######## Anlegen eines Cookies ##################################
	
#if ($SETCOOKIE eq 1)
#	{
#	$COOKINHALTML = "$ID";
#	$COOKINHALTPW = "$DBCODE";
#
#	}

if ($SETCOOKIE eq "delete")	
	{
	$COOKINHALTML = "";
	$COOKINHALTPW = "";
#	$COOKINHALTCODE = "";
	$SETCOOKIE = 1;
	}

$COOKNAMEML ="CDB";
#$COOKINHALTML = "$FORM{'EMAIL'}";
$cookieML   = new CGI::Cookie(-name => $COOKNAMEML, -value => $COOKINHALTML, -expires => '+2y');
#print header(-COOKIE => $cookieML,-COOKIE => $cookieML);
#print header(-COOKIE => $cookie);

$COOKNAMEPW ="fmCO";
#$COOKINHALTPW = "$FORM{'PASSWORT'}";
$cookiePW   = new CGI::Cookie(-name => $COOKNAMEPW, -value => $COOKINHALTPW, -expires => '+2y');

$COOKNAMEBOOKEDPREMIUM ="bp";
$COOKNAMEBOOKEDPREMIUMINHALT = "**$BOOKEDPREMIUM";
$cookieBOOKEDPREMIUM   = new CGI::Cookie(-name => $COOKNAMEBOOKEDPREMIUM, -value => $COOKNAMEBOOKEDPREMIUMINHALT, -expires => '+2y');

$COOKNAMEID ="id";
$COOKNAMEIDINHALT = "$ID";
$cookieID   = new CGI::Cookie(-name => $COOKNAMEID, -value => $COOKNAMEIDINHALT, -expires => '+2y');


#$COOKNAMECODE ="CDBCODE";
##$COOKINHALTPW = "$FORM{'PASSWORT'}";
#$cookieCODE   = new CGI::Cookie(-name => $COOKNAMECODE, -value => $COOKINHALTCODE, -expires => '+2y');

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

#################################################################
#print "SETCOOKIE: -$SETCOOKIE- NO Watchme:-$NOWATCHME- -$BOOKEDPREMIUM- Showpublic: -$SHOWPUBLIC- -$PASSWORT- -$LOCKFOTO-";
#print "<br>$cookieML<br><br>$COOKNAMEPW<br><br>$cookieBOOKEDPREMIUM<br><br>$cookieID<br><br>";
#print "-$SETCOOKIE-";


   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
   print "<html>\n";
   
   print "<head>\n";

	$HEAD =~ s/\[VORNAME\]/$VORNAME/g;   
	$HEAD =~ s/\[WOHNORT\]/$WOHNORT/g;
	
	print "$HEAD";

   
#	print "-$DATEN[1]- $DATEN[4]- Sprache: -$LG-";
	
	print "<script language=\"JavaScript\">\n";
	print "<!--\n";
	print "function gfenster2(datei2)\n";
	print "{\n";
	print "grafik2=window.open(datei2,\"datenfenster\", \"width=750,height=600,toolbar=0,location=0,directories=0,status=1,menubar=0,resizable=1,scrollbars=1,copyhistory=0\");\n";
	print "grafik2.focus();\n";
	print "}\n";
	print "//-->\n";

	print "</script>\n";

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

if ( ($RECHTEDRUCKEN eq 1) or ($DATEN[2] eq $mastersession) or ($DATEN[2] eq $SHOWSESSION) or ($DATEN[1] eq 'chmember') or ($DATEN[1] eq 'LOGINOK') or ($DATEN[1] eq 'start') or ($DATEN[1] eq 'startseite') or ($DATEN[1] eq 'myscouterid')
 or ($DATEN[1] eq 'fotos')  or ($DATEN[1] eq 'delphoto') or ($DATEN[1] eq 'edituser') or ($DATEN[1] eq 'options') or ($DATEN[1] eq 'delcastingpage') or ($DATEN[1] eq 'delcastingpageOK')
  or ($DATEN[1] eq 'logout')  or ($DATEN[1] eq 'savedata') or ($DATEN[1] eq 'seddata') or ($DATEN[1] eq 'saveSEDdata') or ($DATEN[1] eq 'sedfoto') or ($SHOWPERSONDATAFLAG eq 1) or ($FORM{'THEMENID'}) )
	{
		if ($SHOWPERSONDATAFLAG eq 1)
			{
			$RECHTEDRUCKEN = 1;
			}
	}
	else
	{		
    $BODYZUSATZ = "onMouseDown=\"return DoFalse();\" onKeyPress=\"return DoFalse();\"";
# Rechte Maustaste wird ausgeschaltet
	print "<script language=JavaScript>\n";
	print "var message=\"Es ist nicht gestattet die Daten und Bilder zu kopieren und auszudrucken!\";\n";
	print "function clickIE() {if (document.all) {alert(message);return false;}}\n";
	print "function clickNS(e) {if \n";
	print "(document.layers||(document.getElementById&&!document.all)) {\n";
	print "if (e.which==2||e.which==3) {alert(message);return false;}}}\n";
	print "if (document.layers) \n";
	print "{document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS;}\n";
	print "else{document.onmouseup=clickNS;document.oncontextmenu=clickIE;}\n";
	print "</script>\n";

### Markierungsmöglichkeit ausschalten
	print "<script language=\"JavaScript1.2\">\n";
	print "function disableselect(e){\n";
	print "return false\n";
	print "}\n";
	print "function reEnable(){\n";
	print "return true\n";
	print "}\n";
	print "document.onselectstart=new Function (\"return false\")\n";
	print "if (window.sidebar){\n";
	print "document.onmousedown=disableselect\n";
	print "document.onclick=reEnable\n";
	print "}\n";
	print "</script>\n";


	print "<link rel=\"stylesheet\" media=\"print, embossed\" href=\"../../../casting/styles/druckunsichtbar.css\">";
	}
	
	print "<link href=\"../styles/castingedit.css\" rel=\"stylesheet\" type=\"text/css\">\n";		
	print "<script language=\"JavaScript\" src=\"../styles/skript.js\" type=\"text/javascript\">\n</script>\n\n";
	print "<script langauge=\"JavaScript\" src=\"../styles/overlib/overlib.js\"></script>\n\n";
	
#	print "<script language=\"JavaScript\" src=\"../../../casting/styles/skript.js\" type=\"text/javascript\">\n</script>\n\n";
	
    print "<body bgcolor=\"$hg\" background=\"$HGPIC\" bgproperties=fixed text=\"ffffff\" link=\"ffffff\" vlink=\"ffffff\" alink=\"ffffff\" leftmargin=\"0\" topmargin=\"0\" $BODYZUSATZ>\n\n\n";
#	print "-$CMODUS-$MODUS-$mastersession-";
#	print "<h5>Test</h5>";
	print "<font face=verdana,arial,helvetica size=1 color=ffffc8><center>";    
#	print "$RECHTEDRUCKEN";
#	print "Session: $SES | ID : $ID";

}

sub BOTTOM
{
   print "$TEXTHAUPTSEITE";
   print "</center><br><br><br><br><br>\n\n";
   
   print "<iframe src=\"http://www.flashmodels.de/casting/cgi-bin/memberonline.pl\" name=\"showmembers\" width=\"1\" height=\"1\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"></iframe>\n\n";

if ($SES eq $SHOWSESSION)
{
if ($LG eq "en")
{
print "<script src=\"http://www.google-analytics.com/urchin.js\" type=\"text/javascript\">
</script>
<script type=\"text/javascript\">
_uacct = \"UA-80694-2\";
urchinTracker();
</script>\n\n";
}  
else
{
print "\n\n<div align=\"center\"><iframe src=\"http://www.flashmodels.de/include/pagerank.php\" width=\"1\" height=\"1\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"></iframe></div>\n\n";	

print "<script src=\"http://www.google-analytics.com/urchin.js\" type=\"text/javascript\">
</script>
<script type=\"text/javascript\">
_uacct = \"UA-80694-1\";
urchinTracker();
</script>\n\n";
}  


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



sub MENU
{

	print "<table bgcolor=\"gray\" width=\"100%\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\" align=\"center\">";
	print "<tr height=\"50\">\n";

	print "<td>\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "&nbsp;";
	print "</td>\n";

$STRING = "&ses=$SES&ID=$ID&var=&bew=&lg=$LG";


#	print "$STRING";
	
	print "<td width=\"60\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "&nbsp;";
	print "</td>\n";

$DESIGNURL = "http://www.flashmodels.de/profile/myprofiles-$ID.html";

if ($LG eq "en")
{
$DESIGNURL = "http://www.flashmodels.net/profile/myprofiles-$ID.html";
}

if ($LG eq "br")
{
$DESIGNURL = "http://www.flashmodels.de/br/perfil/myprofiles-$ID.html";
}

	print "<td width=\"830\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "<a href=\"$cgiurl?action=start$STRING\" class=\"topmenu\">$MENU10</a>";

if ($SHOWPUBLIC eq 1)
	{
	print " | <a href=\"$DESIGNURL\" class=\"topmenu\" target=\"_blank\">Designs</a>";
	print "&nbsp;<img src=\"http://www.flashmodels.de/ger/graf/new3-hori-blink.gif\" border=\"0\" alt=\"\">";
	}
	
	print " | <a href=\"$cgiurl?action=fotos$STRING\" class=\"topmenu\">$MENU20</a>";
	print " | <a href=\"$cgiurl?action=edituser$STRING\" class=\"topmenu\">$MENU30</a>";
	print " | <a href=\"$cgiurl?action=options$STRING\" class=\"topmenu\">$MENU40</a>";
	print " | <a href=\"$cgiurl?action=logout$STRING\" class=\"topmenu\">$MENU50</a>";
	print "</td>\n";

$CHOOSELGMENU = "<a href=\"$cgiurl?action=startseite&ses=$SES&id=$ID&var=&bew=&lg=en\" style=\"color: Black; font-size: 10px;\"><img src=\"$FLAGEN\" border=\"0\" alt=\"English\" align=\"middle\"></a> 
<a href=\"$cgiurl?action=startseite&ses=$SES&id=$ID&var=&bew=&lg=br\" style=\"color: Black; font-size: 10px;\"><img src=\"$FLAGBR\" border=\"0\" alt=\"Portugu&ecirc;s\" align=\"middle\"></a><br>";

if ($LG eq "en")
{
$CHOOSELGMENU = "<a href=\"$cgiurl?action=startseite&ses=$SES&id=$ID&var=&bew=&lg=\" style=\"color: Black; font-size: 10px;\"><img src=\"$FLAGGER\" border=\"0\" alt=\"deutsch\" align=\"middle\"></a> 
<a href=\"$cgiurl?action=startseite&ses=$SES&id=$ID&var=&bew=&lg=br\" style=\"color: Black; font-size: 10px;\"><img src=\"$FLAGBR\" border=\"0\" alt=\"portugu&ecirc;s\" align=\"middle\"></a><br>";
}

if ($LG eq "br")
{
$CHOOSELGMENU = "<a href=\"$cgiurl?action=startseite&ses=$SES&id=$ID&var=&bew=&lg=\" style=\"color: Black; font-size: 10px;\"><img src=\"$FLAGGER\" border=\"0\" alt=\"deutsch\" align=\"middle\"></a> 
<a href=\"$cgiurl?action=startseite&ses=$SES&id=$ID&var=&bew=&lg=en\" style=\"color: Black; font-size: 10px;\"><img src=\"$FLAGEN\" border=\"0\" alt=\"englisch\" align=\"middle\"></a><br>";
}
	
	print "<td width=\"60\" align=\"right\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "$CHOOSELGMENU";
	print "</td>\n";

	
	print "<td>\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "&nbsp;";
	print "</td>\n";
	
	print "</tr>\n";
	print "</table>";

#	print "$MODEL, $LAND";

if ($MODEL eq 1)
	{
	print "<table width=\"800\" cellspacing=\"0\" cellpadding=\"4\" border=\"0\" align=\"center\">";
	print "<tr height=\"30\">\n";
	print "<td width=\"650\" valign=\"top\" align=\"left\" bgcolor=\"$MBGCOLOR\">\n";	
	print "<div align=\"center\">";

	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";
	print "<a href=\"$cgiurl?action=seddata$STRING\" class=\"topmenu\">$MENU100</a> | ";
	print "<a href=\"$cgiurl?action=sedfoto$STRING\" class=\"topmenu\">$MENU101</a> | ";
	print "<a href=\"$cgiurl?action=fotos&ses=$SES&ID=$ID&var=modelfoto&bew=&lg=$LG\" class=\"topmenu\">$MENU102</a> $NEWHORI";
#	print "<a href=\"$cgiurl?action=sedoption$STRING\" class=\"topmenu_souter\">Sedcard-Einstellungen</a>";	
	print "</font>";
	print "</div>";
	print "</td>";
	print "<td>&nbsp;</td>";
	print "</tr>";
	print "</table>";
	}
	else
	{
		print "<table width=\"800\" cellspacing=\"0\" cellpadding=\"4\" border=\"0\" align=\"center\">";
		print "<tr height=\"30\">\n";
		print "<td width=\"550\" valign=\"top\" align=\"left\" bgcolor=\"$MBGCOLOR\">\n";	
		print "<div align=\"center\">";
	
		print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";
	if ( ($LG eq "") )
		{
		print "<a href=\"http://www.flashmodels.de/ger/bewerben/bewerben.htm\" class=\"topmenu\" target=\"_blank\">Profi Model-Sedcard erstellen</a> | ";
		print "<a href=\"http://www.flashmodels.de/casting/index.php?page=m_preise\" class=\"topmenu\" target=\"_blank\">Preisliste anzeigen</a>";
		}

	if ( ($LG eq "br") )
		{
		print "<a href=\"http://www.flashmodels.de/bewerben/bewerbungsformular.php?lg=br&land=$LAND\" class=\"topmenu\" target=\"_blank\">Criar Sedcard-Modelo Profissional no Model-Service</a>";
#		print "<a href=\"http://www.flashmodels.de/casting/index.php?page=m_preise\" class=\"topmenu\" target=\"_blank\">Preisliste anzeigen</a>";
		}		

		print "</font>";
		print "</div>";
		print "</td>";
		print "<td>&nbsp;</td>";
		print "</tr>";
		print "</table>";


	}


$MSBGCOLOR = "#0000a4";
if ($MODELSCOUTER eq 1)
	{
	print "<table width=\"800\" cellspacing=\"0\" cellpadding=\"4\" border=\"0\" align=\"center\">";
	print "<tr height=\"10\">\n";
	print "<td>&nbsp;</td>";
	print "<td width=\"430\" valign=\"top\" align=\"right\" bgcolor=\"$MSBGCOLOR\">\n";	
	print "<font face=verdana,arial,helvetica size=1 color=\"ffffff\">";
	print "<a href=\"$cgiurl?action=myscouterid$STRING\" class=\"topmenu_souter\">Deine ScouterID</a> | ";
	print "<a href=\"$cgiurl?action=kontostand$STRING\" class=\"topmenu_souter\">Kontostand</a> | ";
	print "<a href=\"$cgiurl?action=richtlinien$STRING\" class=\"topmenu_souter\">Richtlinien</a>";	
	print "</font>";
	print "</td>";
	print "</tr>";
	print "</table>";
	}


if ( ($DATEN[1] ne "seddata") and ($DATEN[1] ne "sedfoto") and ($DATEN[1] ne "saveSEDdata") and ($DATEN[4] ne "modelfoto") )
	{	
	print "<table width=\"800\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
	print "<tr><td valign=\"top\" align=\"right\">";
	print "<font face=verdana,arial,helvetica size=1 color=\"000000\"><b>$TEXTb920";	

		if ($MEMBERPREMIUM eq 1)
			{
			print "Premium $STAR$STAR$STAR ";
			}
			else
			{
			print "Standard $STAR ";
			}	

		if ($PUBLICSTATUS eq '1')
			{	
			print "$TEXTb921</font>";
			}
			else
			{
			print "$TEXTb922";
			}
	print "</b></td>\n";
	
	print "</tr>\n";
	print "</table>";
}

}




sub FOTOS
{
	$BCHGCOL = "#000000";
if ( ($DATEN[4] eq "modelfoto") or ($CHANGEMODELFOTOS eq 1) )
	{
	$CHANGEMODELFOTOS = 1;
	$BCHGCOL = $MBGCOLOR;
	$grau = $MBGCOLOR;
	}

	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#fcaf10\">Fotoseite wurde geöffnet $CHANGEMODELFOTOS";
	&LOG;

#	print "-$CHANGEMODELFOTOS-";

	
		print "<table bgcolor=\"$BCHGCOL\" width=\"800\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";
		print "<font face=verdana,arial,helvetica size=2 color=ffffc8><br>";

if ($CHANGEMODELFOTOS eq 1)
	{
	print "$TEXT450";
	}
	else
	{
	print "$TEXT400";
	}


		print "<br><br>";
#   print "ses:-$SES-";
		print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
			print "<tr>";

		    print "<td valign=\"top\" bgcolor=\"$grau\">";


			
	print "<table width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
	print "<tr>";
	   print "<td valign=\"top\">";			
	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
if ($CHANGEMODELFOTOS eq 1)
	{
	print "$GO Foto ist <b>öffentlich</b> in Deiner Sedcard im Modelservice zu sehen<br>";
	print "$STOPP Foto ist <b>nicht öffentlich</b> in Deiner Sedcard im Modelservice zu sehen";	
	}
	else
	{
	print "$GO Foto ist <b>öffentlich</b> auf der Castingseite/Community zu sehen<br>";
	print "$STOPP Foto ist <b>nicht öffentlich</b> auf der Castingseite/Community zu sehen";	

	}
	print "</td>";
    print "<td align=\"right\">";				
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "<a href=\"$cgiurl?action=fotos&ses=$SES&ID=$ID&var=$DATEN[4]&bew=&lg=$LG\"><b>$TEXT405</b></a>&nbsp;&nbsp;&nbsp;";
	print "</td>";
	print "</tr>";
	print "</table>";

		print "\n\n<table border=\"0\" cellspacing=\"5\" cellpadding=\"5\">";
		print "<tr>\n";


	if ($MEMBERPREMIUM eq 1)
		{
		$ANZAHLFOTOS = 14;
		}
		else
		{
		$ANZAHLFOTOS =4;
		}
		$ANZAHLFOTOS = 14;
		$BILDBREITE = 100; # in Pixel

	if ($CHANGEMODELFOTOS eq 1)
		{
		$ANZAHLFOTOS = 19;
		}
		
		for($b=0; $b<=$ANZAHLFOTOS; $b++)
			{
			$bz++;
			$bp1 = $b+1;
			
			if ($bz eq "6")
				{
				print "</tr>\n\n<tr>\n";
				$bz=1;
				}

			if ( ($b eq 0) and ($CHANGEMODELFOTOS ne 1) )
				{
				print "<td width=\"220\" valign=\"top\" bgcolor=\"#660000\">";
				}
				else
				{
				print "<td width=\"220\" valign=\"top\" bgcolor=\"Black\">";
				}				


			print "<div align=\"center\">";
			print "<font face=verdana,arial,helvetica size=1 color=$hell>";
#			print "$bz, $b";

			if ( ($b eq 0) and ($CHANGEMODELFOTOS ne 1) )
				{
				print "$TEXT410</b>:<br>";
				}
				else
				{
				print "$TEXT411 $bp1:<br>";
				}

$photoses = "&ses=$SES";

			if ($b eq 0)
				{
				$BILD = "$REAL/casting/kartei/foto/$ID.jpg";
				$REALBILD="$phpfotourl?castid=$ID$photoses";
				$BILD = "$REAL/casting/kartei/foto/$ID.jpg";
				}
				else
				{
				$BILD = "$REAL/casting/kartei/foto/$ID-$b.jpg";
				$REALBILD="$phpfotourl?castid=$ID$photoses&pic=$ID-$b";				
				$BILD = "$REAL/casting/kartei/foto/$ID-$b.jpg";
				}

					
if ($CHANGEMODELFOTOS eq 1)				
	{
	$BILD = "$REAL/p/$ID/modelphoto-$b.jpg";
	$REALBILD="http://www.flashmodels.de/p/$ID/modelphoto-$b.jpg";					
	}
				
#print "-$REALBILD-";				
		$width1 = "";
		$height1 = "";
		$PIC = "";
		open (PIC, "<" . $BILD);
		@PIC=<PIC>;
		$PIC=@PIC;
		close (PIC);				


#print "$PIC-$MEMBERPREMIUM-";
	$showfl = "$STOPP";
if ( ($SHOWPUBLIC eq 1) and ($PIC ne 0) )
	{
	$showfl = "$GO";
	}

if ( ($SHOWPUBLIC eq 1) and ($b >= 2) and ($MEMBERPREMIUM ne "1") )
	{
	$showfl = "$STOPP";
	}	

if ( ($SHOWPUBLIC eq 1) and ($PIC eq 0) and ($b >= 5) and ($MEMBERPREMIUM eq 1) )
	{
	$showfl = "";
	}		

if ($CHANGEMODELFOTOS eq 1)
	{
	$showfl = "";
	}	

if ( ($CHANGEMODELFOTOS eq 1) and ($PIC ne 0) )
	{
	$showfl = "$GO";
	}	
	
	print "<br>$showfl<br><br>";	
			#($width1,$height1) = imgsize($BILD); 
	if ($PIC ne 0)
		{
		   	$image = GD::Image->newFromJpeg($BILD);
			($width1,$height1) = $image->getBounds();
		}
#		print "$BILD<br>-$PIC-<br>-$width1- -$height1-<br>";		
	
			if ( ($width1 eq '') or ($height1 eq '') )
				{
				print "<br><br><br>$TEXT415<br><br>";

			if ( ($b eq 0) and ($CHANGEMODELFOTOS ne 1) )
				{
				print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
				print "<b>$TEXT416</b>";
				}				
#print "---$SES---";
				print "<font face=verdana,arial,helvetica size=1 color=$hell>";
				print "<br><br>";
    
	
				if ( ($CHANGEMODELFOTOS eq 1) or ($b <= "4") or ( ($b >= "5") and ($MEMBERPREMIUM == "1") ) )
					{
					print "<a href=\"javascript:gfenster2('$UPLOADURL?ID=$ID&CHFOTO=$b&ses=$SES&lg=$LG&model=$CHANGEMODELFOTOS')\">";
					print "<b>$TEXT417</b></a>";
					}
					else
					{
					if ($SQLALTER >= "18")
						{
						print "<b>Hochladen nicht möglich, da kein<br><a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=$DATEN[5]&lg=$LG\">Premium-Mitglied</a></b>";
						}
					}
				print "<br><br>";	
				}				
				else
				{
				$FAKTOR=$width1/$BILDBREITE;
#				$FAKTOR=2;				
				$width1_thumb=$width1/$FAKTOR;
				$height1_thumb=$height1/$FAKTOR;

#			print "$BILD<br>";
#			print "$width1,$height1<br>";
#				print "-$REALBILD-<br>";
if ($b eq 'x0')
{
		$maxwidth = 90;
	if ($width1_thumb >= $maxwidth)
		{
		$cut = $FAKTOR * $maxwidth;
#		print "*-$cut-<br>";
		$CUTW = "&cutw=$cut";
		$width1_thumb = $cut/$FAKTOR;
		$REALBILD = "$REALBILD$CUTW";
		}
		else
		{
		$CUTW = "";
		}
}

				print "<img src=\"$REALBILD\" border=\"\" alt=\"\" width=\"$width1_thumb\" height=\"$height1_thumb\">";
				print "<font face=verdana,arial,helvetica size=1 color=$hell>";


				if ( ($b <= "4") or ( ($b >= "5") and ($MEMBERPREMIUM == "1") ) )
				{
				print "<br>&nbsp;<a href=\"javascript:gfenster2('$UPLOADURL?ID=$ID&CHFOTO=$b&ses=$SES&lg=$LG&model=$CHANGEMODELFOTOS')\">";
				print "<br><b>$TEXT418</b></a><br><br>";	
				}
				else
				{
				print "<br><br>";
				}

			if ( ($b eq 0) and ($CHANGEMODELFOTOS ne 1) )
				{
				}
				else
				{
				print "<a href=\"$cgiurl?action=delphoto&ses=$SES&ID=$ID&DELFOTO=$b&bew=$DATEN[4]&lg=$LG\" style=\"color: Red;\">$TEXT419</a>";
				}
				print "<br><br>";
				print "</div>";
				}
			print "</td>\n\n";
			}
		print "</tr>\n";
		print "</table>\n\n";
	
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "<p align=\"right\">";
	print "<a href=\"$cgiurl?action=fotos&ses=$SES&ID=$ID&var=$DATEN[4]&bew=&lg=$LG\"><b>$TEXT405</b></a>&nbsp;&nbsp;&nbsp;";
	print "</p>";

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

		print "</table>";

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


sub SAVETEXT
	{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#ffff00\">Daten wurden gespeichert";
	if ($VIDEOLINK1)
		{
		$LOGTEXT = "$LOGTEXT<br>VIDEO: <a href=\"$GOTOURL?$VIDEOLINK1\" target=\"_blank\"><font color=\"$VBG\"> $VIDEOTITEL1 </a>";
		}
	&LOG;

	print "<table bgcolor=\"#000000\" width=\"$RAHMEN\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";

	print "$TEXTEMAILFOUND";

	print "$TEXT570";

	if ( ($LAND eq "Deutschland") or ($LAND eq "Österreich") or ($LAND eq "Schweiz") )
		{
		$SHOWPREMIUMNOW = 1;
		}
		else
		{
		$SHOWPREMIUMNOW = 0;
		}
		
			if ($SQLALTER >= '18')
				{
				if ( (($PUBLICSTATUS eq '0') and ($MEMBERPREMIUM ne '1')) or (($PUBLICSTATUS eq '1') and ($MEMBERPREMIUM ne '1')) )
					{
					if ( ($SHOWPREMIUMNOW eq 1) and ($ANTRAGMEMBER eq 0) )
						{
						print "<br><br><font color=\"silver\" size=\"3\"><div align=\"center\">";
#						print "<a href=\"http://www.flashmodels.de/casting/index.php?page=preise\" target=\"_blank\"><img src=\"http://www.flashmodels.de/casting/grafik/button/aktionbis311206_3.gif\" border=\"0\" alt=\"\"><b>mehr Informationen</b></a><br>";
#						print "<br><font color=\"#ffffff\" size=\"2\">Für <s><b>3,32 Euro pro Monat</b></s> <b>1,66 Euro pro Monat</b> kannst Du sämtliche Daten sichtbar schalten!</font><br><br>";
						print "<br><font color=\"#ffffff\" size=\"2\">Schalte jetzt sämtliche Daten frei!</font><br>";
						print "<a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=&lg=$LG\" style=\"color: #ffaf0a;\"><b>>>$TEXTa935</b><<</a></font>";
						print "<br><font color=\"#ffffff\" size=\"2\">[ $TEXTa936 ]</font></div>";
						}
					}
				}
	
	print "</td></tr>";
	print "</table><br><br>";
	}


sub STARTTEXT
	{

	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=lime>LOGIN - Startseite";
	&LOG;

	print "<table bgcolor=\"#000000\" width=\"800\" height=\"250\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td>";

	$TEXT200 =~ s/\[VORNAME\]/$VORNAME/g;	
	$TEXT200 =~ s/\[NACHNAME\]/$NACHNAME/g;	

	print "$TEXT200";

if ( ( ($LAND eq "Deutschland") or ($LAND eq "Österreich") or ($LAND eq "Schweiz") ) and ($SQLALTER >= 18) )
{
if ($PUBLICSTATUS eq '0')
	{	
	print "<div align=\"center\"><table bgcolor=\"#13695d\" width=\"700\" cellspacing=\"5\" cellpadding=\"2\"><tr><td>";

print "$PICFLAG2 <font size=\"4\" color=\"#ffff00\"><b>HINWEIS:</b></font><br>
<font color=\"#ffffff\" size=\"3\"><div align=\"center\">
Dein Profil ist aktuell nicht öffentlich zu sehen und somit nimmst Du nicht an der Community teil. 
Dieses kannst Du jetzt in dem Menüpunkt <a href=\"$cgiurl?action=options$STRING\"><b>Einstellungen</b></a> öffentlich schalten und bist somit für jeden Besucher sichtbar!</div></font>";
	print "</td></tr></table></div>";
	}
	else
	{
	if ( ($MEMBERPREMIUM ne '1') and (!$ANTRAGMEMBER) )
		{	
	print "<div align=\"center\"><table bgcolor=\"#13695d\" width=\"700\" cellspacing=\"5\" cellpadding=\"2\"><tr><td>";

print "$PICFLAG2 <font size=\"4\" color=\"#ffff00\"><b>Tipp:</b></font><br>
<font color=\"#ffffff\" size=\"3\"><div align=\"center\">Werde jetzt Premium-Mitglied und schalte Deine Kontaktdaten frei,<br>
damit Dich jeder direkt kontaktieren kann.<br>
<font color=\"#ffffff\" size=\"2\">
Bis zu 15 Bilder werden öffentlich angezeigt, Beschreibung über Dich und <br>
ein Link zu Deiner Homepage können ebenfalls sichtbar geschaltet werden.<br>
<a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=$DATEN[5]&lg=$LG\">Laufzeit und Preise anzeigen</a> </font>";
	print "</td></tr></table></div>";
		}
	}

	if (!$ANTRAGMEMBER)
		{	
	print "<br><div align=\"center\"><table bgcolor=\"#13699d\" width=\"700\" cellspacing=\"5\" cellpadding=\"2\"><tr><td>";

print "$PICFLAG2 <font size=\"4\" color=\"#ffff00\"><b>WOW:</b></font><br>
<font color=\"#ffffff\" size=\"3\"><div align=\"center\">Premium-Mitgliedschaft schon für 1,67 Euro pro Monat, Laufzeit 24 Monate<br>

<a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=$DATEN[5]&lg=$LG\">weitere Informationen anzeigen</a> </font>";
	print "</td></tr></table></div>";
		}
}
	
#	print "<hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade>";

#	&modelkarteihinweis;
		
#	print "-$FOUNDSEDCARD-$sqlbefehl-";
	print "<br><br>";
	print "</td></tr>";
	print "</table><br><br>";
	}
	

sub START
{

if (!$VORNAME)
	{
	print "<table background=\"http://www.flashmodels.de/casting/grafik/background-yellow.jpg\" width=\"900\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td height=\"400\">";
	print "<font face=verdana,arial,helvetica size=4 color=000000>";
	print "Leider kann zu dieser ID ($ID) kein Profil angezeigt werden!<br><br>";
	print "<font size=\"2\">Dies kann folgende Gründe haben:<br>
	<li>Die Person zu dieser ID hat ihr Profil für die Öffentlichkeit nicht freigegeben
	<li>Die Person mit dieser ID wurde gelöscht und existiert somit nicht mehr<br><br></font>";
	print "<hr width=\"100%\" size=\"1\" color=\"Black\" noshade><br><br>";

	print "<font face=verdana,arial,helvetica size=4 color=000000>";
	print "Unfortunately no profile can be shown for that ID ($ID)!<br><br>";
	print "<font size=\"2\">This can have the following reasons:<br>
	<li>The Person for that ID does not have approved the profil for the public
	<li>The Person with that ID was deleted and doesn't exist in the database<br><br></font>";
#	print "<hr width=\"100%\" size=\"1\" color=\"Black\" noshade>";

	print "</td></tr>";
	print "</table>";
	&BOTTOM;
	exit;
	}

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

if ($RRRR)
	{
	$DEINEPOS = ($ANZMIT - $DPOS);

	print "Die derzeitige Position Deiner Castingkarte liegt<br>";

		

		if ($DEINEPOS < 100)
			{

			if ($DEINEPOS < 10)
				{
				print "unter den ersten ";
				print "<b> 10 Mitgliedern</b> der Castingkartei!<br><br>";
				}
				else
				{
				print "unter den ersten ";
				print "<b> 100 Mitgliedern</b> der Castingkartei!<br><br>";
				print "<font color=ffff00><b>Wir empfehlen Dir diese Castingkarte zu aktualisieren,<br>damit Du wieder nach ganz vorne, ";
				print "auf die erste Position gebracht wirst.</font></b><br><br>";
				}

			}

		if ($DEINEPOS > 101)
			{
			print "unter den letzten";
			print "<b> 3000 Mitgliedern</b> der Castingkartei!<br><br>";
			print "<font color=ffff00><b>Wir empfehlen Dir diese Castingkarte zu aktualisieren,<br>damit Du wieder nach ganz vorne, ";
			print "auf die erste Position gebracht wirst.</font></b><br><br>";
			}			
	
	}	


#	print "Deine POS: $DEINEPOS";
	print "</td></tr>";
	print "</table>";

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

			print "\n\n";
			print "<SCRIPT LANGUAGE=\"JavaScript\">\n";
			print "{\n";
			print "alt0 = new Image()\;\n";

	if ($CMODUS)
		{
		$photoses = "&ses=$mastersession";
		}		
		else
		{
		$photoses = "&ses=$SES";
		}	
			
			$REALBILD="$phpfotourl?castid=$ID$photoses";
			
			print "alt0.src = \"$REALBILD\"\;<!-- Erste Grafik, Groß-->\n";

			print "alt1 = new Image()\;\n";
			print "alt1.src = \"$REALBILD\"\;<!-- Grafik wechselt (Groß) mit Button 1 -->\n";

			$num = 1;

			$maxhauptfotos = 4; #Anzahl der anzuzeigenden HauptBilder			
			$maxfotos = 14; #Anzahl der anzuzeigenden Bilder						
			
if ( ($DATEN[2] eq $SHOWSESSION) and ($MEMBERPREMIUM ne 1) ) ### öffentliche Daten
		{	
		$maxfotos = 1; #Anzahl der anzuzeigenden Bilder			
		$maxhauptfotos = 1;
		$FOTOHINWEIS = "<font face=verdana,arial,helvetica size=1 color=\"gray\"><br><br><br><div align=\"center\">$TEXT908</div></font>";
		}

	for ($t=1; $t<=$maxfotos;$t++)
			{
			$num = $t;
			$BILD = "$REAL/casting/kartei/foto/$ID-$t.jpg";

#			($width1,$height1) = imgsize($BILD); 
		$width1 = "";
		$height1 = "";
		$PIC = "";
		open (PIC, "<" . $BILD);
		@PIC=<PIC>;
		$PIC=@PIC;
		close (PIC);				
	
			#($width1,$height1) = imgsize($BILD); 
	if ($PIC ne 0)
		{
		   	$image = GD::Image->newFromJpeg($BILD);
			($width1,$height1) = $image->getBounds();
		}
#		print "$BILD<br>-$PIC-<br>-$width1- -$height1-<br>";		
			
				print "alt$num = new Image()\;\n";
				$REALBILD="$phpfotourl?castid=$ID$photoses&pic=$ID-$num";
				print "alt$num.src = \"$REALBILD\"\;<!-- Grafik wechselt (Groß) mit Button 2 -->\n\n";

			}


			print "}\n";

			print "function imageChange(imageID,imageName) \n";
			print "{\n";
			print "	{\n";
			print "	<!-- Bei weiteren Grafiken nichts ändern! -->\n";
			print "	document.images[imageID].src = eval(imageName + \".src\")\;\n";
			print "	}		\n";
			print "}\n";
			print "</script>\n\n";

			
	print "<table bgcolor=\"#000000\" width=\"$RAHMEN\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td width=\"550\" valign=\"top\">";

	print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\">";
	print "<tr>";

	print "<td width=\"50%\">";
$LOGOURL = "http://www.flashmodels.de";
$LOGOALT = "Modelagentur & Casting Agentur flashModels.de";
if ($LG eq "en")
	{
	$LOGOURL = "http://www.flashmodels.net";
	$LOGOALT = "Model Agency and Casting Agency flashModels.net";
	}
if ($LG eq "br")
	{
	$LOGOURL = "http://www.flashmodels.de/br";
	$LOGOALT = "Agência de Modelos no Sao Paulo, Rio de Janeiro, Brazil e Portugal";
	}
	
	print "<div align=\"left\"><a href=\"$LOGOURL\" target=\"_blank\"><img src=\"http://www.flashModels.de/casting/grafik/flashmodels.jpg\" border=\"0\" alt=\"$LOGOALT\" width=\"200\" height=\"37\"></a></div>";
	print "</td>";

	print "<td align=\"right\" valign=\"top\">";
	print "&nbsp;";
	print "</td>";

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

	


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

		print "<table width=\"100%\" border=\"0\" cellpadding=\"2\">";
		print "<tr>";
		print "<td width=\"410\" valign=\"top\">\n\n";

		print "<div align=\"center\">";



		$REALBILD="$phpfotourl?castid=$ID$photoses";
		$BILD = "$REAL/casting/kartei/foto/$ID.jpg";

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

	
		if ( ($width1 eq '') or ($height1 eq '') )
				{
				print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
				print "<br><br><br><b>$TEXT420</b><br><br>";
#				print "Es wird unbedingt empfohlen, dass Du ein Foto von Dir hochlädst";
				}				
				else
				{
		print "<img src=\"$REALBILD\" NAME=\"global\" border=\"\" alt=\"\"><br><br>\n\n";
				}
		print "</div>";
		
		print "</td>";
		
		print "<td valign=\"top\">\n\n";


		$BILDBREITE = 80; # in Pixel		
		$BILDHOHE = 70 ; # für Zusatzbilder

#		print "$maxhauptfotos";
		print "<table>";

		$num = 1;
		for($b=1; $b<=$maxhauptfotos; $b++)
			{
			$num = $b;

		$REALBILD="$phpfotourl?castid=$ID$photoses&pic=$ID-$b";				
		$BILD = "$REAL/casting/kartei/foto/$ID-$b.jpg";

#		($width1,$height1) = imgsize($BILD); 
		$width1 = "";
		$height1 = "";
		$PIC = "";
		open (PIC, "<" . $BILD);
		@PIC=<PIC>;
		$PIC=@PIC;
		close (PIC);				
	
			#($width1,$height1) = imgsize($BILD); 
	if ($PIC ne 0)
		{
		   	$image = GD::Image->newFromJpeg($BILD);
			($width1,$height1) = $image->getBounds();
		}
#		print "$BILD<br>-$PIC-<br>-$width1- -$height1-<br>";		
	
		if ( ($width1 eq '') or ($height1 eq '') )
				{
#				print "($num)<br><br><br>Kein Bild vorhanden!<br><br>";
				}				
				else
				{
			print "<tr>";
			print "<td width=\"120\" valign=\"top\" bgcolor=\"$grau\">";
			print "<div align=\"center\">";
			print "<font face=verdana,arial,helvetica size=1 color=$hell>";
			print "<br>\n\n";


				$FAKTOR=$width1/$BILDBREITE;
#				$FAKTOR=2;				
				$width1_thumb=$width1/$FAKTOR;
				$height1_thumb=$height1/$FAKTOR;

#			print "$BILD<br>";
#			print "$width1,$height1";

#			$REALBILD="$phpfotourl?castid=$ID-$b";
			$t=$b;
#			print "($num)";
			print "<A HREF=\"#\" ONMOUSEOVER=\"imageChange('global','alt$num')\" ONMOUSEOUT=\"imageChange('global','alt0')\">\n";
			print "<IMG SRC=\"$REALBILD\" width=\"$width1_thumb\" height=\"$height1_thumb\" BORDER=\"1\" alt=\"\"></A>\n\n";

			
#				print "<img src=\"$REALBILD\" border=\"\" alt=\"\" width=\"$width1_thumb\" height=\"$height1_thumb\">";
				print "</div>";
	print "</td>";
	print "</tr>\n\n";				
#	$num++;
				}
			}
	print "</table>";
	print "$FOTOHINWEIS";
		
		print "</td>";

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

	$NICHTFREIGEGEBEN = "<font face=verdana,arial,helvetica size=1 color=000000><b>$TEXT910</b>";
	$NICHTSICHTBARVERSION = "<font face=verdana,arial,helvetica size=1 color=000000><b>$TEXT911</b>";
	$NICHTSICHTBARVERSIONDEMO = "<font face=verdana,arial,helvetica size=1 color=000000><b>$TEXT912</b>";	

	$SHOWHOMEPAGE = "$HOMEPAGE";
	$laenge = length ($SHOWHOMEPAGE); # \n wird am Ende entfernt!
#	print "-$laenge-";
	$maxhomepage = 35;
	if ($laenge > $maxhomepage)
	{
	$SHOWHOMEPAGE = substr ($SHOWHOMEPAGE ,0,$maxhomepage);	
	$SHOWHOMEPAGE = "$SHOWHOMEPAGE...";
	}
		
#	print "Membertyp: $MEMBERPREMIUM, $SNACHNAME-$NACHNAME";
	if ( ($DATEN[2] eq $SHOWSESSION) ) ### öffentliche Daten
		{	
		if ( ($MEMBERPREMIUM ne 1) )
			{
			$ANZEIGEDATENNACHNAME = "<br>&nbsp;$NICHTSICHTBARVERSION";	
			$ANZEIGEDATENEMAIL = $NICHTSICHTBARVERSION;	
			$ANZEIGEDATENHANDY = $NICHTSICHTBARVERSION;	
			$ANZEIGEDATENFETNETZ = $NICHTSICHTBARVERSION;	
			$ANZEIGEDATENBERUF = $NICHTSICHTBARVERSION;	
			$ANZEIGEDATENHOBBY = $NICHTSICHTBARVERSION;		
			$ANZEIGEDATENHOMEPAGE = $NICHTSICHTBARVERSION;
			$ANZEIGEDATESBE1 = $NICHTSICHTBARVERSION;
			$ANZEIGEDATESBE2 = $NICHTSICHTBARVERSION;
			}

		if ( ($MEMBERPREMIUM eq 1) )
			{
			if ($SNACHNAME eq 1) {$ANZEIGEDATENNACHNAME = $NACHNAME;	} else	{$ANZEIGEDATENNACHNAME = $NICHTFREIGEGEBEN;	}
#			if ($SEMAIL eq 1) {$ANZEIGEDATENEMAIL = "<a href=\"mailto:$EMAIL\"><font face=verdana,arial,helvetica size=2 color=ffffff>$EMAIL</a>";	} else	{$ANZEIGEDATENEMAIL = $NICHTFREIGEGEBEN;	}
			
			$ANZEIGEDATENEMAIL = ">>> <a href=\"javascript:pophtml3('$CONTACTURL?memberid=$ID&lg=$LG',560,550)\"><b><font color=\"#ffff00\">$TEXT916</b></font></a> $MAIL1 <<<";
			
			if ($SHANDY eq 1) {$ANZEIGEDATENHANDY = "<font face=verdana,arial,helvetica size=2 color=\#000000\"><b>$HANDYVORWAHL - $HANDYRUFNUMMER</b>";	} else	{$ANZEIGEDATENHANDY = $NICHTFREIGEGEBEN;	}			
			if ($SFESTNETZ eq 1) {$ANZEIGEDATENFETNETZ = "<font face=verdana,arial,helvetica size=2 color=\#000000\"><b>$FESTNETZVORWAHL - $FESTNETZRUFNUMMER</b>";	} else	{$ANZEIGEDATENFETNETZ = $NICHTFREIGEGEBEN;	}			
			if ($SBERUF eq 1) {$ANZEIGEDATENBERUF = $BERUF;	} else	{$ANZEIGEDATENBERUF = $NICHTFREIGEGEBEN;	}
			if ($SHOBBY eq 1) {$ANZEIGEDATENHOBBY = $HOBBYS;	} else	{$ANZEIGEDATENHOBBY = $NICHTFREIGEGEBEN;	}			
			if ($SHOMEPAGE eq 1) {$ANZEIGEDATENHOMEPAGE = "<a href=\"$GOTOURL?$HOMEPAGE\" target=\"_blank\">http://$SHOWHOMEPAGE</a>";	} else	{$ANZEIGEDATENHOMEPAGE = $NICHTFREIGEGEBEN;	}						
			if ($SBE1 eq 1) {$ANZEIGEDATESBE1 = $TEXT1SHOW;	} else	{$ANZEIGEDATESBE1 = $NICHTFREIGEGEBEN;	}			
			if ($SBE2 eq 1) {$ANZEIGEDATESBE2 = $TEXT2SHOW;	} else	{$ANZEIGEDATESBE2 = $NICHTFREIGEGEBEN;	}						
			}			

		}

#	print "-$CMODUS-$LOGINUSER-";
		########## geschlossene Kartei
			if ( ($DATEN[2] ne $SHOWSESSION) ) ### öffentliche Daten
			{	
			if ($LOGINUSER eq 1)
				{
				$ANZEIGEDATENNACHNAME = $NACHNAME;	
				$ANZEIGEDATENEMAIL = "<a href=\"mailto:$EMAIL\"><font face=verdana,arial,helvetica size=2 color=ffffff>$EMAIL</a>";
				$ANZEIGEDATENHANDY = "<font face=verdana,arial,helvetica size=2 color=\#000000\"><b>$HANDYVORWAHL - $HANDYRUFNUMMER</b>";
				$ANZEIGEDATENFETNETZ = "<font face=verdana,arial,helvetica size=2 color=\#000000\"><b>$FESTNETZVORWAHL - $FESTNETZRUFNUMMER</b>";
				$ANZEIGEDATENBERUF = $BERUF;
				$ANZEIGEDATENHOBBY = $HOBBYS;	
				$ANZEIGEDATENHOMEPAGE = "<a href=\"$GOTOURL?$HOMEPAGE\" target=\"_blank\">http://$SHOWHOMEPAGE</a>";	
				$ANZEIGEDATESBE1 = $TEXT1SHOW;
				$ANZEIGEDATESBE2 = $TEXT2SHOW;	
				}
				else
				{
				$ANZEIGEDATENNACHNAME = $NICHTSICHTBARVERSIONDEMO;
				$ANZEIGEDATENEMAIL = $NICHTSICHTBARVERSIONDEMO;
				$ANZEIGEDATENHANDY = $NICHTSICHTBARVERSIONDEMO;
				$ANZEIGEDATENFETNETZ = $NICHTSICHTBARVERSIONDEMO;
				$ANZEIGEDATENBERUF = $BERUF;
				$ANZEIGEDATENHOBBY = $HOBBYS;	
				$ANZEIGEDATENHOMEPAGE = $NICHTSICHTBARVERSIONDEMO;
				$ANZEIGEDATESBE1 = $TEXT1SHOW;
				$ANZEIGEDATESBE2 = $TEXT2SHOW;	
				}
			}

		
		
if ($CMODUS)
	{
			print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
#			print "<b>Diese Daten drüfen Copyright Patrik Perteck / www.flashModels.de<br>";

			print "Diese Daten dürfen nicht kopiert, veröffentlicht oder an Dritte weitergegeben werden!</b>";
	}
		

if ($BEWERBUNGTHEMENID)
	{
	$FORM{'SHOWBEWERBER'} = $BEWERBUNGTHEMENID;
#	&EINLESENBEWERBERDATEN;
	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
	print "Diese Person hat sich zu folgendem Thema beworben: ($BEWERBUNGTHEMENID)<br>";
	print "<b>$TITELTHEMA</b><br><br>";

	print "<table bgcolor=\"#ffffff\" width=\"100%\" cellspacing=\"2\" cellpadding=\"2\">\n";
	print "<tr>\n";
	print "	<td>\n";
	print "<font face=verdana,arial,helvetica size=1 color=#000000>";
	print "Zusätzliche Informationen wurden für die Bewerbung angegeben:<br><br>";
	print "<font face=verdana,arial,helvetica size=2 color=#000000>";
	print "$SQLZUSATZINFO";
	print " </td>\n";
	print "</tr>\n";
	print "</table>\n";

	}


			print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";

			print "<tr>";
	    	print "<td width=\"180\" align=\"right\" bgcolor=\"#000000\"><font face=verdana,arial,helvetica size=2 color=$hell>&nbsp;</td>";
		    print "<td valign=\"top\" align=\"right\" bgcolor=\"#000000\">";

if ($SES eq $SHOWSESSION) 
	{
	print "$CHOOSELGPROFIL";
	}

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

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>ID:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$ID";

	if ($CMODUS)
		{
			print "&nbsp;&nbsp;&nbsp;<a href=\"javascript:pophtml('$cgiurl?action=cast&id=$ID', 580, 400)\" style=\"color: Yellow;\">[diese ID markieren/casten]</a>";
		}
			print "</td>";
			print "</tr>";   			
			
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT300:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$VORNAME ";
			print "$ANZEIGEDATENNACHNAME";
			print "</td>";
			print "</tr>";   			

		
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT301:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";

		if ($GESCHLECHT eq "Mann")
			{
			print "$TEXT301a";
			}
		if ($GESCHLECHT eq "Frau")
			{
			print "$TEXT301b";
			}

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

if ($SINGLE)
	{
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT302:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$TEXT302b $HERZ";
			print "</td>";
			print "</tr>";   						
	}
			
			
			$ALTER = $YEARNOW - $GEBURTSJAHR;
			$ALTER1 = $ALTER -1;

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT303:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";
if ($SQLGEBURTSDATUM ne '00.00.0000')
			{
			print "$SQLGEBURTSDATUM ($SQLALTER $TEXT304)";
			}
			else
			{
			print "$GEBURTSJAHR ($ALTER1 oder $ALTER $TEXT304)";
			}
			print "</td>";
			print "</tr>";   			



if ($CMODUS)
	{
	}
	else
	{

	if ($DATEN[2] ne $SHOWSESSION)
		{
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT305:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";

if ($LOGINUSER eq '1') 					
 			{
			print "$STRASSE";
			}
			else
			{
			print "<font face=verdana,arial,helvetica size=1 color=000000>";
			print "<b>(Strasse nicht sichtbar in dieser Version)</b>";
			}

			print "</tr>";   			
		}

	}
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT308:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$POSTLEITZAHL</td>";
			print "</tr>";   			


			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT310:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$WOHNORT</td>";
			print "</tr>";   			

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT311:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$LAND</td>";
			print "</tr>";   			

##############################################################
########### Einlesen der Cookies #############################
my $cookname = "CDB";
my $FOUNDCOOKIE = cookie(-name => $cookname) || $cookie;
##############################################################
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden

	$sqlbefehl="SELECT VORNAME, NACHNAME, EMAIL, WOHNORT FROM $TABELLENNAME WHERE ID = '$FOUNDCOOKIE'"; 
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)	
	{
	$COOKIEVORNAME = $dbrow[0];
	$COOKIENACHNAME = $dbrow[1];	
	$COOKIEEMAIL = $dbrow[2];		
	$COOKIEWOHNORT = $dbrow[3];	
	}	

$dbh->disconnect; # Von Datenbank abmelden				
if ( ($COOKIEVORNAME) and ($FOUNDCOOKIE ne "$ID") and ($MEMBERPREMIUM ne 1) )
		{
			$KARTEIMITGLIEDEMAIL = ">>> <a href=\"javascript:pophtml3('$CONTACTURL?memberid=$ID&lg=$LG&fc=$FOUNDCOOKIE',560,550)\"><b><font color=\"#ffff00\">$TEXT916</b></font></a> $MAIL1 <<<";
			print "<tr>";
	    	print "<td width=\"180\" align=\"left\" bgcolor=\"#515151\">";
			#print "$ID-$FOUNDCOOKIE-";
			print "<font face=verdana,arial,helvetica size=1 color=\"#ffffff\">";
			print "$MENSCHEN3<br>";
			print "Dieses Mitglied kannst Du kontaktieren, da Du Mitglied in unserer Kartei bist und Dein Profil ebenfalls öffentlich zu sehen ist!&nbsp;<br></td>";
		    print "<td bgcolor=\"#515151\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";
			print "$KARTEIMITGLIEDEMAIL";
			print "</tr>";   			
		}
#print "-$FOUNDCOOKIE-$FOUNDCOOKIEMEMBER-$COOKIEVORNAME-<br><br>";
##############################################################

			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT312:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";
			print "$ANZEIGEDATENEMAIL";
			print "</tr>";   			

if ($HANDYVORWAHL)
		{			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT320:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$orange\">&nbsp;";
			print "$ANZEIGEDATENHANDY";
			print "</td>";
			print "</tr>";
		}   			


if ($FESTNETZVORWAHL)
		{			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT325:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$orange\"><font face=verdana,arial,helvetica size=2 color=000000>&nbsp;";
			print "$ANZEIGEDATENFETNETZ";
			print "</td>";
			print "</tr>";
		}  			

			
if ($BERUF)
		{
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT330:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";
			print "$ANZEIGEDATENBERUF";
			print "</td>";
			print "</tr>";   			
		}
			
if ($HOBBYS)
		{
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT331:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";
			print "$ANZEIGEDATENHOBBY";
			print "</td>";
			print "</tr>";   			
		}
			

if ($HOMEPAGE)
	{
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT332:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;";
			print "$ANZEIGEDATENHOMEPAGE";
			print "</td>";
			print "</tr>";   			
	}

if ($STERNZEICHEN)
	{

if ($LG eq 'en')
	{
		if ($STERNZEICHEN eq 'Widder') {$STERNZEICHEN = 'Aries';}
		if ($STERNZEICHEN eq 'Stier') {$STERNZEICHEN = 'Taurus';}		
		if ($STERNZEICHEN eq 'Zwilling') {$STERNZEICHEN = 'Gemini';}				
		if ($STERNZEICHEN eq 'Krebs') {$STERNZEICHEN = 'Cancer';}
		if ($STERNZEICHEN eq 'Löwe') {$STERNZEICHEN = 'Leo';}
		if ($STERNZEICHEN eq 'Jungfrau') {$STERNZEICHEN = 'Virgo';}
		if ($STERNZEICHEN eq 'Waage') {$STERNZEICHEN = 'Libra';}
		if ($STERNZEICHEN eq 'Skorpion') {$STERNZEICHEN = 'Scorpio';}
		if ($STERNZEICHEN eq 'Schütze') {$STERNZEICHEN = 'Sagittarius';}
		if ($STERNZEICHEN eq 'Steinbock') {$STERNZEICHEN = 'Capricorn';}
		if ($STERNZEICHEN eq 'Wassermann') {$STERNZEICHEN = 'Aquarius';}
		if ($STERNZEICHEN eq 'Fisch') {$STERNZEICHEN = 'Pisces';}
	}
if ($LG eq 'br')
	{
		if ($STERNZEICHEN eq 'Widder') {$STERNZEICHEN = 'Áries';}
		if ($STERNZEICHEN eq 'Stier') {$STERNZEICHEN = 'Touro';}		
		if ($STERNZEICHEN eq 'Zwilling') {$STERNZEICHEN = 'Gêmeos';}				
		if ($STERNZEICHEN eq 'Krebs') {$STERNZEICHEN = 'Câncer';}
		if ($STERNZEICHEN eq 'Löwe') {$STERNZEICHEN = 'Leão';}
		if ($STERNZEICHEN eq 'Jungfrau') {$STERNZEICHEN = 'Virgem';}
		if ($STERNZEICHEN eq 'Waage') {$STERNZEICHEN = 'Libra';}
		if ($STERNZEICHEN eq 'Skorpion') {$STERNZEICHEN = 'Escorpião';}
		if ($STERNZEICHEN eq 'Schütze') {$STERNZEICHEN = 'Sagitário';}
		if ($STERNZEICHEN eq 'Steinbock') {$STERNZEICHEN = 'Capricórnio';}
		if ($STERNZEICHEN eq 'Wassermann') {$STERNZEICHEN = 'Aquário';}
		if ($STERNZEICHEN eq 'Fisch') {$STERNZEICHEN = 'Peixes';}
	}


			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT333:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$STERNZEICHEN</td>";
			print "</tr>";   			
	}
			
if ($KORPERGROSSE)
	{
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT334:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$KORPERGROSSE cm</td>";
			print "</tr>";   			
	}


if ($GEWICHT)
	{	
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT335:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$GEWICHT kg</td>";
			print "</tr>";   			
	}

if ($HAUTTYP)
	{
	if($LG eq 'en')
		{
		if ($HAUTTYP eq 'sehr hell') {$HAUTTYP = "very light";}
		if ($HAUTTYP eq 'hell') {$HAUTTYP = "light";}
		if ($HAUTTYP eq 'Sommersprossen') {$HAUTTYP = "freckle";}
		if ($HAUTTYP eq 'leicht braun') {$HAUTTYP = "little brown";}
		if ($HAUTTYP eq 'mittel braun') {$HAUTTYP = "medium brown";}
		if ($HAUTTYP eq 'sehr braun') {$HAUTTYP = "very brown";}
		if ($HAUTTYP eq 'schwarz') {$HAUTTYP = "black";}
		}

	if($LG eq 'br')
		{
		if ($HAUTTYP eq 'sehr hell') {$HAUTTYP = "muito clara";}
		if ($HAUTTYP eq 'hell') {$HAUTTYP = "clara";}
		if ($HAUTTYP eq 'Sommersprossen') {$HAUTTYP = "sarda";}
		if ($HAUTTYP eq 'leicht braun') {$HAUTTYP = "morena clara";}
		if ($HAUTTYP eq 'mittel braun') {$HAUTTYP = "morena";}
		if ($HAUTTYP eq 'sehr braun') {$HAUTTYP = "mulata";}
		if ($HAUTTYP eq 'schwarz') {$HAUTTYP = "negra";}
		}
		
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT336:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$HAUTTYP</td>";
			print "</tr>";   			
	}

if ($HAARFARBE2)
	{
	if($LG eq 'en')
		{
		if ($HAARFARBE1 eq 'hell') {$HAARFARBE1 = "light-";}
		if ($HAARFARBE1 eq 'mittel') {$HAARFARBE1 = "medium-";}
		if ($HAARFARBE1 eq 'dunkel') {$HAARFARBE1 = "dark-";}
		if ($HAARFARBE2 eq 'blond') {$HAARFARBE2 = "blond";}
		if ($HAARFARBE2 eq 'braun') {$HAARFARBE2 = "brown";}
		if ($HAARFARBE2 eq 'schwarz') {$HAARFARBE2 = "black";}
		if ($HAARFARBE2 eq 'rot') {$HAARFARBE2 = "red";}
		if ($HAARFARBE2 eq 'grau') {$HAARFARBE2 = "gray";}
		}

	if($LG eq 'br')
		{
		if ($HAARFARBE1 eq 'hell') {$HAARFARBE1 = "claro-";}
		if ($HAARFARBE1 eq 'mittel') {$HAARFARBE1 = "médio-";}
		if ($HAARFARBE1 eq 'dunkel') {$HAARFARBE1 = "escuro-";}
		if ($HAARFARBE2 eq 'blond') {$HAARFARBE2 = "loiro";}
		if ($HAARFARBE2 eq 'braun') {$HAARFARBE2 = "castanho";}
		if ($HAARFARBE2 eq 'schwarz') {$HAARFARBE2 = "preto";}
		if ($HAARFARBE2 eq 'rot') {$HAARFARBE2 = "ruivo";}
		if ($HAARFARBE2 eq 'grau') {$HAARFARBE2 = "grisalho";}
		}

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT337:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$HAARFARBE1$HAARFARBE2</td>";
			print "</tr>";   			
	}

if ($HAARLANGE)
	{
	if ($LG eq 'en')
		{
		if ($HAARLANGE eq 'kahl') {$HAARLANGE = "bald head";}
		if ($HAARLANGE eq 'sehr kurz') {$HAARLANGE = "very short";}
		if ($HAARLANGE eq 'kurz') {$HAARLANGE = "short";}
		if ($HAARLANGE eq 'mittel') {$HAARLANGE = "medium";}
		if ($HAARLANGE eq 'lang') {$HAARLANGE = "long";}
		if ($HAARLANGE eq 'sehr lang') {$HAARLANGE = "very long";}
		}

	if ($LG eq 'br')
		{
		if ($HAARLANGE eq 'kahl') {$HAARLANGE = "calvo";}
		if ($HAARLANGE eq 'sehr kurz') {$HAARLANGE = "muito curto";}
		if ($HAARLANGE eq 'kurz') {$HAARLANGE = "curto";}
		if ($HAARLANGE eq 'mittel') {$HAARLANGE = "médio";}
		if ($HAARLANGE eq 'lang') {$HAARLANGE = "longo";}
		if ($HAARLANGE eq 'sehr lang') {$HAARLANGE = "muito longo";}
		}

		
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT338:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$HAARLANGE</td>";
			print "</tr>";   			
	}

if ($AUGENFARBE)
	{
	if($LG eq 'en')
		{
		if ($AUGENFARBE eq 'blau') {$AUGENFARBE = "blue";}
		if ($AUGENFARBE eq 'blau-grün') {$AUGENFARBE = "blue-green";}
		if ($AUGENFARBE eq 'blau-grau') {$AUGENFARBE = "blue-gray";}
		if ($AUGENFARBE eq 'braun') {$AUGENFARBE = "brown";}
		if ($AUGENFARBE eq 'braun-grün') {$AUGENFARBE = "brown-green";}
		if ($AUGENFARBE eq 'grün') {$AUGENFARBE = "green";}
		if ($AUGENFARBE eq 'grün-blau') {$AUGENFARBE = "green-blue";}
		if ($AUGENFARBE eq 'grün-braun') {$AUGENFARBE = "green-brown";}
		if ($AUGENFARBE eq 'grün-grau') {$AUGENFARBE = "green-gray";}
		}

	if($LG eq 'br')
		{
		if ($AUGENFARBE eq 'blau') {$AUGENFARBE = "azul";}
		if ($AUGENFARBE eq 'blau-grün') {$AUGENFARBE = "azul-verde";}
		if ($AUGENFARBE eq 'blau-grau') {$AUGENFARBE = "azul-cinza";}
		if ($AUGENFARBE eq 'braun') {$AUGENFARBE = "castanho";}
		if ($AUGENFARBE eq 'braun-grün') {$AUGENFARBE = "castanho-verde";}
		if ($AUGENFARBE eq 'grün') {$AUGENFARBE = "verde";}
		if ($AUGENFARBE eq 'grün-blau') {$AUGENFARBE = "verde-azul";}
		if ($AUGENFARBE eq 'grün-braun') {$AUGENFARBE = "verde-castanho";}
		if ($AUGENFARBE eq 'grün-grau') {$AUGENFARBE = "verde-cinza";}
		}

		
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT339:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$AUGENFARBE</td>";
			print "</tr>";   			
	}
			
if ($SCHUHGROSSE)
	{
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT340:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;$SCHUHGROSSE</td>";
			print "</tr>";   			
	}

			print "<tr>";
	    	print "<td align=\"right\" valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT350:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>";

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

			print "<tr>";
	    	print "<td align=\"right\" valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$TEXT355:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>";

			print "$ANZEIGEDATESBE2";

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

			
			print "</table>";

	print "	<center>";
	print "</center>";			


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

####
	print "</td>";
	print "<td valign=\"top\">";

if ( ($CMODUS eq 2) or ($SES eq $mastersession) or ($SES eq $SHOWSESSION) or ($DATEN[1] eq "start") or ($DATEN[1] eq "savedata"))
{

	print "<font face=verdana,arial,helvetica size=1 color=$hell>";
#	print "ID: <b>$ID</b><br>";

#	print "<b>";	
#	print "$VORNAME aus<br>";
#	print "$POSTLEITZAHL $WOHNORT";

	$ONLINESTATUSONLINE = "<img src=\"http://www.flashmodels.de/casting/grafik/online.gif\" border=\"0\" alt=\"online\">";
	$ONLINESTATUSOFFLINE = "<img src=\"http://www.flashmodels.de/casting/grafik/offline.gif\" border=\"0\" alt=\"offline\">";

	if ($MEMBERONLINE eq 0)
		{
		}
		else
		{
		print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\">";
		print "	<tr>";
		print "		<td align=\"right\" valign=\"top\" nowrap bgcolor=\"#026400\">";
		print "$ONLINESTATUSONLINE ";
		print "<font color=\"lime\" size=\"2\">$TEXT965</font>";

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

if ($SHOWPUBLIC eq 1)
	{
	print "$TEXT903<br><br>";
	print "<b>www.flashModels.eu/$ID$LG</b><br><br>";
	}
	else
	{
	print "$TEXT904<br><br>";
	}
	
$PROFILEURL = "http://www.flashmodels.de/profile/myprofiles-$ID.html";
if ($LG eq 'br')
	{
	$PROFILEURL = "http://www.flashmodels.de/br/perfil/myprofiles-$ID.html";
	}
if ($LG eq 'en')
	{
	$PROFILEURL = "http://www.flashmodels.net/profile/myprofiles-$ID.html";
	}
#	print "<div align=\"center\">";
#	print "<a href=\"$PROFILEURL\"><b>$TEXT917</b></a>";
#	print "&nbsp;<font color=\"#ffff00\">[BETA]</font>&nbsp;";
#	print "<img src=\"http://www.flashmodels.de/ger/graf/new3-hori-blink.gif\" border=\"0\" alt=\"\">";
#	print "</div>";
#	print "<br><br>";
	
	if( ($MEMBERPREMIUM eq '1') or ($CMODUS) )
	{
	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";
	print "$TEXT906 $CDATUM $TEXT906b <font size=\"2\" color=\"#ffffff\"><b>$ZAHLER</b></font> $TEXT906c";
	print "<br><br>";

#	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";
#	print "Dieses Profil wurde von nachfolgenden Mitgliedern betrachtet:<br><br>";
#   print "<iframe src=\"http://www.flashmodels.de/casting/cgi-bin/watchmember.pl?watchid=$ID\" name=\"showmembers\" width=\"100%\" height=\"300\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"></iframe>";	

#    print "<iframe src=\"http://www.flashmodels.de/casting/cgi-bin/watchmember.pl?watchid=$ID\" name=\"showmembers\" width=\"1%\" height=\"1\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"></iframe>";	

	}
	else
	{
	print "<font face=verdana,arial,helvetica size=1 color=\"gray\">$TEXT907";
 #  print "<iframe src=\"http://www.flashmodels.de/casting/cgi-bin/watchmember.pl?watchid=$ID\" name=\"showmembers\" width=\"1%\" height=\"1\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"></iframe>";	
	}

#	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";

#Premium Bilder#####
print "<div align=\"center\">";
for($b=$b; $b<=$maxfotos; $b++)
{
			$num = $b;
#			print "$num";
		$REALBILD="$phpfotourl?castid=$ID$photoses&pic=$ID-$b";				
		$BILD = "$REAL/casting/kartei/foto/$ID-$b.jpg";

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

		if ( ($width1 eq '') or ($height1 eq '') )
				{
#				print "($num)<br><br><br>Kein Bild vorhanden!<br><br>";
				}				
				else
				{
				$FAKTOR=$height1/$BILDHOHE;
#				$FAKTOR=2;				
				$width1_thumb=$width1/$FAKTOR;
				$height1_thumb=$height1/$FAKTOR;
	
				$t=$b;
#			print "($num)";
				print "\n<A HREF=\"#\" ONMOUSEOVER=\"imageChange('global','alt$num')\" ONMOUSEOUT=\"imageChange('global','alt0')\">\n";
				print "<IMG SRC=\"$REALBILD\" width=\"$width1_thumb\" height=\"$height1_thumb\" BORDER=\"1\" alt=\"\"></A>\n\n";
				}

			
} # Ende Zusatzbilder
print "</div>";	

if ($VIDEOLINK1)
	{
	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";	
	print "VIDEO:";
	print "<br><div align=\"center\">";
	print "<font size=\"2\" color=\"$VBG\">[&nbsp;<a href=\"$GOTOURL?$VIDEOLINK1\" target=\"_blank\"><b>";
	if($VIDEOTITEL1)
		{
		print "$VIDEOTITEL1";
		}
		else
		{
		print "VIDEO 1";
		}
	print "</b></a>&nbsp;]</font>";
	print "</div><br>";	
	}

	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";	
	
	
	print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
	print "<tr>";
	
	print "<td valign=\"top\">";
	print "<font face=verdana,arial,helvetica size=2 color=\"silver\">";
	print "<b>$TEXT970</b><br>";
	print "<font face=verdana,arial,helvetica size=1 color=\"silver\">";
#	print "Aktivität: $POSNOWPROZENT %<br>";
	$TEXT971 =~ s/\[POSPLATZ\]/$POSPLATZ/g;	
	$TEXT971 =~ s/\[XPOSMAX\]/$XPOSMAX/g;		

	print "$TEXT971";
	print "</td>";
	
	print "<td  width=\"25%\">";
	print "<font face=verdana,arial,helvetica size=1 color=\"silver\">";
	print "<div align=\"center\">";
	print "$POSNOWPROZENT%<br>";
	print "$POSBAROMETER";
	print "</div>";
	print "</td>";
	
	print "</tr>";
	print "</table>";
	print "<font face=verdana,arial,helvetica size=1 color=\"silver\">";

	if ($LASTUPDATE ne '00.00.0000')
		{
		print "$TEXT972 $LASTUPDATE";
		}


		
		
#	print "$BAROMETER100 $BAROMETER90 $BAROMETER80 $BAROMETER70 $BAROMETER60 $BAROMETER50 $BAROMETER40 $BAROMETER30 $BAROMETER20 $BAROMETER10";

	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";

if ($NOWATCHME eq 1)
	{
	print "<font size=\"2\" color=\"silver\">";
	print "<b>who's watching me?</b> $MENSCHEN2<br>";

	print "<font size=\"1\" color=\"silver\">";	
	print "$TEXT910";
	}
	else
	{
	print "<font size=\"2\" color=\"#ffffff\">";
	print "<b>who's watching me?</b> $MENSCHEN2<br>";

	print "<font size=\"1\" color=\"silver\">";	
	print "<div class=\"memberonline-hell\">";
	print "$TEXT958<br><br>";
	print "</div>";
    print "<iframe src=\"$HOMEURL/casting/cgi-bin/watchmember.pl?watchid=$ID&lg=$LG\" name=\"showmembers\" width=\"270\" height=\"300\" marginwidth=\"0\" marginheight=\"0\" frameborder=\"0\"></iframe>";	
	}

if ($SES eq $SHOWSESSION)
{
#### Einlesen der Werbung ####################
#	$werbeadresse = "../werbung/castingsedcard-rechts.html";
	$werbeadresse = "/pages/c2/d2/d0006431/home/htdocs/web/1flashmodels-de/casting/werbung/castingsedcard-rechts.html";

		open (WFILE, "<" . $werbeadresse);
		@WLINES=<WFILE>;
		$WSIZE=@WLINES;
		#print "$werbeadresse ($WSIZE)<br><br>";
		for ($iW=0;$iW<=$WSIZE;$iW++)
			{
			$TEXT2[$iW]=$WLINES[$iW];
			}
	close (WFILE);

	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";	
##### Werbeeinblendung ##
		for ($iW=0;$iW<=$WSIZE;$iW++)
			{			
			print "$TEXT2[$iW]\n";
			}
###############################################
print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";		
}

if ($FOUNDFOTOGRAF > 0)
	{
	print "<br><div align=\"center\">
	[ <a href=\"http://www.flashmodels.de/modelagentur/index.php?page=fotog&typ=fi&sb=$WOHNORT\" target=\"_blank\" style=\"color: silver;\">
	<b>Fotografen aus $WOHNORT ($FOUNDFOTOGRAF)</b></a> ]</div>";
print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";		
	}
	
} # ende mastersession

	print "<font face=verdana,arial,helvetica size=2 color=$hell>";
if ($CMODUS)
	{
	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";
	print "Sollte der Scrollbalken nicht funktionieren, so nutzen Sie bitte die Pfeile in der Scrollleiste, um nach unten zu scrollen!";	
	print "<hr width=\"100%\" size=\"1\" color=\"White\" noshade>";
	}


	print "</b>";

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

if ( ($LG eq '') or ($LG eq 'br') or ($LG eq 'en') )
{
print "<table bgcolor=\"#000000\" width=\"$RAHMEN\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">";
print "<tr>";
print "<td width=\"15\">&nbsp;</td>";
print "<td width=\"15\">";

if ($SES eq $SHOWSESSION)
{
#### Einlesen der Werbung ####################
#	$werbeadresse = "../werbung/castingsedcard-unten.html";
	$werbeadresse = "/pages/c2/d2/d0006431/home/htdocs/web/1flashmodels-de/casting/werbung/castingsedcard-unten.html";
		open (WFILE, "<" . $werbeadresse);
		@WLINES=<WFILE>;
		$WSIZE=@WLINES;
		#print "$werbeadresse ($WSIZE)<br><br>";
		for ($iW=0;$iW<=$WSIZE;$iW++)
			{
			$TEXT2[$iW]=$WLINES[$iW];
			}
	close (WFILE);
##### Werbeeinblendung ##
		for ($iW=0;$iW<=$WSIZE;$iW++)
			{			
			print "$TEXT2[$iW]\n";
			}
###############################################

if ($LG eq 'br')
	{
print "<a href=\"http://flashmodels.hit-toques.com/index.php?trck=&params=l|PT||t|DRT||s|728x90||n|reggae||f|jpg\" target=\"_blank\"><img src=\"http://www.mediaplazza.com/html/banners/display_banner.php?l=PT&t=DRT&s=728x90&n=reggae&f=jpg\" border=\"0\" /></a><br><br>";
	}

}

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

}

sub SAVESQL
{
#   print "Content-type: text/html\n\n";




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


$sqlbefehl="select EMAIL FROM $TABELLENNAME where ID = '$ID'";

$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$EMAILALT = $dbrow[0];	
}

$sqlbefehl="select ID FROM $TABELLENNAME where ID != '$ID' and EMAIL = '$FORM{'EMAIL'}'";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
#print "$sqlbefehl";

while (@dbrow = $sth->fetchrow_array)
{
$IDEMAILFOUND = $dbrow[0];	
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}

if ($IDEMAILFOUND)
{
$TEXTEMAILFOUND = "<font size=\"4\" color=\"red\"><b>Achtung !</b></font><br>
<br><font color=\"ffff00\" size=\"3\">
Die eMail wurde nicht geändert, da diese im System der Castingkartei schon verwendet wird.<br>
<br>
Diese wird im Profil : <b>$IDEMAILFOUND</b> verwendet.<br>
<br>
Die eMail <b>$EMAILALT</b> wird somit beibehalten!!!<br><br><hr></font><br>";

$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#c1c100\">$TEXTEMAILFOUND<br>-Eingegebene eMail: $FORM{'EMAIL'}-";
&LOG;

$FORM{'EMAIL'} = "$EMAILALT";
}

$sqlbefehl="select MAX(SHOWPOS) FROM $TABELLENNAME";

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

while (@dbrow = $sth->fetchrow_array)
{
$NEWMAXPOS = $dbrow[0];	
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}

$NEWMAXPOS++;

$sqlbefehl="select Count(*) FROM $TABELLENNAME WHERE ID = '$ID'";

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

while (@dbrow = $sth->fetchrow_array)
{
$SQLK = $dbrow[0];	
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}
	
if ($SQLK)
	{
    $FORM{'EMAIL'} =~ s/([ ])//g; # Ist ein Leerzeichen vorhanden, so wird es entfernt
    $FORM{'HANDYVORWAHL'} =~ s/([ ])//g; # Ist ein Leerzeichen vorhanden, so wird es entfernt
    $FORM{'HANDYRUFNUMMER'} =~ s/([ ])//g; # Ist ein Leerzeichen vorhanden, so wird es entfernt
    $FORM{'FESTNETZVORWAHL'} =~ s/([ ])//g; # Ist ein Leerzeichen vorhanden, so wird es entfernt		
    $FORM{'FESTNETZRUFNUMMER'} =~ s/([ ])//g; # Ist ein Leerzeichen vorhanden, so wird es entfernt	
	$FORM{'TEXT1'} =~ s/["']/`/g; # diese Zeichen werden ersetzt durch ein `
	$FORM{'TEXT2'} =~ s/["']/`/g; # diese Zeichen werden ersetzt durch ein `	
	$FORM{'HOBBYS'} =~ s/["']/`/g; # diese Zeichen werden ersetzt durch ein `		
	$FORM{'BERUF'} =~ s/["']/`/g; # diese Zeichen werden ersetzt durch ein `		

	if ( $FORM{'HOMEPAGE'} =~/\s/ ) 
		{
		$FORM{'HOMEPAGE'} = '';
		}
	if ( $FORM{'HOMEPAGE'} =~/\./ )
		{
		}
		else
		{
		$FORM{'HOMEPAGE'} = '';
		}
	
	$VIDEOLINKCHECK = substr ($FORM{'VIDEOLINK1'} ,0,23);
	$VIDEOLINKCHECK = lc($VIDEOLINKCHECK); # klein
#	print "-$VIDEOLINKCHECK-<br>";
	if ($VIDEOLINKCHECK eq "http://www.youtube.com/")
		{
		}
		else
		{
		$VIDEOLINK1 = "";
		$FORM{'VIDEOLINK1'} = "";
		$FORM{'VIDEOTITEL1'} = "";		
		}
	
	$dbh->do("UPDATE `$TABELLENNAME` 
	SET 
	`SHOWPOS` ='$NEWMAXPOS',
	`VORNAME` = '$FORM{'VORNAME'}',
	`NACHNAME` = '$FORM{'NACHNAME'}',
	`EMAIL` = '$FORM{'EMAIL'}', 
	`PASSWORT` = '$FORM{'PASSWORT'}',
	`GESCHLECHT` = '$FORM{'GESCHLECHT'}',
	`GEBURTSDATUM` = '$FORM{'GEBURTSJAHR'}-$FORM{'GEBURTSMONAT'}-$FORM{'GEBURTSTAG'}',
	`GEBURTSJAHR` = '$FORM{'GEBURTSJAHR'}',
	`POSTLEITZAHL` = '$FORM{'POSTLEITZAHL'}',
	`WOHNORT` = '$FORM{'WOHNORT'}',
	`STRASSE` = '$FORM{'STRASSE'}',
	`LAND` = '$FORM{'LAND'}',
	`LG` = '$LG',
	`HANDYVORWAHL` = '$FORM{'HANDYVORWAHL'}',
	`HANDYRUFNUMMER` = '$FORM{'HANDYRUFNUMMER'}',
	`FESTNETZVORWAHL` = '$FORM{'FESTNETZVORWAHL'}',
	`FESTNETZRUFNUMMER` = '$FORM{'FESTNETZRUFNUMMER'}',
	`BERUF` = '$FORM{'BERUF'}',
	`HOBBYS` = '$FORM{'HOBBYS'}',
	`HOMEPAGE` = '$FORM{'HOMEPAGE'}',
	`VIDEOLINK1` = '$FORM{'VIDEOLINK1'}',
	`VIDEOTITEL1` = '$FORM{'VIDEOTITEL1'}',		
	`STERNZEICHEN` = '$FORM{'STERNZEICHEN'}',
	`KORPERGROSSE` = '$FORM{'KORPERGROSSE'}',
	`GEWICHT` = '$FORM{'GEWICHT'}',
	`HAUTTYP` = '$FORM{'HAUTTYP'}',
	`HAARFARBE1` = '$FORM{'1HAARFARBE'}',
	`HAARFARBE2` = '$FORM{'2HAARFARBE'}',
	`HAARLANGE` = '$FORM{'HAARLANGE'}',
	`AUGENFARBE` = '$FORM{'AUGENFARBE'}',
    `SCHUHGROSSE` = '$FORM{'SCHUHGROSSE'}',
    `CSINGLE` = '$FORM{'SINGLE'}',	
	`BESCHREIBUNG1` = '$FORM{'TEXT1'}',
	`BESCHREIBUNG2` = '$FORM{'TEXT2'}',
#	`INFOFELD1` = '$FORM{'INFOFELD'}',
	`LASTUPDATE` = '$ISODATE' 
	
	 WHERE `ID` = '$FORM{'ID'}' ");

	$dbh->do("UPDATE STAMMDATEN SET 
		EMAIL = '$FORM{'EMAIL'}',
		STGESCHLECHT = '$FORM{'GESCHLECHT'}',
		STVORNAME = '$FORM{'VORNAME'}',
		STNACHNAME = '$FORM{'NACHNAME'}',
		STSTRASSE = '$FORM{'STRASSE'}',
		STPOSTLEITZAHL = '$FORM{'POSTLEITZAHL'}',
		STWOHNORT = '$FORM{'WOHNORT'}',
		STLAND = '$FORM{'LAND'}',		
		STPASSWORT = '$FORM{'PASSWORT'}',		
		LG = '$LG',		
		STGEBURTSDATUM = '$FORM{'GEBURTSJAHR'}-$FORM{'GEBURTSMONAT'}-$FORM{'GEBURTSTAG'}'	 
		WHERE `STAMMID` = '$FORM{'ID'}' ");

	}

#	print "-$SQLALTER-";
	
#	 VALUES ( '$FORM{'ID'}', '$FORM{'VORNAME'}', '$FORM{'NACHNAME'}', '$FORM{'EMAIL'}', '$FORM{'PASSWORT'}', '$FORM{'GESCHLECHT'}', '$FORM{'GEBURTSJAHR'}', '$FORM{'POSTLEITZAHL'}',
#     '$FORM{'WOHNORT'}', '$FORM{'STRASSE'}', '$FORM{'LAND'}', '$FORM{'HANDYVORWAHL'}', '$FORM{'HANDYRUFNUMMER'}', '$FORM{'FESTNETZVORWAHL'}', '$FORM{'FESTNETZRUFNUMMER'}', '$FORM{'BERUF'}', '$FORM{'HOBBYS'}',
#     '$FORM{'HOMEPAGE'}', '$FORM{'STERNZEICHEN'}', '$FORM{'KORPERGROSSE'}', '$FORM{'GEWICHT'}', '$FORM{'HAUTTYP'}', '$FORM{'1HAARFARBE'}', '$FORM{'2HAARFARBE'}', '$FORM{'HAARLANGE'}', '$FORM{'AUGENFARBE'}',
#     '$FORM{'SCHUHGROSSE'}', '$FORM{'TEXT1'}', '$FORM{'TEXT2'}', '$FORM{'INFOFELD'}', '$ISODATE'
#			)");
			

					
#	print "<h3>Gespeichert</h3>";
	$dbh->disconnect; # Von Datenbank abmelden		
###############
}



sub DATENEINLESEN
{
#   print "Content-type: text/html\n\n";

#print ":::::Test<br>";
#print "***$SES";
### Speichern des Infofeldes
#$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden


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

	if ($VAR eq 'show')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOWPUBLIC` = '1' WHERE `ID` = '$ID' ");
		}

	if ($VAR eq 'shownot')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOWPUBLIC` = '0' WHERE `ID` = '$ID' ");
		}

	$sqlbefehl="select SHOWPUBLIC FROM $TABELLENNAME WHERE `ID` = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	
	while (@dbrow = $sth->fetchrow_array)
		{
		$PUBLICSTATUS = $dbrow[0];	
		}
############

	if ($VAR eq 'shownachname')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SNACHNAME` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownotnachname')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SNACHNAME` = '0' WHERE `ID` = '$ID' ");
		}

	if ($VAR eq 'showemail')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SEMAIL` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownotemail')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SEMAIL` = '0' WHERE `ID` = '$ID' ");
		}

	if ($VAR eq 'showhandy')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHANDY` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownothandy')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHANDY` = '0' WHERE `ID` = '$ID' ");
		}

	if ($VAR eq 'showfestnetz')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SFESTNETZ` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownotfestnetz')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SFESTNETZ` = '0' WHERE `ID` = '$ID' ");
		}
		
	if ($VAR eq 'showberuf')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SBERUF` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownotberuf')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SBERUF` = '0' WHERE `ID` = '$ID' ");
		}

	if ($VAR eq 'showhobby')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOBBY` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownothobby')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOBBY` = '0' WHERE `ID` = '$ID' ");
		}

	if ($VAR eq 'showhomepage')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOMEPAGE` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownothomepage')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOMEPAGE` = '0' WHERE `ID` = '$ID' ");
		}
		

	if ($VAR eq 'showbe1')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SBE1` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownotbe1')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SBE1` = '0' WHERE `ID` = '$ID' ");
		}

	if ($VAR eq 'showbe2')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SBE2` = '1' WHERE `ID` = '$ID' ");
		}
	if ($VAR eq 'shownotbe2')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SBE2` = '0' WHERE `ID` = '$ID' ");
		}

#######
	if ($VAR eq 'watchoff')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `NOWATCHME` = '1' WHERE `ID` = '$ID' ");
		$dbh->do("DELETE FROM `$COOKIEONLINE` WHERE `COOKIEID` = '$ID' ");		
		}

	if ($VAR eq 'watchon')
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `NOWATCHME` = '0' WHERE `ID` = '$ID' ");
		}
#######

#print "-$FORM{'SAVEINFOFORM'}-$FORM{'INFOFELD1'}-";
if ($FORM{'SAVEINFOFORM'} eq 1)
	{
	if ($FORM{'THEMENINFO'} eq 1)
		{
		$FORM{'INFOFELD1'} =~ s/["']/`/g;
		$dbh->do("UPDATE `$CASTINGBEWERBUNG` SET `THEMENINFO` = '$FORM{'INFOFELD1'}' WHERE CASTID = '$ID'");
		}
		else
		{
		$FORM{'INFOFELD1'} =~ s/["']/`/g;
		$dbh->do("UPDATE `$TABELLENNAME` SET `INFOFELD1` = '$FORM{'INFOFELD1'}' WHERE ID = '$ID'");
		}
		$FORM{'THEMENINFO'} ="";
		$FORM{'SHOWINFOFORM'} = "";
	}

################
$sqlbefehl="select COUNT(*) FROM $TABELLENNAME WHERE ID = '$ID'";
#$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)
{
$RIGHTMAIL = $dbrow[0];	
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}



#$sqlbefehl="select PASSWORT, GESCHLECHT, VORNAME, NACHNAME, GEBURTSJAHR, POSTLEITZAHL, WOHNORT, LAND,
#				HANDYVORWAHL, HANDYRUFNUMMER, FESTNETZVORWAHL, FESTNETZRUFNUMMER, BERUF, HOBBYS, HOMEPAGE,
#				STERNZEICHEN, KORPERGROSSE, GEWICHT, HAUTTYP, HAARFARBE1, HAARFARBE2, HAARLANGE, AUGENFARBE, 
#				SCHUHGROSSE, ID, EMAIL, PASSWORT, BESCHREIBUNG1, BESCHREIBUNG2, STRASSE, INFOFELD1, DATE_FORMAT(GEBURTSDATUM, '%d.%m.%Y'), TO_DAYS(NOW()  - TO_DAYS(GEBURTSDATUM) )
#				FROM $TABELLENNAME 
				$WHERE = "WHERE ID = '$ID'";
				$WHERE_B = "WHERE CASTID = '$ID'";				

if ($SES eq $SHOWSESSION)
	{
	$WHERE = "WHERE ID = '$ID' and SHOWPUBLIC = '1'";
	}
				
if ($datenvonemail eq 1)
	{
#$sqlbefehl="select PASSWORT, GESCHLECHT, VORNAME, NACHNAME, GEBURTSJAHR, POSTLEITZAHL, WOHNORT, LAND,
#				HANDYVORWAHL, HANDYRUFNUMMER, FESTNETZVORWAHL, FESTNETZRUFNUMMER, BERUF, HOBBYS, HOMEPAGE,
#				STERNZEICHEN, KORPERGROSSE, GEWICHT, HAUTTYP, HAARFARBE1, HAARFARBE2, HAARLANGE, AUGENFARBE, 
#				SCHUHGROSSE, ID, EMAIL, PASSWORT, BESCHREIBUNG1, BESCHREIBUNG2, STRASSE, INFOFELD1, DATE_FORMAT(GEBURTSDATUM, '%d.%m.%Y'), TO_DAYS(NOW()  - TO_DAYS(GEBURTSDATUM) )
				$WHERE = "WHERE EMAIL = '$FORM{'EMAIL'}'";
#	print "$WHERE";
	}

#$sqlbefehl="select PASSWORT, GESCHLECHT, VORNAME, NACHNAME, GEBURTSJAHR, POSTLEITZAHL, WOHNORT, LAND,
#				HANDYVORWAHL, HANDYRUFNUMMER, FESTNETZVORWAHL, FESTNETZRUFNUMMER, BERUF, HOBBYS, HOMEPAGE,
#				STERNZEICHEN, KORPERGROSSE, GEWICHT, HAUTTYP, HAARFARBE1, HAARFARBE2, HAARLANGE, AUGENFARBE, 
#				SCHUHGROSSE, ID, EMAIL, PASSWORT, BESCHREIBUNG1, BESCHREIBUNG2, STRASSE, INFOFELD1, DATE_FORMAT(GEBURTSDATUM, '%d.%m.%Y'), YEAR(CURDATE()) - YEAR(GEBURTSDATUM) - IF(RIGHT(CURDATE(),5) < RIGHT(GEBURTSDATUM,5),1,0), 
#				SHOWPUBLIC, ANTRAGMEMBER, MEMBER, DATE_FORMAT(MEMBER_START, '%d.%m.%Y'), DATE_FORMAT(MEMBER_ENDE, '%d.%m.%Y'), DATE_FORMAT(NOW(), '%d.%m.%Y'), DATE_FORMAT( (NOW() + INTERVAL 6 MONTH) + INTERVAL 1 DAY, '%d.%m.%Y'),
#				SNACHNAME, SEMAIL, SHANDY, SFESTNETZ, SBERUF, SHOBBY, SBE1, SBE2, SHOMEPAGE, DATE_FORMAT(CDATUM, '%d.%m.%Y'), ZAHLER, NOW(), MEMBERPREIS, LOCKPUBLIC, NOWATCHME, LOCKFOTO, MEMBER_ENDE, CSINGLE, DATE_FORMAT(LASTUPDATE, '%d.%m.%Y'), BOOKEDPREMIUM
#				FROM $TABELLENNAME $WHERE";
	
$VARMONTH = 12; # errechnung für Premium

$sqlbefehl="select ID, GESCHLECHT, VORNAME, NACHNAME, ID, POSTLEITZAHL, WOHNORT, LAND,
				HANDYVORWAHL, HANDYRUFNUMMER, FESTNETZVORWAHL, FESTNETZRUFNUMMER, BERUF, HOBBYS, HOMEPAGE,
				STERNZEICHEN, KORPERGROSSE, GEWICHT, HAUTTYP, HAARFARBE1, HAARFARBE2, HAARLANGE, AUGENFARBE, 
				SCHUHGROSSE, ID, EMAIL, ID, ID, ID, ID, ID, DATE_FORMAT(GEBURTSDATUM, '%d.%m.%Y'), YEAR(CURDATE()) - YEAR(GEBURTSDATUM) - IF(RIGHT(CURDATE(),5) < RIGHT(GEBURTSDATUM,5),1,0), 
				SHOWPUBLIC, VORNAME, MEMBER, DATE_FORMAT(MEMBER_START, '%d.%m.%Y'), DATE_FORMAT(MEMBER_ENDE, '%d.%m.%Y'), DATE_FORMAT(NOW(), '%d.%m.%Y'), DATE_FORMAT( (NOW() + INTERVAL $VARMONTH MONTH) + INTERVAL 1 DAY, '%d.%m.%Y'),
				SNACHNAME, SEMAIL, SHANDY, SFESTNETZ, SBERUF, SHOBBY, SBE1, SBE2, SHOMEPAGE, DATE_FORMAT(CDATUM, '%d.%m.%Y'), ZAHLER, NOW(), MEMBERPREIS, VORNAME, NOWATCHME, VORNAME, MEMBER_ENDE, CSINGLE, DATE_FORMAT(LASTUPDATE, '%d.%m.%Y'), VIDEOLINK1, VIDEOTITEL1, DATE_FORMAT( (NOW() + INTERVAL 12 MONTH) + INTERVAL 1 DAY, '%d.%m.%Y'), DATE_FORMAT( (NOW() + INTERVAL 24 MONTH) + INTERVAL 1 DAY, '%d.%m.%Y'), TYP
				FROM $TABELLENNAME $WHERE";


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


#print "TEST-$FORM{'PASSWORT'}-<br>";
while (@dbrow = $sth->fetchrow_array)
{
$SQL = $dbrow[0];	
$MYID = $dbrow[0];
$GESCHLECHT = $dbrow[1];	
$VORNAME = $dbrow[2];	
$NACHNAME = $dbrow[3];	
$GEBURTSJAHR = $dbrow[4];	
$POSTLEITZAHL  = $dbrow[5];	
$WOHNORT  = $dbrow[6];	
$LAND = $dbrow[7];	
$HANDYVORWAHL = $dbrow[8];	
$HANDYRUFNUMMER = $dbrow[9];					
$FESTNETZVORWAHL = $dbrow[10];					
$FESTNETZRUFNUMMER = $dbrow[11];					
$BERUF = $dbrow[12];	
$HOBBYS  = $dbrow[13];	
$HOMEPAGE = $dbrow[14];	
$STERNZEICHEN  = $dbrow[15];	
$KORPERGROSSE  = $dbrow[16];	
$GEWICHT  = $dbrow[17];	
$HAUTTYP = $dbrow[18];	
$HAARFARBE1  = $dbrow[19];	
$HAARFARBE2  = $dbrow[20];	
$HAARLANGE  = $dbrow[21];	
$AUGENFARBE  = $dbrow[22];	
$SCHUHGROSSE  = $dbrow[23];	
$ID  = $dbrow[24];	
$EMAIL  = $dbrow[25];	
$PASSWORT  = $dbrow[26];
#$PASSWORT  = "1111";
#$VORNAME = "PIT";
$SQLPW = $PASSWORT;	
$TEXT1 = $dbrow[27];	
$TEXT2 = $dbrow[28];	
$STRASSE = $dbrow[29];
$INFOFELD = $dbrow[30];
$SQLGEBURTSDATUM = $dbrow[31];
$SQLALTER = $dbrow[32]; 
$SHOWPUBLIC = $dbrow[33]; 
$ANTRAGMEMBER = $dbrow[34]; 
$MEMBER = $dbrow[35]; 
$MEMBER_START = $dbrow[36]; 
$MEMBER_ENDE = $dbrow[37]; 
$DATUMHEUTE = $dbrow[38]; 
$DATUMHEUTE_6MON = $dbrow[39];

$SNACHNAME = $dbrow[40];
$SEMAIL = $dbrow[41];
$SHANDY = $dbrow[42];
$SFESTNETZ = $dbrow[43];
$SBERUF = $dbrow[44];
$SHOBBY = $dbrow[45];
$SBE1 = $dbrow[46];
$SBE2 = $dbrow[47];
$SHOMEPAGE = $dbrow[48];

$CDATUM = $dbrow[49];
$ZAHLER = $dbrow[50];
$DBNOW = $dbrow[51];
$MEMBERPREIS = $dbrow[52];
#$LOCKPUBLIC = $dbrow[53];
$NOWATCHME = $dbrow[54];
#$LOCKFOTO = $dbrow[55];
$MEMBERENDEDIN = $dbrow[56];

$SINGLE = $dbrow[57];
$LASTUPDATE = $dbrow[58];
$VIDEOLINK1 = $dbrow[59];
$VIDEOTITEL1 = $dbrow[60];

$DATUMHEUTE_12MON = $dbrow[61];
$DATUMHEUTE_24MON = $dbrow[62];

$CTYP = $dbrow[63];
#print "-$CTYP-";
$TEXT1SHOW = $TEXT1;
$TEXT2SHOW = $TEXT2;

$TEXT1SHOW =~ s/\cM\n/<br>\n/g;
$TEXT2SHOW =~ s/\cM\n/<br>\n/g;

#print "<br><br>PW:-$PASSWORT-$MYID-<br>";
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...

}

$sqlbefehl="select STPASSWORT	FROM STAMMDATEN WHERE STAMMID = '$MYID'";
                                                                  
#print "$sqlbefehl<br><br>";
	
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
#print "TEST-$FORM{'PASSWORT'}-<br>";
while (@dbrow = $sth->fetchrow_array)
{
$SQLPW = $dbrow[0];	
$PASSWORT = $SQLPW;
}
#print "<br>OK:PW-$SQLPW-";
if ($SQLPW eq $FORM{'PASSWORT'})
	{
	$RIGHTPW = 1;
	}

if ($datenvonemail eq 1) # Wenn erste Seite eingeloggt
	{
	$WHERE_B = "WHERE CASTID = '$ID'";				
	}
	
$sqlbefehl="select ANTRAGMEMBER, ANTRAGPREIS, ANTRAGLAUFZEITMONAT, BOOKEDPREMIUM, LOCKFOTO, MS, MSID, MSPREIS, MODEL, ANTRAGSCOUTER FROM $TABELLENNAME_B $WHERE_B";
#print "<br>$sqlbefehl<br><br>";

$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$ANTRAGMEMBER = $dbrow[0];
$ANTRAGMEMBERPREIS = $dbrow[1];
$ANTRAGLAUSZEITMONAT = $dbrow[2];
$BOOKEDPREMIUM = $dbrow[3];
$LOCKFOTO = $dbrow[4];
$MODELSCOUTER = $dbrow[5];
$MODELSCOUTERID = $dbrow[6];
$MODELSCOUTERPREIS = $dbrow[7];
$MODEL = $dbrow[8];
$ANTRAGSCOUTERID = $dbrow[9];
#print "***$DBCODE***";
}


$sqlbefehl="select COUNT(*) FROM SEDCARDDATEN where MODELID = '$ID'";
#print "<br>$sqlbefehl<br><br>";

$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$MODEL = $dbrow[0];
}

$LAUFZEIT = "6 Monate";	
$PREISPROMONAT = "3,32 € pro Monat";		
$ANTRAGMONATE = "6"; # Monate
$ANTRAGPREIS = "19.90 Euro";

$LAUFZEIT = "6 Monate";	
$PREISPROMONAT = "3,32 € pro Monat";		
$MEMPREIS = "19,90 Euro";


$LAUFZEITB = "12 Monate";	
$PREISPROMONATB = "2,50 € pro Monat";
$MEMPREISB = "29,90 Euro";

$LAUFZEIT = "24 Monate";	
$PREISPROMONATC = "1,67 € pro Monat";
$MEMPREISC = "39,90 Euro";

$ANTRAGMONATE = "6"; # Monate
$ANTRAGPREIS = "19.90 Euro";




if ($FORM{'MSID'})
{

#	$sqlbefehl="select $TABELLENNAME.vorname, $TABELLENNAME.nachname, $TABELLENNAME_B.CASTID, $TABELLENNAME_B.MSPREIS FROM $TABELLENNAME_B, $TABELLENNAME where $TABELLENNAME_B.MSID = '$FORM{'MSID'}' and $TABELLENNAME_B.MS = '1' and $TABELLENNAME_B.CASTID = $TABELLENNAME.ID";

	$sqlbefehl="select HTMLTEXT, EMAILHINWEIS, ID FROM MODELSCOUTER where ID = '$FORM{'MSID'}' ";
	
#	print "<br>$sqlbefehl<br><br>";
	
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)
	{
	$FSCOUTERHTMLTEXT = $dbrow[0];
	$FSCOUTEREMAILHINWEIS = $dbrow[1];
	$FSCOUTERID = $dbrow[2];		
	}
	if ($FSCOUTERID)
		{
		$SCOUTERGULTIG = 1;
		}
		else
		{
		$SCOUTERGULTIG = 0;
		}
}



#print "-$ANTRAGMEMBER-$MEMBER-$ANTRAGMEMBERPREIS-$ANTRAGLAUSZEITMONAT-$BOOKEDPREMIUM-";
	### Ermitteln ob das Zeitintervall aktiv ist
	$sqlbefehl="select COUNT(*) FROM $TABELLENNAME WHERE MEMBER_START <= NOW() and `ID` = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)
		{
		$MEMBER_START_INTERVAL = $dbrow[0];	
		}

	$sqlbefehl="select COUNT(*) FROM $TABELLENNAME WHERE MEMBER_ENDE >= NOW() and `ID` = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)
		{
		$MEMBER_ENDE_INTERVAL = $dbrow[0];	
		}

	if ( ($MEMBER_START_INTERVAL eq 1) and ($MEMBER_ENDE_INTERVAL eq 1) )
		{
		$MEMBERTIMEAKTIV = 1;
		}
		else
		{
		$MEMBERTIMEAKTIV = 0;
		### Zurücksetzen der Parameter
#		$dbh->do("UPDATE `$TABELLENNAME` SET `ANTRAGMEMBER` = '0', `MEMBER` = '0' WHERE `ID` = '$ID' ");		
		}

	if ( ($MEMBERTIMEAKTIV eq 1) and ($MEMBER eq 1) )
		{
		$MEMBERPREMIUM = 1;
		}

#		print "*$MEMBERPREMIUM*******";
	#####################		
	#print "$CDATUM-$MEMBERPREMIUM";
	if ( ($CDATUM eq '00.00.0000') and ($MEMBERPREMIUM eq '1') )
		{
		  	@datums = split(/\./, $DATUMHEUTE);
			$TAG_START = $datums[0]; 
			$MONAT_START = $datums[1]; 
			$JAHR_START = $datums[2]; 	

		#print "----->$JAHR_START-$MONAT_START-$TAG_START";
			
		$dbh->do("UPDATE $TABELLENNAME SET CDATUM = '$JAHR_START-$MONAT_START-$TAG_START' WHERE `ID` = '$ID'");
		$CDATUM = $DATUMHEUTE;
		}

	if ( ($CDATUM ne '00.00.0000') and ($SES eq $SHOWSESSION) )	
		{
		$ZAHLER++;
		$dbh->do("UPDATE `$TABELLENNAME` SET `ZAHLER` = '$ZAHLER' WHERE `ID` = '$ID'");	
		}

### Wenn Person unter 18, so wird Profil öffentlich ausgeschaltet!
if ( ($LAND eq "Deutschland") or ($LAND eq "Österreich")  or ($LAND eq "Schweiz") )
	{
	if ($SQLALTER < 18)
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOWPUBLIC` = '0' WHERE `ID` = '$FORM{'ID'}' ");
		}
	}
	else
	{
	if ($SQLALTER < 16)
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOWPUBLIC` = '0' WHERE `ID` = '$FORM{'ID'}' ");
		}
	}
#############################################################################

	$sqlbefehl="select DATE_FORMAT( ('$MEMBERENDEDIN' + INTERVAL 6 MONTH) + INTERVAL 1 DAY, '%d.%m.%Y') FROM $TABELLENNAME WHERE ID = '$ID'";
#	print "$sqlbefehl";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)
		{
		$ENDEDATUMPLUSSECHS = $dbrow[0];	
		}
		

	$sqlbefehl="select COUNT(*) FROM $COOKIEONLINE WHERE COOKIEID = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)
		{
		$MEMBERONLINE = $dbrow[0];	
		}

	# Ermittlung der aktuellen Position/aktivität in der Datenbank
	$sqlbefehl="select ID FROM `$TABELLENNAME` ORDER BY SHOWPOS ASC";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	$XPOS = 0;

	while (@dbrow = $sth->fetchrow_array)
		{
		$XPOS++;
		$COUNTID = $dbrow[0];	
		if ($ID eq $COUNTID)
			{
			$POSNOW = $XPOS; 
#			print "***";
			}
#		print "$XPOS. $COUNTID<br>";
		$XPOSMAX = $XPOS;
		}
		$POSPLATZ = $XPOSMAX-$POSNOW+1;
		
		$POSNOWPROZENT = ($POSNOW/$XPOSMAX)*100;
		$POSNOWPROZENT=sprintf("%.1f", $POSNOWPROZENT);
#		$POSNOWPROZENT = $POSNOWPROZENT	- 0.1;
		
#		$POSNOWPROZENT = 1;
		

#	print "$POSNOWPROZENT";



		if ($POSNOWPROZENT > '0.0') {$POSBAROMETER = $BAROMETER10;}																		
		if ($POSNOWPROZENT > '10.0') {$POSBAROMETER = $BAROMETER20;}
		if ($POSNOWPROZENT > '20.0') {$POSBAROMETER = $BAROMETER30;}
		if ($POSNOWPROZENT > '30.0') {$POSBAROMETER = $BAROMETER40;}
		if ($POSNOWPROZENT > '40.0') {$POSBAROMETER = $BAROMETER50;}
		if ($POSNOWPROZENT > '50.0') {$POSBAROMETER = $BAROMETER60;}
		if ($POSNOWPROZENT > '60.0') {$POSBAROMETER = $BAROMETER70;}												
		if ($POSNOWPROZENT > '70.0') {$POSBAROMETER = $BAROMETER80;}
		if ($POSNOWPROZENT > '80.0') {$POSBAROMETER = $BAROMETER90;}
		if ($POSNOWPROZENT > '90.0') {$POSBAROMETER = $BAROMETER100;}
#		if ($POSNOWPROZENT eq "100") {$POSBAROMETER = $BAROMETER100;}		

#		print "$XPOSMAX-$POSNOW-$POSNOWPROZENT %<br>$POSBAROMETER<br><br><br>";

	# Ende Position

## Einlesen aus Fotografendatenbank	
	$sqlbefehl="select COUNT(*) FROM DATENFOTOGRAFEN WHERE WOHNORT = '$WOHNORT'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)
		{
		$FOUNDFOTOGRAF = $dbrow[0];	
		}

#print "-$FOUNDFOTOGRAF-";

	$sqlbefehl="select COUNT(*) FROM SEDCARDDATEN WHERE WOHNORT = '$WOHNORT' and GESCHLECHT = 'Frau'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
	while (@dbrow = $sth->fetchrow_array)
		{
		$FOUNDMODELWOHNORT = $dbrow[0];	
		}
	
###############################################################################
$sqlbefehl="select DBCODE FROM `CASTINGKARTEI_CODE` WHERE CASTID = '$ID'";
#print "<br>$sqlbefehl<br><br>";

$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden
while (@dbrow = $sth->fetchrow_array)
{
$DBCODE = $dbrow[0];
#print "***$DBCODE***";
}

# Anlegen eines codes, z.B. zum versenden eine Mitgliedernachricht!
# Dieser Code wird bei jedem Login neu erzeugt, auch wenn über z.b Mastersession aufgerufen wird.
#$DBCODE = "";
if (!$DBCODE) 
	{
#	print "Code anlegen!<br>";
	$DBCODE = "";
	for ($i=1; $i<=12; $i++)
		{
		$DBCODE[$i] = int (rand(36)+1);
		if ($DBCODE[$i] eq 10) {$DBCODE[$i] = "a";}
		if ($DBCODE[$i] eq 11) {$DBCODE[$i] = "a";}
		if ($DBCODE[$i] eq 12) {$DBCODE[$i] = "b";}
		if ($DBCODE[$i] eq 13) {$DBCODE[$i] = "c";}
		if ($DBCODE[$i] eq 14) {$DBCODE[$i] = "d";}
		if ($DBCODE[$i] eq 15) {$DBCODE[$i] = "e";}
		if ($DBCODE[$i] eq 16) {$DBCODE[$i] = "f";}
		if ($DBCODE[$i] eq 17) {$DBCODE[$i] = "g";}
		if ($DBCODE[$i] eq 18) {$DBCODE[$i] = "h";}
		if ($DBCODE[$i] eq 19) {$DBCODE[$i] = "i";}
		if ($DBCODE[$i] eq 20) {$DBCODE[$i] = "j";}																		
		if ($DBCODE[$i] eq 21) {$DBCODE[$i] = "k";}
		if ($DBCODE[$i] eq 22) {$DBCODE[$i] = "l";}
		if ($DBCODE[$i] eq 23) {$DBCODE[$i] = "m";}
		if ($DBCODE[$i] eq 24) {$DBCODE[$i] = "n";}
		if ($DBCODE[$i] eq 25) {$DBCODE[$i] = "o";}
		if ($DBCODE[$i] eq 26) {$DBCODE[$i] = "p";}
		if ($DBCODE[$i] eq 27) {$DBCODE[$i] = "q";}
		if ($DBCODE[$i] eq 28) {$DBCODE[$i] = "r";}
		if ($DBCODE[$i] eq 29) {$DBCODE[$i] = "s";}																		
		if ($DBCODE[$i] eq 30) {$DBCODE[$i] = "t";}
		if ($DBCODE[$i] eq 31) {$DBCODE[$i] = "u";}
		if ($DBCODE[$i] eq 32) {$DBCODE[$i] = "v";}						
		if ($DBCODE[$i] eq 33) {$DBCODE[$i] = "w";}
		if ($DBCODE[$i] eq 34) {$DBCODE[$i] = "x";}
		if ($DBCODE[$i] eq 35) {$DBCODE[$i] = "y";}						
		if ($DBCODE[$i] eq 36) {$DBCODE[$i] = "z";}		
		$DBCODE = "$DBCODE$DBCODE[$i]";
		}
		
		$dbh->do("DELETE FROM `CASTINGKARTEI_CODE` WHERE `CASTID` =  '$ID'");	
    	$dbh->do("INSERT INTO `CASTINGKARTEI_CODE` ( `CASTID`, `DBCODE`)  VALUES ( '$ID', '$DBCODE' )	");


	}

#print "DBCode: $DBCODE";
		

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

}


sub EDITUSER
{

	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#c1c100\">Daten ändern wurde geklickt $TEXTEMAILFOUND";
	&LOG;


	print "<table bgcolor=\"#000000\" width=\"800\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr>";
	print "\n\n<form method=POST action=\"$cgiurl?action=savedata&ses=$SES&ID=$ID&var=&bew=&lg=$LG\">\n\n";   				
	print "<td>";

	print "$TEXT500";
	
	

print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"10\" border=\"0\">";
print "<tr>";
print "<td width=\"300\" valign=\"top\">";

	print "$TEXT501";
#	print "-$SQLALTER-";
			print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";
			
#			print "<tr>";
#	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>ID</b>:&nbsp;</td>";
#		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"hidden\" name=\"ID\" size=\"15\" value=\"$ID\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
#			print "</tr>";
			print "<input type=\"hidden\" name=\"ID\" size=\"15\" value=\"$ID\">";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT510</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"VORNAME\" size=\"30\" value=\"$VORNAME\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT511</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"NACHNAME\" size=\"30\" value=\"$NACHNAME\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT512</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;";

			print "<select name=GESCHLECHT size=1>";

		if ($GESCHLECHT eq "Mann")
			{
			print "<option value=\"Mann\" selected>$TEXT301a";
			}
			else
			{
			print "<option value=\"Frau\" selected>$TEXT301b";
			}

			print "<option value=\"Mann\">$TEXT301a<option value=\"Frau\">$TEXT301b</select>";
			
			print "&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT513</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=3 color=ffffff>&nbsp;";

	if ($SQLGEBURTSDATUM ne '00.00.0000')
			{
			@DATUMDMY  = split(/\./,"$SQLGEBURTSDATUM");
			$GEBURTSTAG = $DATUMDMY[0];
			$GEBURTSMONAT = $DATUMDMY[1];			
			$GEBURTSJAHR = $DATUMDMY[2];						

			if ($GEBURTSTAG eq "00")
				{
				$GEBURTSTAG = "";
				}
				
			if ($GEBURTSMONAT eq "00")
				{
				$GEBURTSMONAT = "";
				}				
			}
#			print "$GEBURTSTAG-$GEBURTSMONAT-$GEBURTSJAHR<br>";
#			print "$SQLGEBURTSDATUM<br>";
#			print "$YEARNOW";			
			
			
			print "<select name=\"GEBURTSTAG\" size=1><option selected>$GEBURTSTAG
			<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10
			<option>11<option>12<option>13<option>14<option>15<option>16<option>17<option>18<option>19<option>20			
			<option>21<option>22<option>23<option>24<option>25<option>26<option>27<option>28<option>29<option>30			
			<option>31</select>.";
			
			print "<select name=\"GEBURTSMONAT\" size=1><option selected>$GEBURTSMONAT
			<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10
			<option>11<option>12</select>.";			
			
		$jahrdif = 100;
		print "<select name=\"GEBURTSJAHR\" size=1><option selected>$GEBURTSJAHR";
	
		for ($k=0; $k<=100; $k++)
			{
			$showjahr = $YEARNOW - $k;
			print "<option>$showjahr";
			}
	
		print "</select>";
		


			
#			print "<input type=\"text\" name=\"GEBURTSJAHR\" value=\"$GEBURTSJAHR\" size=\"4\" maxlength=\"4\">";
			print "&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT515</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"STRASSE\" size=\"30\" value=\"$STRASSE\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT516</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"POSTLEITZAHL\" size=\"10\" value=\"$POSTLEITZAHL\" maxlength=\"14\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT517</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"WOHNORT\" size=\"30\" value=\"$WOHNORT\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT518</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;";

			 print "<select name=LAND size=1>";
		   print "<option selected>$LAND<option>Deutschland<option>Österreich<option>Schweiz<option>";

   print "$LAENDER";

   print "</select>";
			
			


			print "&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";
			
			
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT520</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"EMAIL\" size=\"30\" value=\"$EMAIL\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;</td>";
			print "</tr>";


			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT521</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"PASSWORT\" size=\"22\" maxlength=\"30\" value=\"$PASSWORT\">&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</td>";
			print "</tr>";

			
			print "</table>";	


print "</td><td valign=\"top\">";
			

			print "$TEXT502";
						
			print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";			
			print "<tr>";
	    	print "<td width=\"150\" align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;</td>";
			print "</tr>";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$orange\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT525</b>&nbsp;<br></td>";
		    print "<td valign=\"top\" bgcolor=\"$orange\"><font face=verdana,arial,helvetica size=1 color=000000><b>$TEXT526&nbsp;<font face=verdana,arial,helvetica size=1 color=ffff00>*)</b></td>";
			print "</tr>";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$orange\"><font face=verdana,arial,helvetica size=2 color=$hell><br><b>$TEXT527</b>:&nbsp;<br><font face=verdana,arial,helvetica size=1 color=000000></td>";
		    print "<td valign=\"top\" bgcolor=\"$orange\"><font face=verdana,arial,helvetica size=1 color=000000>$TEXT528<br>&nbsp;<input type=\"text\" name=\"HANDYVORWAHL\" size=\"10\" value=\"$HANDYVORWAHL\" maxlength=\"15\">&nbsp;&nbsp;<input type=\"text\" name=\"HANDYRUFNUMMER\" value=\"$HANDYRUFNUMMER\" size=\"20\" maxlength=\"20\">&nbsp;</td>";
			print "</tr>";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$orange\"><font face=verdana,arial,helvetica size=2 color=$hell><br><b>$TEXT529</b>:&nbsp;<br><font face=verdana,arial,helvetica size=1 color=000000></td>";
		    print "<td valign=\"top\" bgcolor=\"$orange\"><font face=verdana,arial,helvetica size=1 color=000000>$TEXT528<br>&nbsp;<input type=\"text\" name=\"FESTNETZVORWAHL\" value=\"$FESTNETZVORWAHL\" size=\"10\" maxlength=\"15\">&nbsp;&nbsp;<input type=\"text\" name=\"FESTNETZRUFNUMMER\" value=\"$FESTNETZRUFNUMMER\" size=\"20\" maxlength=\"20\">&nbsp;</td>";
			print "</tr>";
			
			
			print"</table>";			
		

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

print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"10\" border=\"0\">";
print "<tr>";
print "<td width=\"400\" valign=\"top\">";
			
			print "$TEXT530";			

			print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";			

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT531</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"BERUF\" size=\"30\" value=\"$BERUF\"></td>";
			print "</tr>";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT532</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"HOBBYS\" size=\"30\" value=\"$HOBBYS\"></td>";
			print "</tr>";

			
			print "<tr>";
	    	print "<td valign=\"top\" align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT533</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=ffffff>&nbsp;<b>http://</b><input type=\"text\" name=\"HOMEPAGE\" size=\"23\" value=\"$HOMEPAGE\">";


		if($HOMEPAGE)
			{
			print "<br><font size=\"1\">$PICFLAG2 $HOMEPAGEHINWEIS</font>";
			}
			print "</td>";
			print "</tr>";
			
			
			print "</table>";				



		print "<br><br><font color=\"#ffffff\">$TEXT545</font>";
			
			print "<table width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";			

			print "<tr>";
	    	print "<td valign=\"top\" align=\"right\" bgcolor=\"$VBG\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT546</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$VBG\">&nbsp;<input type=\"text\" name=\"VIDEOLINK1\" size=\"30\" value=\"$VIDEOLINK1\"><br>&nbsp;&nbsp;<font color=\"#ffffff\" size=\"1\">$TEXT547<br><br></font></td>";
			print "</tr>";

			print "<tr>";
	    	print "<td valign=\"top\" align=\"right\" bgcolor=\"$VBG\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT548</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$VBG\">&nbsp;<input type=\"text\" name=\"VIDEOTITEL1\" size=\"30\" maxlength=\"30\" value=\"$VIDEOTITEL1\"><br>&nbsp;&nbsp;<font color=\"#ffffff\" size=\"1\">$TEXT549<br><br></font></td>";
			print "</tr>";
			
			
			print "</table>";			
			
print "</td><td valign=\"top\">";			
			
#			print "<br><br>";

			print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";			
			print "<tr>";
	    	print "<td width=\"150\" align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>$NEW <b>$TEXT302</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>";
		if ($SINGLE eq 1)
			{
			print "&nbsp;<input type=\"checkbox\" name=\"SINGLE\" value=\"1\" checked>&nbsp;";
			}
			else
			{
			print "&nbsp;<input type=\"checkbox\" name=\"SINGLE\" value=\"1\">&nbsp;";
			}
			print "$TEXT302b$HERZ";
			print "</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT535</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;";
			print "<select name=STERNZEICHEN size=1>";
			print "<option selected>$STERNZEICHEN";
			print "<option><option>$DATEN_select0";
			print "</select><br>";
			print "</td>";
			print "</tr>";
			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT536</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"KORPERGROSSE\" size=\"3\" maxlength=\"3\" value=\"$KORPERGROSSE\"><font face=verdana,arial,helvetica size=2 color=$hell> <b>cm</b></td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT537</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"GEWICHT\" size=\"3\" maxlength=\"3\" value=\"$GEWICHT\"><font face=verdana,arial,helvetica size=2 color=$hell> <b>kg</b></td>";
			print "</tr>";


			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT538</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;";
		    print "<select name=HAUTTYP size=1>";
			print "<option selected>$HAUTTYP";
			print "<option><option>$DATEN_select1";
			
#			print "<option><option>sehr hell<option>hell<option>Sommersprossen";
#			print "<option>leicht braun<option>mittel braun<option>sehr braun<option>schwarz";   
			print "</select><br>";
			print "</td>";
			print "</tr>";
			

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT539</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;";
		   print "<select name=1HAARFARBE size=1>";
		   print "<option selected>$HAARFARBE1";
			print "<option><option>$DATEN_select2";
#		   print "<option><option>hell<option>mittel<option>dunkel";
		   print "</select>";

		   print "<select name=2HAARFARBE size=1>";
		   print "<option selected>$HAARFARBE2";
			
			print "<option><option>$DATEN_select3";
#		   print "<option><option>blond<option>braun<option>schwarz<option>rot<option>grau";
		   print "</select><br>";
			print "</td>";
			print "</tr>";

			
			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT540</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;";
		   print "<select name=HAARLANGE size=1>";
		   print "<option selected>$HAARLANGE";
			print "<option><option>$DATEN_select4";
#		   print "<option><option>kahl<option>sehr kurz<option>kurz<option>mittel<option>lang<option>sehr lang";
		   print "</select><br>";
			print "</td>";
			print "</tr>";
			

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT541</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;";
		   print "<select name=AUGENFARBE size=1>";
		   print "<option selected>$AUGENFARBE";
			print "<option><option>$DATEN_select5";
#		   print "<option><option>blau<option>blau-grün<option>blau-grau";
#		   print "<option>braun<option>braun-grün";   
#		   print "<option>grün<option>grün-blau<option>grün-braun<option>grün-grau";   
		   print "</select>";
			print "</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT542</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<input type=\"text\" name=\"SCHUHGROSSE\" size=\"3\" maxlength=\"2\" value=\"$SCHUHGROSSE\"><font face=verdana,arial,helvetica size=2 color=$hell></td>";
			print "</tr>";

			
			
			print "</table><br>";				

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


			print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";			
			print "<tr>";
	    	print "<td width=\"150\" align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT551</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<textarea name=\"TEXT1\" COLS=60 ROWS=15>";

			print "$TEXT1";
			

			print "</textarea><font face=verdana,arial,helvetica size=2 color=$hell></td>";
			print "</tr>";
			
			
			print "</table>";				

			print "$TEXT555";
			
			print "<table bgcolor=\"#000000\" width=\"100%\" cellspacing=\"1\" cellpadding=\"1\" border=\"0\">";			
			print "<tr>";
	    	print "<td width=\"150\" align=\"right\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell>&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;</td>";
			print "</tr>";

			print "<tr>";
	    	print "<td align=\"right\" valign=\"top\" bgcolor=\"$grau\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT551</b>:&nbsp;</td>";
		    print "<td valign=\"top\" bgcolor=\"$grau\">&nbsp;<textarea name=\"TEXT2\" COLS=60 ROWS=15>";

			print "$TEXT2";
			

			print "</textarea><font face=verdana,arial,helvetica size=2 color=$hell></td>";
			print "</tr>";
			
			
			print "</table>";				

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

	
	print "$TEXT560";
	print "<p align=\"right\">";

	print "<table width=\"350\">";
	print "<tr>";
	print "<td>";
	
	print "$TEXT561";
		
	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print "<input type=\"checkbox\" name=\"AGB\" value=\"1\"> $TEXT565<br><br>";
	print "</td>";
	print "</tr>";
	print "</table>";

	
	print "<input type=submit value=\"$TEXT566\">\n";
	print "</p>";
	print "</form>";
	print "<br><br>";

	print "</center>";			

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


}


sub OPTIONS
	{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#b85484\">Einstellungen wurde geöffnet";
	&LOG;

	print "<table bgcolor=\"#000000\" width=\"800\" height=\"400\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td valign=\"top\">";
	print "<font face=verdana,arial,helvetica size=2 color=\"#ffffff\">";
#	print "$TEXT600";
	
$PRG = 1;
#if ($LG eq '')
if ($PRG eq 1)
	{
#	print "$VAR-$ID-";

#print "-$PUBLICSTATUS-$VAR-";

if ( ($VAR eq 'shownot') or ($VAR eq 'show') )
	{

	$file_thumb_copy_folder = "$REAL/casting/thumb";	
	$file_thumb_org_folder = "$REAL/casting/kartei/foto";	
	
	if ($VAR eq 'shownot')
	{
	$DEL ="$file_thumb_copy_folder/$ID-thumb.jpg";
	unlink ($DEL);	
	}

	if ($VAR eq 'show')
	{
	$oldfile = "$file_thumb_org_folder/$ID-thumb.jpg";
	$newfile = "$file_thumb_copy_folder/$ID-thumb.jpg";
	copy ($oldfile, $newfile);
	}

	
		
}

		
	$dbh->disconnect; # Von Datenbank abmelden			


#	print "<hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade>";
	print "$TEXTa900 ";


	if ( ($MEMBERTIMEAKTIV eq 1) and ($MEMBER eq 1) )
		{
		print "<b>$TEXTa901</b>$STAR$STAR$STAR<br>";

		$TEXTa905 =~ s/\[MEMBER_START\]/$MEMBER_START/g;	
		$TEXTa905 =~ s/\[MEMBER_ENDE\]/$MEMBER_ENDE/g;		
		print "<br><font color=\"#ffaf0a\">$TEXTa905</font>";

		if ($ANTRAGMEMBER eq 2)
			{
			}
			else
			{
			if ( ($SQLALTER > 18) and (($LAND eq 'Deutschland') or ($LAND eq 'Österreich') or ($LAND eq 'Schweiz')) )
				{
			
				print "<table width=\"600\" cellspacing=\"0\" cellpadding=\"0\">
				<tr>
					<td>
					<a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=ver&lg=$LG\" style=\"color: Aqua;\">
					<img src=\"http://www.flashmodels.de/casting/grafik/hg-kalender.jpg\" border=\"0\" alt=\"\"></a>
					</td>
					<td><font size=\"2\"><div align=\"center\">
					Verlängere Deine Premium-Mitgliedschaft $STAR$STAR$STAR<br>
					 jetzt bis zu 24 Monate<br>
					<a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=ver&lg=$LG\" style=\"color: Aqua;\">[weitere Informationen, hier klicken]</a><br><br>
</font>
					<font size=\"1\">Nach Ablauf dieser Zeit wird die Premium-Mitgliedschaft <u>nicht</u> automatisch verlängert und es entstehen <u>keine</u> weiteren Kosten!</font>
					</div>
					</font></td>
				</tr></table>";
				
#				print "<img src=\"http://www.flashmodels.de/casting/grafik/hg-kalender.jpg\" border=\"0\" alt=\"\">";
#				print "<br><br>-> <a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=ver&lg=$LG\" style=\"color: Aqua;\">Klicke hier,</a> um Deine Premium-Mitgliedschaft jetzt um weitere 6 Monate zu verlängern $STAR$STAR$STAR</font>";
				}
			}
			
		}
		else
		{
		print "<b>$TEXTa902</b> $STAR ($TEXTa903)";
		if ($ANTRAGMEMBER eq 1)
			{
			print "<font color=\"#ffaf0a\"><br> $TEXTa906 $STAR$STAR$STAR</font>";
			}
			else
			{
#			print "<font color=\"silver\"> | -> <a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=&lg=$LG\" style=\"color: Aqua;\">jetzt Premium-Mitglied werden</a> $STAR$STAR$STAR</font>";
			}

		if ($ANTRAGMEMBER eq 1)
			{
			print "<div align=\"center\"><br><table bgcolor=\"#771d7e\" width=\"700\" cellspacing=\"5\" cellpadding=\"2\"><tr><td>";
			print "<font color=\"#ffffff\" size=\"2\">$PICFLAG2 $ACHTUNG<br>$TEXTa907</font>";
			print "</td></tr></table></div><br>";
			}

		}
		
		if ($ANTRAGMEMBER eq 2)
			{
			print "<div align=\"center\"><br><table bgcolor=\"#771d7e\" width=\"700\" cellspacing=\"5\" cellpadding=\"2\"><tr><td>";
			print "<font color=\"#ffffff\" size=\"2\">$PICFLAG2 $ACHTUNG<br>Eine Verlängerung zur Premium-Mitgliedschaft wurde beantragt!<br>
			Bitte überrpüfe, ob Du schon das Geld auf unser Konto überwiesen hast. Erst nach Geldeingang auf unserem Konto wird die Mitgliedschaft gewechselt bzw. verlängert. </font>
			<a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premiumdepot&bew=ver&lg=$LG\" style=\"color: #ffffff; font-size: 12px;\">[Bankverbindung anzeigen]</a>";
			print "</td></tr></table></div><br>";			
			$ANTRAGMEMBER = 1;
#			$SHOWPREMIUMNOW = 0;
			}



#print "<br>$SQLALTER -$LG- -$LAND-";
if ( ($SQLALTER < 18) and (($LAND eq "Deutschland") or ($LAND eq "Österreich") or ($LAND eq "Schweiz")) )
	{
	print "<br><br><hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade>";
	print "$TEXTa910<br>";

	$UNTER18 = 1;
#	Solltest Du über 18 Jahre alt sein, so überprüfe dies bitte in dem Menüpunkt unter \"Daten ändern\"!<br><br>";

	}

#	print "<br><br>Antrag:$ANTRAGMEMBER - Member:$MEMBER - Start:$MEMBER_START - Ende:$MEMBER_ENDE<br>";
#	print "Startinterval: $MEMBER_START_INTERVAL, $MEMBER_ENDE_INTERVAL, Aktiv:$MEMBERTIMEAKTIV-";
	
	
if ( ($UNTER18 != '1') or ($PUBLICSTATUS eq '1') )
{
if ($PUBLICSTATUS eq '1')
	{	
	$HGTAB1 = "$HGGRUN";
	$HGTOP2 = "$HGGRUNTOP2";
	}
	else
	{
	$HGTAB1 = "$HGROT";
	$HGTOP2 = "$HGROTTOP2";
	}

	print "<hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade>";


#	print "<a href=\"javascript:pophtmltipp('$cgiurl?action=tip&tip=1',500,400)\">TEST</a>";

	print "<font color=\"ffffff\" size=\"2\">";
	print "<b>$TEXTa911</b><br>";

	print "<table width=\"100%\" cellspacing=\"0\" cellpadding=\"0\" border=\"0\" background=\"$HGTOP2\">\n";
	print "	<tr>\n";
	print " 	<td width=\"80%\" height=\"50\" valign=\"top\" background=\"$HG1L\">";
	
	print "<font color=\"ffffff\" size=\"2\">";
	print "<br>";

	print "<font size=\"2\" color=\"#ffffff\">";
	print "$TEXTa912: ";
if ($PUBLICSTATUS eq '0')
	{	
	print "<font color=\"red\" size=\"4\"><b>$TEXTa913</b></font><br>";
	print "<br><font size=\"1\"><b>&nbsp;</font>";
#	print "<font size=\"1\">Mit ändern des Status stimmst Du ausdrücklich unseren <a href=\"http://www.flashModels.de/agb\" target=\"_blank\">AGB's</a> zu.</font><br><br>";
	}
	
if ($PUBLICSTATUS eq '1')
	{	
	print "<font color=\"lime\" size=\"4\"><b>$TEXTa914</b></font> ";
#	print " <font color=\"silver\" size=\"1\">[kostenlos]</font>";
	print "<br><font size=\"1\">$TEXTa915</font><br><br>";
	}
	
	print "		</td>";
	print "<td align=\"right\" valign=\"top\">&nbsp;";
if ($PUBLICSTATUS eq '1')
	{	

	$TIPPTEXT1 = "$TEXTa920";
	print "$PICFLAG2&nbsp;";
	print "[ <a href=\"#\"onmouseover=\"return overlib('<TABLE><TR><TD class=tipp>$TIPPTEXT1</TD></TR></TABLE>',CAPTION,'$TIPP');\" onMouseout=\"return nd();\"><font color=\"#ffb900\" size=\"4\"><b>$TIPP</b></font></A> ]";


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



if ($PUBLICSTATUS eq '1')
	{		
	$HG1L = "$HGGRUNTOP";
	}
	else
	{
	$HG1L = "$HGROTTOP";	
	}
print "<table width=\"100%\" cellspacing=\"2\" cellpadding=\"2\" border=\"0\">\n";
print "	<tr>\n";
print " 	<td width=\"50%\" height=\"50\" valign=\"top\" background=\"$HG1L\">";

	print "<div align=\"center\">";
	print "<font color=\"#ffffff\" size=\"2\">";

#print "-$BOOKEDPREMIUM-";
if ($BOOKEDPREMIUM eq 0)
{

if ($ANTRAGMEMBER eq 1)
	{
	print "<font size=\"2\" color=\"#ffaf0a\">$TEXTa930 $STAR$STAR$STAR</font><br>";
	print "<font color=\"silver\" size=\"1\"><br>$TEXTa938";
	}

if ($ANTRAGMEMBER ne 1)
	{
	print "<font color=\"silver\" size=\"3\"><div align=\"center\"><a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=&lg=$LG\" style=\"color: #ffaf0a;\"><b>>>$TEXTa935</b><<</a></font><br>";
	print "<font color=\"#ffffff\" size=\"2\">[ $TEXTa936 ]</font></div><br>";
	print "Nachdem Du Premium-Mitglied bist, kannst<br>Du Dein Profil öffentlich schalten<br>";
	}

}
else
{	
	
if ( ($PUBLICSTATUS eq '0') )
	{		
	if ($LOCKPUBLIC eq  '2')
		{
		print "<b><font color=\"ffff00\">Änderung nicht möglich, da wir immer noch auf den Geldeingang für den Wechsel zur<br>Premium-Mitgliedschaft warten!<br>Hier nochmals unsere Bankverbindung: <a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premiumdepot&bew=&lg=$LG\" style=\"color: #ffffff;\">[Bankverbindung anzeigen]</a></font></b><br><br>";
		}

		
	if ($LOCKFOTO eq  '1')
		{
		print "<b><font color=\"ffff00\">Änderung nicht möglich, da Deine Fotos gegen unsere Richtlinien verstoßen, bitte Fotos tauschen!</font></b><br><br>";
		}


	if ( ($LOCKPUBLIC ne  '1') and ($LOCKPUBLIC ne '2') and ($LOCKFOTO ne '1'))
		{
		####### überprüfung, ob Vorschaufoto vorhanden ##########
		$FOTOFILE = "$saveurleinfug/$ID.jpg";
		open (FILE, "<" . $FOTOFILE);
		@LINES=<FILE>;
		$SIZE=@LINES;
		close(FILE);
		if ($SIZE eq 0)
			{
			print "<b>Fehler!!!</b><br>Profil kann nicht öffentlich geschaltet werden, da kein Vorschaubild vorhanden ist. Lade dieses hierzu hoch!";
			}
			else
			{
			print "<a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=show&bew=&lg=$LG\" style=\"color: lime;\"><b>>>$TEXTa925<<</b></a>";		
		    }
		}
	}
	else
	{
	print "<a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownot&bew=&lg=$LG\" style=\"color: red;\"><b>>>$TEXTa926<<</b></a>";
	}


	if ( ($LOCKPUBLIC ne  '1') and ($LOCKPUBLIC ne '2') )
		{
		print "<br><font color=\"#ffffff\" size=\"2\">[ $KOSTENLOS ]</font>";
		}
	print "</div>";
}
print "</td>";
print "<td valign=\"top\" background=\"$HGGOLDTOP\">";

		if ($ANTRAGMEMBER eq 1)
			{
			print "<font size=\"2\" color=\"#ffaf0a\">$TEXTa930 $STAR$STAR$STAR</font><br>";
			print "<font color=\"silver\" size=\"1\"><br>$TEXTa938";
			}
			else
			{
		
			if ( ($PUBLICSTATUS eq '0') and ($MEMBERPREMIUM eq '1') )
				{
				if ($LOCKFOTO eq  '1')
					{
					print "<b><font color=\"ffff00\"  size=\"2\">Änderung nicht möglich, da Deine Fotos gegen unsere Richtlinien verstoßen, bitte Fotos tauschen!</font></b><br><br>";
					}
					else
					{
					print "<div align=\"center\"><font size=\"2\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=show&bew=&lg=$LG\" style=\"color: lime;\"><b>>>$TEXTa933<<</b></a></font></div>";
					}
				}
		
			if ($SQLALTER >= '18')
				{
				if ( (($PUBLICSTATUS eq '0') and ($MEMBERPREMIUM ne '1')) or (($PUBLICSTATUS eq '1') and ($MEMBERPREMIUM ne '1')) )
					{
					if ($SHOWPREMIUMNOW eq 1)
						{
						print "<font color=\"silver\"><div align=\"center\"><a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=&lg=$LG\" style=\"color: #ffaf0a;\"><b>>>$TEXTa935</b><<</a></font>";
						print "<br><font color=\"#ffffff\" size=\"2\">[ $TEXTa936 ]</font></div>";
						}
					print "<font color=\"silver\" size=\"1\"><br>$TEXTa938";					
					}
				}
			}


	if ( ($MEMBERTIMEAKTIV eq 1) and ($MEMBER eq 1) )
		{
		$TEXTa939 =~ s/\[MEMBER_START\]/$MEMBER_START/g;	
		$TEXTa939 =~ s/\[MEMBER_ENDE\]/$MEMBER_ENDE/g;
		print "<br><font color=\"#ffaf0a\" size=\"1\">$TEXTa939</b></font>";
		}


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

print "<table width=\"100%\" cellspacing=\"2\" cellpadding=\"2\" border=\"0\">\n";
print "	<tr>\n";
print " 	<td width=\"50%\" valign=\"top\" background=\"$HGTAB1\">";

	

	print "<table width=\"300\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">\n";
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">&nbsp;</font></td>\n";
	print "			<td align=\"center\" width=\"180\"><font size=\"1\" color=\"#ffffff\">$TEXTa940</td>\n";
	print "		</tr>\n";

$TEXTSICHTBAR = "<font size=\"2\" color=\"lime\"><b>$TEXT938</b>";
$TEXTNICHTSICHTBAR = "<font size=\"2\" color=\"red\">$TEXT939";	
$TEXTANDERN = "$TEXT940";

#if ( ($MEMBERTIMEAKTIV eq 1) and ($MEMBER eq 1) )
#	{
#	$MEMBERPREMIUM = 1;
#	}

$BGSTANDARDSIVHTBAR = "#026400";
$BGSTANDARDNICHTSICHTBAR = "#7d0000";
###
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT510:</font></td>\n";
if ($PUBLICSTATUS eq '1')
	{	
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	}
	print "		</tr>\n";

###
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT513:</font></td>\n";
if ($PUBLICSTATUS eq '1')
	{	
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	}

	print "		</tr>\n";

###
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT516:</font></td>\n";
if ($PUBLICSTATUS eq '1')
	{	
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	}

	print "		</tr>\n";

###
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT517:</font></td>\n";
if ($PUBLICSTATUS eq '1')
	{	
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	}

	print "		</tr>\n";
###
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT518:</font></td>\n";
if ($PUBLICSTATUS eq '1')
	{	
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	}

	print "		</tr>\n";
###
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"1\">$TEXT535, $TEXT536, $TEXT537, $TEXT538, $TEXT539, $TEXT540, $TEXT541, $TEXT542, $TEXT512:<br><font color=\"silver\">$TEXT920</font></td>\n";
if ($PUBLICSTATUS eq '1')
	{	
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	}

	print "		</tr>\n";

###
#	print "		<tr>\n";
#	print "			<td align=\"right\"><font size=\"1\">$TEXT921</font></td>\n";
#if ($PUBLICSTATUS eq '1')
#	{	
#	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\"><a href=\"http://www.flashModels.eu/$ID\" #target=\"_blank\"><font size=\"1\">$TEXT922</a></td>\n";
#	}
#	else
#	{
#	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
#	}

#	print "		</tr>\n";

###
if ($MEMBERPREMIUM eq 1)
	{
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\" color=\"ffff00\">$TEXT925:</font></td>\n";
	if ($PUBLICSTATUS eq '1')
		{	
		print "			<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\"><font size=\"2\" color=\"#ffffff\">$TEXT926</td>\n";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\"><font size=\"2\" color=\"red\">$TEXT927</td>\n";
		}
	print "		</tr>\n";
	}
	else
	{
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\" color=\"ffff00\">$TEXT925:</font></td>\n";
if ($PUBLICSTATUS eq '1')
	{	
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\"><font size=\"2\" color=\"#ffffff\">$TEXT928</td>\n";
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\"><font size=\"2\" color=\"red\">$TEXT929</td>\n";
	}

	print "		</tr>\n";
	}

	print "</table>";

	
	print "</td>";

$HGTAB2 = "$HGBLACK";
if ($MEMBERPREMIUM eq 1)
	{
	$HGTAB2 = "$HGGOLD";
	}

	print "<td valign=\"top\" background=\"$HGTAB2\">";


if ( ($MEMBERPREMIUM eq 1) and ($PUBLICSTATUS eq '0') )
	{
	print "<font color=\"#000000\" size=\"2\">";
	print "<b><div align=\"center\">$TEXT930</div></b>";
	$MEMBERPREMIUM = 0;
	}
	print "<table border=\"0\" cellspacing=\"2\" cellpadding=\"2\">\n";

	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">&nbsp;</font></td>\n";
	print "			<td align=\"center\" width=\"120\"><font size=\"1\" color=\"#ffffff\">$TEXT931</td>\n";
	print "			<td width=\"80\">&nbsp;</td>\n";
	print "		</tr>\n";

###
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT511:</font></td>\n";

if ($MEMBERPREMIUM eq 1)
	{
	if ($SNACHNAME eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownotnachname&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\"  bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownachname&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "		</tr>\n";
###	
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"1\">$TEXT935</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td><font size=\"2\">&nbsp;</td>";


#	if ($SEMAIL eq 1)
#		{
#		print "	<td align=\"center\">$TEXTSICHTBAR</td>\n";
#		print "	<td><font size=\"2\">-> <a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownotemail&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
#		}
#		else
#		{
#		print "	<td align=\"center\">$TEXTNICHTSICHTBAR</td>\n";
#		print "	<td><font size=\"2\">-> <a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showemail&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
#		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td>&nbsp;</td>\n";
	}
	print "		</tr>\n";
###		
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT320:</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
	if ($SHANDY eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownothandy&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showhandy&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "		</tr>\n";
###		
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT325:</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
	if ($SFESTNETZ eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownotfestnetz&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showfestnetz&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "		</tr>\n";
	
###		
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT330:</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
	if ($SBERUF eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownotberuf&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showberuf&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "		</tr>\n";
	
###		
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT331:</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
	if ($SHOBBY eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownothobby&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showhobby&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "		</tr>\n";
###		
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT332:</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
	if ($SHOMEPAGE eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownothomepage&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showhomepage&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "		</tr>\n";

###		
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT350:</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
	if ($SBE1 eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownotbe1&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showbe1&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "		</tr>\n";
###		
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\">$TEXT355:</font></td>\n";
if ($MEMBERPREMIUM eq 1)
	{
	if ($SBE2 eq 1)
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDSIVHTBAR\">$TEXTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=shownotbe2&bew=&lg=$LG\" style=\"color: red;\">$TEXTANDERN</a></font></td>";
		}
		else
		{
		print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
		print "	<td bgcolor=\"#000000\"><font size=\"1\"><a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=showbe2&bew=&lg=$LG\" style=\"color: lime;\">$TEXTANDERN</a></font></td>";
		}
	}
	else
	{
	print "	<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\">$TEXTNICHTSICHTBAR</td>\n";
	print "	<td><font color=\"gray\" size=\"2\">$TEXTANDERN</font></td>\n";
	}
	print "	</tr>\n";
###	
if ($MEMBERPREMIUM eq 1)
	{
	}
	else
	{
	print "		<tr>\n";
	print "			<td align=\"right\"><font size=\"2\" color=\"ffff00\">$TEXT925:</font></td>\n";
	print "			<td align=\"center\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\"><font size=\"2\" color=\"#ffffff\">$TEXT929b</td>\n";
	print "	<td>&nbsp;</td>\n";
	print "		</tr>\n";
	}
###
	
	print "</table>";




#	print "<br><br>";
#	}

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

	print "<font size=\"1\" color=\"silver\"><br><br>$TEXT936\n";	
	print "<br><br>";

#	print "Dir wurde somit die folgende Domain zugewiesen, um Dein Profil direkt zu öffnen:<br> 
#	<a href=\"http://www.flashModels.eu/$ID\" target=\"_blank\"><b>http://www.flashModels.eu/$ID</a></b><br><br>";


if ($PUBLICSTATUS eq '10')
	{	
	print "$PICFLAG2 <font color=\"ffff00\" size=\"4\"><b><a href=\"$cgiurl?action=tip&tip=1\" target=\"_blank\">TIPP</a></b></font>";
	print "<font color=\"ffffff\" size=\"1\">Deine aktuelle Vermittlungschance ist momentan kleiner,
	 dass Du einen Auftrag erhälst, da nur unsere Kunden und wir Deinen Eintrag sehen können. Durch ändern des
	  Status, könntest Du Deine Chance erhöhen, da Du öffentlich in der Castingkartei somit zu sehen wärest. 
		Zu sehen wären nur Deine Fotos, sowie folgende Angaben: Vorname, Wohnort, Postleitzahl, Alter, Land,
	 Sternzeichen, Körpergröße, Gewicht, Hauttyp, Haarfarbe, Haarlänge, Augenfarbe und die Schuhgröße. Das öffentliche Profil
	 kannst Du dann selber für z.B. eigene Bewerbungen verwenden.";
	}
		}

} # Ende alterscheck	
	
#	print "<hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade>";
#	&modelkarteihinweis;	


	
#	print "Laufzeit für die Castingseite : ";
#	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";	
#	print "<b>unbegrenzt</b><br><br>";
	print "<br><br><hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade><br>";
	print "<font face=verdana,arial,helvetica size=\"5\" color=ffffff>";	
	print "<b>who's watching me?</b><br> ";

	print "$TEXT960";

	print "<font size=\"1\" color=\"silver\"> *)";
	  
	print "<font face=verdana,arial,helvetica size=\"2\" color=ffffff><br><br>";	

	print "<table width=\"700\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">";
	print "	<tr>";

	print "		<td>";
	print "		<font face=verdana,arial,helvetica size=\"2\" color=ffffff>";	
	print "		$TEXTa912: ";
	print "		</td>";

	

	if ($NOWATCHME eq 1)
		{
		print "<td width=\"200\" bgcolor=\"$BGSTANDARDNICHTSICHTBAR\" align=\"center\">";
		print "<font face=verdana,arial,helvetica size=\"3\" color=\"red\">";	
		print "<b>$TEXT961</b> ";	
		
		print "</td><td>";
		
		print "<font size=\"2\">";
		print "<a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=watchon&bew=&lg=$LG\" style=\"color: lime;\">$TEXT961a</a>";
		print "</td>";
		}
		else
		{
		print "<td width=\"200\" bgcolor=\"$BGSTANDARDSIVHTBAR\" align=\"center\">";
		print "<font face=verdana,arial,helvetica size=\"3\" color=\"lime\">";	
		print "<b>$TEXT962</b> ";	

		print "</td><td>";

		print "<font size=\"2\">";
		print "<a href=\"$cgiurl?action=options&ses=$SES&ID=$ID&var=watchoff&bew=&lg=$LG\" style=\"color: red;\">$TEXT962a</a>";
		print "</td>";
		}
	

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




	print "<font size=\"1\" color=\"silver\"><br><br>*) Die \"who's watching me?\" Funktion wird realisiert durch cookies, die auf dem jeweiligen Rechner gespeichert werden, auf dem sich das jeweilige Mitglied in die Castingkartei eingeloggt hat. ";		

	print "<br>";

	print "<br><br><hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade><br>";

	print "<table width=\"400\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">";
	print "<tr>";
	
	print "<td width=\"1\">";
	print "$DELETEPICBIG";
	print "</td>";
	print "<td>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";	
	print "$TEXT601:<br>";
	print "&nbsp;&nbsp;&nbsp;<a href=\"$cgiurl?action=delcastingpage&ses=$SES&ID=$ID&var=&bew=&lg=$LG\" style=\"color: White;\"><b>$TEXT603</b></a>";
	print "<br><br>";
	print "</td>";
	print "</tr>";
	print "</table>";
	
	
	print "<hr width=\"100%\" size=\"1\" color=\"$mailgelb\" noshade>";
#	print "<font color=\"silver\"><a href=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=&lg=$LG\" style=\"color: gray;\">&nbsp;</a></font>";
	print "</td></tr>";
	print "</table><br><br>";
	}

	
	
sub DELPAGE
	{
	print "<table bgcolor=\"#000000\" width=\"800\" height=\"400\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td valign=\"top\">";
	print "<font face=verdana,arial,helvetica size=4 color=ffffc8>";
	print "<br><br><br><br>";
	print "<div align=\"center\">";

	print "$TEXT820";

   print "<form method=POST action=\"$cgiurl?action=delcastingpageOK&ses=$SES&ID=$ID&var=&bew=&lg=$LG\">\n";
   print "<div align=\"center\"><input type=submit value=&nbsp;&nbsp;&nbsp;$TEXT821&nbsp;&nbsp;&nbsp;>&nbsp;";
   print "<input type=button value=&nbsp;&nbsp;&nbsp;$TEXT822&nbsp;&nbsp;&nbsp; onClick=history.back()>\n";      
   print "</div>";
   print "</form>";
	
	print "</div>";
	print "<br><br><br><br>";


	print "</td></tr>";
	print "</table><br><br>";
	}
	
	
sub DELPAGEOK
	{


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

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

for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
   if (/<!--begin-->/) { 

      if ($entry_order eq '1') {
         print GUEST "<!--begin-->\n";
      }
   
     if ($line_breaks == 1) {
        $FORM{'TEXT'} =~ s/\cM\n/<br>\n/g;
     }
	 

	  print GUEST "\n";
	  print GUEST "<!--+++++++++++++++++++++++++++++++++++++++++-->\n";
	  print GUEST "<!--a $date-->\n\n";
      print GUEST "\n";
 	 
      print GUEST "<br><center><table width=550 cellspacing=0 cellpadding=0 border=0>\n";
      print GUEST "<tr>\n";
	  print GUEST "<td width=$sbr bgcolor=\"red\">&nbsp;&nbsp;&nbsp;</td>\n";
      print GUEST "<td bgcolor=gray>\n";

	  print GUEST "<form action=$skripturlx method=post>\n";
      print GUEST "<font face=verdana,helvetica,arial size=3 color=$hell>";	
		print GUEST "<b>Castingeintrag soll gelöscht werden</b><br><br>";
      print GUEST "<font face=verdana,helvetica,arial size=1 color=$hell>";
	  print GUEST "$VORNAME $NACHNAME aus $POSTLEITZAHL $WOHNORT<br>";
	  print GUEST"<a href=\"mailto:$EMAIL\">$EMAIL</a> ID:$ID<br>";
	  print GUEST "$date<br><br>"; 		
      print GUEST "[ <a href=\"$DELETEURL?ID=$ID\" target=\"_blank\"><b>Person aus Kartei löschen</b></a> ]<br><br>";				    
	 


	print GUEST "</td>";
	print GUEST "<td bgcolor=red>";
    print GUEST "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;\n";
	print GUEST "</td>";
	

      print GUEST "</form>\n";
	  
      print GUEST "</tr></table></center>";	  
	 
	  if ($separator eq '1') {
         print GUEST "<hr>\n\n";
      }
      else {
         print GUEST "$date<p>\n\n\n\n";
      }

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

   }
   else {
      print GUEST $_;
   }
}

close (GUEST);
	
### Versenden der eMail
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";


   print MAIL "To: $EMAIL\n";
   print MAIL "From: $recipient\n";
   print MAIL "Subject: $SUBJECT2 \n\n";

	$MAILTEXT2 =~ s/\[VORNAME\]/$VORNAME/g;	
	print MAIL "$MAILTEXT2";
   
   close (MAIL);
###########
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=red>Löschen wurde geklickt $DELETEPIC<br>";
	&LOG;


	print "<table bgcolor=\"#000000\" width=\"800\" height=\"400\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td valign=\"top\">";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "<br><br><br><br>";
	print "<div align=\"center\">";

	print "$TEXT825";
	print " $EMAIL";
   print "</div>";
   print "</form>";
	
	print "</div>";
	print "<br><br><br><br>";


	print "</td></tr>";
	print "</table><br><br>";
	}
	
sub LOG
{
open (FILE,"$LOGFILE") || die "Can't Open $LOGFILE: $!\n";
@LINES=<FILE>;
close(FILE);
$SIZE=@LINES;

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

for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];
   if (/<!--begin-->/) { 

      if ($entry_order eq '1') {
         print GUEST "<!--begin-->\n";
      }
   
     if ($line_breaks == 1) {
        $FORM{'TEXT'} =~ s/\cM\n/<br>\n/g;
     }
	 

	  print GUEST "\n";
	  print GUEST "<!--+++++++++++++++++++++++++++++++++++++++++-->\n";
	  print GUEST "<!--a $date-->\n\n";
      print GUEST "\n";
 	 
      print GUEST "<br><center><table width=700 cellspacing=0 cellpadding=0 border=0>\n";
      print GUEST "<tr>\n";
	  print GUEST "<td width=$sbr bgcolor=\"000000\">";

	$REALBILD="$phpfotourl?castid=$ID&ses=$mastersession";
	$BILD = "$REAL/casting/kartei/foto/$ID.jpg";

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

	
	if ( ($width1 eq '') or ($height1 eq '') )
	{
    print GUEST "<font face=verdana,helvetica,arial size=1 color=red>";	
	print GUEST "<b>Kein Bild</b>";
	}
	else
	{
	$hohe= 50;

	$FAK = $hohe/$height1;
	
	$width_thumb = $width1 * $FAK;
	$height_thumb = $height1 * $FAK;
	
	print GUEST "<a href=\"http://www.flashmodels.de/profile/$ID.html\" target=\"_blank\"><img src=\"$REALBILD\" border=\"\" alt=\"\" width=\"$width_thumb\" height=\"$height_thumb\"></a>&nbsp;&nbsp;";				
	}		  

	  print GUEST "</td>\n";
      print GUEST "<td bgcolor=000000>\n";

      print GUEST "<font face=verdana,helvetica,arial size=1 color=$hell>";	
		print GUEST "<b>$LOGTEXT</b> &nbsp;";
      print GUEST "<font face=verdana,helvetica,arial size=1 color=$hell>";
	  print GUEST "$VORNAME $NACHNAME<br> ";
	  print GUEST "$datum Uhr"; 		
      print GUEST "<font face=verdana,helvetica,arial size=1 color=silver><br>";
	print GUEST "IP: $IP | Session : $SES";
      print GUEST "<font face=verdana,helvetica,arial size=1 color=ffffff>";
	  print GUEST "<br>ID : $ID";

	print GUEST "</td>";

	
	
	print GUEST "<td width=40 bgcolor=\"000000\">";
if ($LG eq "br")
	{
	print GUEST "<img src=\"$FLAGBR\" border=\"0\" alt=\"\">";
	}		


if ($LG eq "en")
	{
	print GUEST "<img src=\"$FLAGEN\" border=\"0\" alt=\"\">";
	}		

if ($LG eq "")
	{
	print GUEST "<img src=\"$FLAGGER\" border=\"0\" alt=\"\">";
	}		

	print GUEST "</td>\n";  
	


if ($SHOWPUBLIC eq 1)
	{
    print GUEST "<td bgcolor=\"#225500\">";
	print GUEST "$GO";
	}
	else
	{
    print GUEST "<td bgcolor=\"#820003\">";
	print GUEST"$STOPP";
	}
	  print GUEST "</td>";
	
	  print GUEST "<td width=200 bgcolor=\"000000\">";

      print GUEST "<font face=verdana,helvetica,arial size=1 color=$hell>";

	  $LOGINURL = "http://www.flashmodels.de/profile/profile.php";
	  
      print GUEST "[ <a href=\"$LOGINURL?ses=$mastersession&ID=$ID&code=i5e6a5i3j8c2e07&log=nolog\" target=\"_blank\" style=\"color: White; font-size: 8pt;\">Person anzeigen</a> ] (NEU)";
	print GUEST "</td>\n";  

      print GUEST "</tr></table></center>";	  
	 
	  
      if ($entry_order eq '0') {
         print GUEST "<!--begin-->\n";
      }

   }
   else {
      print GUEST $_;
   }
}

close (GUEST);
}


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";
if ($CMOD3OK eq '1')
	{
    print GUEST "<td bgcolor=\"$modblau\">\n";
	}
	else
	{
    print GUEST "<td bgcolor=\"#6a6a6a\">\n";
	}
	
	print GUEST "<font face=verdana,arial,helvetica size=1 color=ffff00>";
	print GUEST "$CBENUTZERNAME |";
	print GUEST "<font face=verdana,arial,helvetica size=1 color=#99ffff>";
	print GUEST " <b>$IP</b> / $date | ";


if ($CMODUS eq '2')
	{
	print GUEST "<font face=verdana,arial,helvetica size=1 color=lime> <b>(Daten sichtbar)</b>";
	}

if ($CMODUS eq '1')
	{
	print GUEST "<font face=verdana,arial,helvetica size=1 color=red>Demo - <b>(Daten nicht sichtbar)</b>";
	}
	
	print GUEST "(Status: $CMODUS) |";
	print GUEST "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print GUEST " <a href=\"$cgiurl?action=showperson&ses=$mastersession&ID=$ID&log=nolog\" target=\"_blank\">$ID</a> ";

if ($CMOD3OK eq '1')
	{
	print GUEST "<b>Daten sind sichtbar!</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 SAVEMEMBERSHIP
{
if ($FORM{'memberpassword'} ne $premiumcode)
	{
#	&internpasswort;
#	exit;
	}

   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body bgcolor=$hg background=\"$HGPIC\" text=ffff00 link=ffff00 vlink=ffff00 alink=ffff00>\n";
	print "<center>";
    print "<center><table bgcolor=$dunkel width=750 height=\"300\"cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr>";
    print "<form method=POST action=\"$cgiur?action=savemembership&ses=$SES&ID=$ID&sendmail=1\">\n";	
	print "<td valign=\"top\">\n";

if ($DATEN[4] != 1)
	{
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden

	####
	################
	$sqlbefehl="select MAX(SHOWPOS) FROM $TABELLENNAME";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

	while (@dbrow = $sth->fetchrow_array)
	{
	$MAXPOS = $dbrow[0]+1;	
	}
	if($FORM{'MITGLIEDSCHAFT'} eq 1) # Auf erste Position bringen
		{
		$dbh->do("UPDATE `$TABELLENNAME` SET `SHOWPOS` = '$MAXPOS' WHERE `ID` = '$ID' ");		
		}

if($FORM{'MITGLIEDSCHAFT'} eq '0')
	{
	$FORM{'STARTDATEJAHR'} = "0000";
	$FORM{'STARTDATEMONAT'} = " 00";
	$FORM{'STARTDATETAG'} = "00";
	$FORM{'ENDEDATEJAHR'} = "0000";
	$FORM{'ENDEDATEMONAT'} = "00";
	$FORM{'ENDEDATETAG'} = "00";
	undef $FORM{'MEMBERPREIS'};
	$dbh->do("UPDATE `$TABELLENNAME_B` SET `ANTRAGMEMBER` = '0', `ANTRAGDATUM` = '0000-00-00 00:00:00', `ANTRAGLAUFZEITMONAT` = '0', `BOOKEDPREMIUM` = '1', `ANTRAGPREIS` = '', CRONPREM = '0' WHERE `CASTID` = '$ID' ");		
	}

	if ($FORM{'verlaengerung'} eq 1)
		{
	$dbh->do("UPDATE `$TABELLENNAME` SET `MEMBER` = '$FORM{'MITGLIEDSCHAFT'}',
	 `MEMBERPREIS` = '$FORM{'MEMBERPREIS'}', `MEMBER_START` = '$FORM{'STARTDATEJAHR'}-$FORM{'STARTDATEMONAT'}-$FORM{'STARTDATETAG'}',
	`MEMBER_ENDE` = '$FORM{'ENDEDATEJAHR'}-$FORM{'ENDEDATEMONAT'}-$FORM{'ENDEDATETAG'}' WHERE `ID` = '$ID' ");		

		$dbh->do("UPDATE `$TABELLENNAME_B` SET `ANTRAGMEMBER` = '0',  `ANTRAGDATUM` = '0000-00-00 00:00:00', `ANTRAGLAUFZEITMONAT` = '0', `ANTRAGSCOUTER` = '', `BOOKEDPREMIUM` = '1', `ANTRAGPREIS` = '', CRONPREM = '0' WHERE `CASTID` = '$ID' ");			 
		}
		else
		{

		if ($MEMBERPREMIUM != 1)
			{
			$CCOUNTER = ", ZAHLER = '0', CDATUM = NOW()";
			$INFOTXT10 = "Zähler wurde auf 0 gesetzt und heutiges Datum angelegt!";
			}
			else
			{
			$INFOTXT10 = "Zählerdaten wurden nicht verändert!";
			}

	$dbh->do("UPDATE `$TABELLENNAME` SET `MEMBER` = '$FORM{'MITGLIEDSCHAFT'}',
	 `MEMBERPREIS` = '$FORM{'MEMBERPREIS'}', `MEMBER_START` = '$FORM{'STARTDATEJAHR'}-$FORM{'STARTDATEMONAT'}-$FORM{'STARTDATETAG'}',
	`MEMBER_ENDE` = '$FORM{'ENDEDATEJAHR'}-$FORM{'ENDEDATEMONAT'}-$FORM{'ENDEDATETAG'}', 
	SNACHNAME = '0', SHANDY = '0', SFESTNETZ = '0', SBERUF= '0', SHOBBY = '0', SHOMEPAGE = '0', SBE1 = '0', SBE2 = '0' $CCOUNTER
	 WHERE `ID` = '$ID' ");		

	$dbh->do("UPDATE `$TABELLENNAME_B` SET `ANTRAGMEMBER` = '0',  `ANTRAGDATUM` = '0000-00-00 00:00:00', `ANTRAGLAUFZEITMONAT` = '0', `ANTRAGSCOUTER` = '', `BOOKEDPREMIUM` = '1', `ANTRAGPREIS` = '', CRONPREM = '0' WHERE `CASTID` = '$ID' ");			 
		}
		


	##### LOG File ##########################
	$sqlbefehl="select CASTID, LOGFILE FROM $CASTINGLOG	WHERE CASTID = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

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

	if ($FORM{'MITGLIEDSCHAFT'} eq 1)
		{
		$DBLOGTEXT = "Premium freigegeben, $FORM{'MEMBERPREIS'}, $datum, Zeitraum:$FORM{'STARTDATETAG'}.$FORM{'STARTDATEMONAT'}.$FORM{'STARTDATEJAHR'} - $FORM{'ENDEDATETAG'}.$FORM{'ENDEDATEMONAT'}.$FORM{'ENDEDATEJAHR'}\n$DBLOGTEXT";
		}
		else
		{
		$DBLOGTEXT = "Standard gespeichert $datum\n$DBLOGTEXT";
		}

	if ($CASTID)
		{
		$dbh->do("UPDATE `$CASTINGLOG` SET `LOGFILE` = '$DBLOGTEXT' WHERE CASTID = '$ID' ");
		}
		else
		{
		$dbh->do("INSERT INTO `$CASTINGLOG` ( `CASTID`, `LOGFILE` )  VALUES ( '$ID', '$DBLOGTEXT' ) ");
		}



	$dbh->disconnect; # Von Datenbank abmelden			
	
    print "<div align=\"right\"><input type=button value=zurück onClick=history.back() style=\"background: Silver; font-size: 15px;\"></div>\n";		
	print "<font face=verdana,arial,helvetica size=4 color=ffffc8>						
	Nachfolgende Daten wurden gespeichert:<br><br>
	<font face=verdana,arial,helvetica size=2 color=ffffc8>
    <b>$ID</b> für $VORNAME $NACHNAME
	&nbsp;&nbsp;&nbsp;&nbsp;bezahlter Preis : <font size=5 color=\"#ffff00\"><b>$FORM{'MEMBERPREIS'}</b></font><br>
	<br>
		
	";
	
	
	print "<font color=\"#a82dd7\">$INFOTXT10</font><br>";
	if($FORM{'MITGLIEDSCHAFT'} eq 1) # Auf erste Position bringen
		{
		print "<b><font color=\"Aqua\">Ebenfalls wurde die Person auf die erste Position in der Kartei gebracht.</b> ($MAXPOS)</font><br><br>";
		}
	print "Mitgliedschaft: ";
	if ($FORM{'MITGLIEDSCHAFT'} eq 1)
		{
		print "<font color=\"Aqua\"><b>Premium-Mitglied</b></font>";
		}
		else
		{
		print "<b>Standard-Mitglied</b>";
		}
	print " ($FORM{'MITGLIEDSCHAFT'})";
	print "<br>Gültigkeitszeitraum: <b>$FORM{'STARTDATETAG'}.$FORM{'STARTDATEMONAT'}.$FORM{'STARTDATEJAHR'} - $FORM{'ENDEDATETAG'}.$FORM{'ENDEDATEMONAT'}.$FORM{'ENDEDATEJAHR'}</b>";
	
	print "<br><br>";

    print "<font face=verdana,helvetica,arial size=2 color=$hell>";
	print "eMail : <input type=\"text\" name=\"ANEMAIL\" size=\"30\" value=\"$EMAIL\"> | <a href=\"mailto:$EMAIL\">$EMAIL</a><br>";
	print "Betreff: <input type=\"text\" name=\"BETREFF\" size=\"50\" value=\"Premium-Mitgliedschaft wird bestätigt\"> ";
    print " | ===> ";
#	print "<input type=submit value=Mail&nbsp;senden...>";
	print "&nbsp;&nbsp;NEU: ";

if ($FORM{'verlaengerung'} eq 1)
	{
	print "<a href=\"http://www.flashmodels.de/login/user/programme/mailer.php?textid=101&email=$EMAIL&vorname=$VORNAME&nachname=$NACHNAME&user=&id=$ID&vara=$FORM{'MEMBERPREIS'}&varb=$FORM{'STARTDATETAG'}.$FORM{'STARTDATEMONAT'}.$FORM{'STARTDATEJAHR'} - $FORM{'ENDEDATETAG'}.$FORM{'ENDEDATEMONAT'}.$FORM{'ENDEDATEJAHR'}&varc=\" target=\"_blank\">";
	}
	else
	{
	print "<a href=\"http://www.flashmodels.de/login/user/programme/mailer.php?textid=100&email=$EMAIL&vorname=$VORNAME&nachname=$NACHNAME&user=&id=$ID&vara=$FORM{'MEMBERPREIS'}&varb=$FORM{'STARTDATETAG'}.$FORM{'STARTDATEMONAT'}.$FORM{'STARTDATEJAHR'} - $FORM{'ENDEDATETAG'}.$FORM{'ENDEDATEMONAT'}.$FORM{'ENDEDATEJAHR'}&varc=\" target=\"_blank\">";
	}	
	
	print "Mail senden</a>";
	print "<br><br>\n";	
	
#$AKTIONA = "\nDurch die flashModels-SPAR-Aktion ist Deine Premium-Mitgliedschaft auf 12 Monate gesetzt worden. Die normale Dauer für eine Premium-Mitgliedschaft beträgt 6 Monate. Somit erreichst Du eine Ersparnis von 19,90 Euro.\n";	
	
$MAILTEXT = "Hallo $VORNAME $NACHNAME,
	
wir freuen uns Dir mitteilen zu können, dass wir Deine Mitgliedschaft nun auf Premium umgestellt haben.
	
Der entsprechende Betrag von $FORM{'MEMBERPREIS'} ist auf unserem Konto eingegangen und für Dein Vertrauen an flashModels möchten wir uns hiermit recht herzlich bei Dir bedanken!
	
Aktuell bist Du als Premium-Mitglied bei uns eingetragen und die Laufzeit für die Premium-Mitgliedschaft ist gültig für den Zeitraum: $FORM{'STARTDATETAG'}.$FORM{'STARTDATEMONAT'}.$FORM{'STARTDATEJAHR'} - $FORM{'ENDEDATETAG'}.$FORM{'ENDEDATEMONAT'}.$FORM{'ENDEDATEJAHR'}
$AKTIONA	
Du kannst Dich jetzt in Dein Profil in unserer Castingkartei (www.flashModels.de/casting) einloggen und sämtliche Daten öffentlich schalten. Derzeit sind alle Angaben, wie Nachname, Telefonnummern, Beschreibungen usw. nicht sichtbar gestellt. Prüfe hier bitte ebenfalls nach, ob Du Dein Profil öffentlich gestellt hast.

Erst nachdem Du in der Rubrik 'Einstellungen' (in Deinem Login-Bereich) Dein Profil öffentlich gestellt hast, bist Du für jeden Besucher unserer Seite zu sehen!
	
Viel Erfolg mit der Premien-Mitgliedschaft wünscht Dir das Team von
www.flashModels.de";
	
if ($FORM{'verlaengerung'} eq 1)
{
$MAILTEXT = "Hallo $VORNAME $NACHNAME,
	
wir freuen uns Dir mitteilen zu können, dass wir Deine Premium-Mitgliedschaft verlängert haben.
	
Der entsprechende Betrag von $FORM{'MEMBERPREIS'} ist auf unserem Konto eingegangen und für Dein Vertrauen an flashModels möchten wir uns hiermit recht herzlich bei Dir bedanken!
	
Aktuell bist Du als Premium-Mitglied bei uns eingetragen und die Laufzeit für die Premium-Mitgliedschaft ist gültig für den Zeitraum: $FORM{'STARTDATETAG'}.$FORM{'STARTDATEMONAT'}.$FORM{'STARTDATEJAHR'} - $FORM{'ENDEDATETAG'}.$FORM{'ENDEDATEMONAT'}.$FORM{'ENDEDATEJAHR'}

Logge Dich bitte nochmals auf der Seite www.flashModels.de/casting bei den Mitgliedern ein und überprüfe, ob alle Einstellungen soweit in Ordnung sind.
	
Viel Erfolg mit der Premien-Mitgliedschaft wünscht Dir das Team von
www.flashModels.de";
}


	print "<textarea name=MAILTEXT COLS=100 ROWS=20 style=\"font-size: 12px; background: #ffffff; color: #000000;\">"; 	   
	print "$MAILTEXT";
	print "</textarea></center><br><br>";
}
if ($DATEN[4] eq 1)
	{

   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "To: $FORM{'ANEMAIL'}\n";
   print MAIL "From: $recipient\n";
   print MAIL "Subject: $FORM{'BETREFF'} \n\n";
	print MAIL "$FORM{'MAILTEXT'}";
   close (MAIL);


	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "<div align=\"right\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>&nbsp;</div>";
	print "<b>Nachfolgende eMail wurde versandt:</b><br><br>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
	print "An: $FORM{'ANEMAIL'}<br><br>";
	print "Betreff: $FORM{'BETREFF'}<br><br>";	
	$FORM{'MAILTEXT'} =~ s/\cM\n/<br>\n/g;
	print "$FORM{'MAILTEXT'}";
	print "<div align=\"right\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b$TEXT915</b></a>&nbsp;</div>";	
	}
	
	print "</td></tr>";
	print "</table>";

   print "</form>$TEXTHAUPTSEITE";

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

   exit;
}


sub SAVEZUSATZ
{
   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body bgcolor=$hg background=\"$HGPIC\" text=ffff00 link=ffff00 vlink=ffff00 alink=ffff00>\n";
	print "<center>";
    print "<center><table bgcolor=$dunkel width=750 height=\"300\"cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr>";
    print "<form method=POST action=\"$cgiur?action=savezusatz&ses=$SES&ID=$ID&sendmail=1\">\n";	
	print "<td valign=\"top\">\n";

if ( ($DATEN[4] != 1) )
	{
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden

	####
	################
if ($FORM{'LOCK'} eq "1")
	{
	$dbh->do("UPDATE `$TABELLENNAME_B` SET `LOCKFOTO` = '1', `SHOWPUBLIC` = '0' WHERE `CASTID` = '$ID' ");		
	$dbh->do("UPDATE `$TABELLENNAME` SET `SHOWPUBLIC` = '0' WHERE `ID` = '$ID' ");		
	}

	##### LOG File ##########################
	$sqlbefehl="select CASTID, LOGFILE FROM $CASTINGLOG	WHERE CASTID = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

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

	if ($CASTID)
		{
#		$dbh->do("UPDATE `$CASTINGLOG` SET `LOGFILE` = '$DBLOGTEXT' WHERE CASTID = '$ID' ");
		}
		else
		{
#		$dbh->do("INSERT INTO `$CASTINGLOG` ( `CASTID`, `LOGFILE` )  VALUES ( '$ID', '$DBLOGTEXT' ) ");
		}

	$dbh->disconnect; # Von Datenbank abmelden			
	
    print "<div align=\"right\"><input type=button value=zurück onClick=history.back() style=\"background: Silver; font-size: 15px;\"></div>\n";		
	print "<font face=verdana,arial,helvetica size=4 color=ffffc8>						
	Nachfolgende Daten wurden gespeichert:<br><br>
	<font face=verdana,arial,helvetica size=2 color=red>
	<b> Person wurde für Öffentlichkeit gesperrt!</b> 
	<font face=verdana,arial,helvetica size=2 color=ffffc8>
   	<b>$ID</b> für $VORNAME $NACHNAME
	<br><br><br>";

	
if ($FORM{'LOCK'} eq "1")	
	{
$BETREFF = "Richtlinienverstoß, bitte Fotos tauschen!";
$MAILTEXT = "Hallo $VORNAME $NACHNAME,

durch unsere Redaktion ist Dein Profil für die Öffentlichkeit gesperrt worden, da Du gegen die Richtlinien von flashModels verstoßen hast!

Deine Bilder entsprechen nicht unseren Richtlinien und wir möchten Dich bitten, diese nun in unserer Kartei zu ändern!

Erst nachdem Du Deine Bilder geändert hast, kannst Du Dein Profil wieder öffentlich schalten. Beachte hiezu unbedingt unsere Richtlinien, da sonst Dein Profil eventuell von unserer Redaktion, bei nicht Beachtung, gelöscht wird.
-----------------------------
Hinweis zu unseren Richtlinien:
- Beachte bitte, dass wir keine Aktfotos bei flashModels veröffentlichen, d.h. Bilder auf denen die nackte Brust, Brustwarzen usw. oder Geschlechtsteile zu sehen sind.
Ebenso dürfen keine Bilder veröffentlicht werden, die in Richtung Softcore oder Hardcore gehen. 

- Bilder, die sehr unscharf sind, oder eine schlechte Qualität besitzen, sowie Fotos, auf denen Du nicht zu erkennen bist usw. werden nicht veröffentlicht.

- Bilder, auf denen eine andere Personen zu sehen sind, werden nicht veröffentlicht.

- Bilder mit Texthinweisen wie z.B. Linkangaben zu Homepages, Copyrighthinweise usw. werden nicht veröffentlicht.

- Bilder, auf denen Du im Querformat zu sehen bist, werden nicht veröffentlicht.
-----------------------------
Achte unbedingt auf diese Richtlinien, da es sonst zu einer Löschung und somit Entfernung aus unserer Kartei kommen kann.

Viele Grüße sendet Dir das Team von
www.flashModels.de


";
	}
	
    print "<font face=verdana,helvetica,arial size=2 color=$hell>";
	print "eMail : <input type=\"text\" name=\"ANEMAIL\" size=\"30\" value=\"$EMAIL\"> | <a href=\"mailto:$EMAIL\">$EMAIL</a><br>";
	print "Betreff: <input type=\"text\" name=\"BETREFF\" size=\"50\" value=\"$BETREFF\"> ";
    print " | ===> <input type=submit value=Mail&nbsp;senden...><br><br>\n";	
	print "<textarea name=MAILTEXT COLS=100 ROWS=20 style=\"font-size: 12px; background: #ffffff; color: #000000;\">";
	print "$MAILTEXT"; 	   
	print "</textarea></center><br><br>";
}
if ($DATEN[4] eq 1)
	{

   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";
   print MAIL "To: $FORM{'ANEMAIL'}\n";
   print MAIL "From: $recipient\n";
   print MAIL "Subject: $FORM{'BETREFF'} \n\n";
	print MAIL "$FORM{'MAILTEXT'}";
   close (MAIL);


	print "<font face=verdana,arial,helvetica size=2 color=ffffc8>";
	print "<div align=\"right\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>&nbsp;</div>";
	print "<b>Nachfolgende eMail wurde versandt:</b><br><br>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
	print "An: $FORM{'ANEMAIL'}<br><br>";
	print "Betreff: $FORM{'BETREFF'}<br><br>";	
	$FORM{'MAILTEXT'} =~ s/\cM\n/<br>\n/g;
	print "$FORM{'MAILTEXT'}";
	print "<div align=\"right\"><a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>&nbsp;</div>";	
	}
	
	print "</td></tr>";
	print "</table>";

   print "</form>$TEXTHAUPTSEITE";

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

   exit;
}


sub SAVEUSERINBEWERBUNG {

if ($FORM{'SAVEUSERINBEWERBUNG'})
{
################
$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') FROM $CASTINGBEWERBUNG WHERE THEMENID = '$FORM{'SAVEUSERINBEWERBUNG'}' AND CASTID = '$FORM{'USERID'}'";

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

while (@dbrow = $sth->fetchrow_array)
{
$BEWERBUNGSDATUM = $dbrow[0];	
$BEWERBUNGSZEIT = $dbrow[1];
$EINTRAGVORHANDEN = 1;
#print "-----$dbrow[0]-----<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
}

#$BEWERBUNGSDATUM ="";

	
if ($EINTRAGVORHANDEN eq 1)
	{
	}
	else
	{
	$ZUSATZINFO = "Diese Person wurde manuell von flashModels zu dieser Bewerbung hinzugefügt, sie hat sich also nicht unbedingt selber beworben!";

	$dbh->do("INSERT INTO `$CASTINGBEWERBUNG` 
	( `CASTID`, `THEMENID`, `BEWERBUNGSDATUM`, `ZUSATZINFO`, `MANUELLADD` ) 
	 VALUES 
	( '$FORM{'USERID'}', '$FORM{'SAVEUSERINBEWERBUNG'}', '$ISODATE $UHRZEIT', '$ZUSATZINFO' , '1')	");
	}
$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>\n\n";
   
   print "<body bgcolor=$hg background=\"$HGPIC\" text=ffff00 link=ffff00 vlink=ffff00 alink=ffff00>\n";
	print "<center>";
	
    print "<center><table bgcolor=$dunkel width=550 height=\"300\"cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td valign=\"top\">\n";


if ($FORM{'SAVEUSERINBEWERBUNG'})
{
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8><br><br>";									
	
	if ($EINTRAGVORHANDEN eq 1)
	{
	print "<b>Der User :$FORM{'USERID'} ist bereits in dem Thema $FORM{'SAVEUSERINBEWERBUNG'} vorhanden!</b>\n";		
	}
	else
	{
	print "<b>$FORM{'USERID'} wurde in Thema $FORM{'SAVEUSERINBEWERBUNG'} gespeichert!</b>\n";		
	}
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8><br><br>";	
	print "<a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>";	
}
else
{
	print "<font face=verdana,arial,helvetica size=4 color=red><br><br>";									
	print "<b>Fehler!</b>";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8><br><br>";
	print "Bitte wählen Sie das Thema aus, indem diese Person gespeichert werden soll!";										
   print "<br><br><form>";
   print "<input type=button value=zurück onClick=history.back()><br><br>\n";
   print "</form>";

}

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

   print "</form>$TEXTHAUPTSEITE";

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

   exit;
}


sub AGB
{
#   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body background=\"$HGPIC\" bgproperties=fixed bgcolor=$hg text=ffffff link=ffffff vlink=ffffff alink=ffffff>\n";
   print "<center>";
   print "<font face=verdana,helvetica,arial size=3 color=$hell>";


   print "<br><br><table background=\"http://www.flashModels.de/casting/grafik/castingtext-hintergrund.jpg\" width=520 cellspacing=5 cellpadding=0 border=\"1\" bordercolor=\"Black\" style=\"border-collapse: collapse\">\n";
   print "<tr>\n";
   print "<td><br><font color=\"#000000\">\n";

	print "$TEXT855";
	
   print "<form>$ZURUCK</form>";
	print "<br><br><br><br></font>";
   print "</td>";
 
   print "</tr>\n";
   print "</table><br><br>\n";	
	&BOTTOM;
	
   exit;
}



sub CAST
{
   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">";
   print "<html><head><title>$TITEL</title>\n\n";
   
   print "<body bgcolor=$hg background=\"$HGPIC\" text=ffff00 link=ffff00 vlink=ffff00 alink=ffff00>\n";
	print "<center>";
	
    print "<center><table bgcolor=$dunkel width=550 height=\"300\" cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr><td valign=\"top\">\n";
	print "<font face=verdana,arial,helvetica size=2 color=ffffc8><br><br>";
	print "Jetzt können Sie die ID markieren und uns z.B. per eMail übersenden:";

   print "<br><br><form>";	

	print "<table>\n";
	print "<tr>";
	print "<td>";
	print "<textarea name=\"TextFenster\" rows=\"10\" cols=\"40\" wrap=\"virtual\">$DATEN[2]</textarea>\n";
	print "</td>\n";
	
	print "<td>";
	print "<div align=\"center\">";
	print "<input type=button value=\"markieren\" onclick=\"javascript:this.form.TextFenster.focus();this.form.TextFenster.select();\">\n";
	print "<br><br>";
	print "<a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>";   
	print "</div>";
	print "</td>";
	
	print "</form>\n";
	print "</tr>\n";
	print "	</table>\n";





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

#   print "</form>$TEXTHAUPTSEITE";

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

   exit;
}



sub SHOWBEWERBUNGEN
{
################
$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sqlbefehl="select $CASTINGBEWERBUNG.THEMENID, DATE_FORMAT($CASTINGBEWERBUNG.BEWERBUNGSDATUM, '%d.%m.%Y'), TIME_FORMAT($CASTINGBEWERBUNG.BEWERBUNGSDATUM, '%H:%i:%s'), $THEMANAME.TITEL, $CASTINGBEWERBUNG.ZUSATZINFO, $THEMANAME.ID FROM $CASTINGBEWERBUNG, $THEMANAME WHERE $CASTINGBEWERBUNG.CASTID = '$ID' AND $CASTINGBEWERBUNG.THEMENID = $THEMANAME.ID ORDER BY $CASTINGBEWERBUNG.THEMENID DESC";
$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
$ok=$sth->execute; #SQL-Befehl senden

$k=0;
	while (@dbrow = $sth->fetchrow_array)
		{
		$k++;
		$THID[$k] = $dbrow[0];
		$BWEDATUM[$k] = $dbrow[1];		
		$BWEZEIT[$k] = $dbrow[2];				
		$THEMA[$k] = $dbrow[3];						
		$ZUSATZINFO[$k] = $dbrow[4];					
		$kmax= $k;			
#		print "-----$dbrow[0]-$dbrow[1]-$dbrow[2]-$dbrow[3]--<br>"; # erstes Feld des Datensatzens, $dbrow[1] = zweites Feld, usw...
		}
$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>\n\n";
   
   print "<body bgcolor=$hg background=\"$HGPIC\" text=ffff00 link=ffff00 vlink=ffff00 alink=ffff00>\n";
	print "<center>";
#	print "-$ID-<br>";
#	print "$sqlbefehl<br>";
if ($k eq 0)
	{
	print "<font face=verdana,arial,helvetica size=4 color=\"ffffff\"><br><br><br>";	
	print "Diese Person hat sich bisher noch zu keinem Thema beworben!";
	}


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

    print "<center><table bgcolor=$dunkel width=650 height=\"10\" cellspacing=2 cellpadding=2 border=0>\n";
    print "	<tr>";
#	print "<td >&nbsp;</td>";
	print "		<td align=\"right\" valign=\"top\">\n";
	print "		<a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>";   
	print "		</td>";
	print "	</tr>\n";
	print "</table>\n";

	print "<table width=\"650\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">\n";
	print "<tr>\n";
	print "	<td width=\"50\" bgcolor=\"#000000\">";
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";	
	print "ID: $THID[$k]";	
	print "</td>\n";

	print "	<td bgcolor=\"#000000\">";
	print "<font face=verdana,arial,helvetica size=2 color=\"ffffff\">";	
	print "Beworben am: ";
	print "$BWEDATUM[$k] ";
	print "um $BWEZEIT[$k] Uhr zu folgendem Thema:<br>";
	print "$THEMA[$k]";	
	print "</td>\n";
	print "</table>\n";

	print "<table bgcolor=\"#ffffff\" width=\"650\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">\n";	
	print "	<td>";
	print "<font face=verdana,arial,helvetica size=2 color=\"#000000\">";	
	
	$ZUSATZINFO[$k] =~ s/\n/<br>/g;
	print "$ZUSATZINFO[$k]<br><br>";
	
	print "</td>\n";
	print "</tr>\n";
	print "</table><br>\n";
	}



	


	print "</td></tr>";
	print "</table>";
  
#   print "</form>$TEXTHAUPTSEITE";

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

   exit;
}

sub modelkarteihinweis
	{
#### Überprüfen ob auch ein Eintrag bei flashModels vorhanden ist
$sqlbefehl="select ID, GESCHLECHT, VORNAME, NACHNAME FROM $STAMMDATENMODELS WHERE EMAIL = '$EMAIL'";
$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)
{
 $FOUNDSEDCARD = $dbrow[0];
}
#print "<br><br>-$sqlbefehl-";
$dbh->disconnect; # Von Datenbank abmelden		
##################################################################

	print "<font color=\"#ffffff\">";
if ($FOUNDSEDCARD)
	{
	$TEXT206 =~ s/\[EMAIL\]/$EMAIL/g;	
	$TEXT206 =~ s/\[FOUNDSEDCARD\]/$FOUNDSEDCARD/g;	

	print "$TEXT206";
	}
	else
	{
	print "$PICFLAG2";
	print "$TEXT205";
	}
	print "</font>";

	}

sub chmember
{
#print "Scouterfound:-$SCOUTERGULTIG-";

if ( ($FORM{'MSID'}) and ($SCOUTERGULTIG eq 0) )
	{
	$DATEN[1] = "chmember";
	$DATEN[4] = "premium";
	}
	
	print "<table bgcolor=\"#000000\" width=\"800\" height=\"400\" cellspacing=\"2\" cellpadding=\"5\" border=\"0\">";
	print "<tr><td valign=\"top\">";


if ($DATEN[4] eq 'premium')
	{
	if ($FORM{'MSID'})
	{
	$Z = "Eingetragene ID: ";
	if($SCOUTERGULTIG eq  1)
		{
		$Z = "$Z $FORM{'MSID'} $FSCOUTERVORNAME $FSCOUTERNACHNAME (GÜLTIG)<br>";
		}
		else
		{
		$Z = "$Z $FORM{'MSID'} $FSCOUTERVORNAME $FSCOUTERNACHNAME (UNGÜLTIG)<br>";
		}
	}
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"Aqua\">Premium Member werden angezeigt <font color=\"ffff00\"><br>$Z";
	&LOG;

	print "<font size=\"2\" color=\"#ffaf0a\">";
	print "<b>Werde jetzt Premium-Mitglied!</b> $STAR$STAR$STAR</font><br><br>";
	print "<font size=\"2\" color=\"#ffaf0a\">";


	print "<table width=\"100%\" cellspacing=\"2\" cellpadding=\"5\">\n";
	print "	<tr>\n";
#	print " 	<td width=\"50%\" valign=\"top\" background=\"$HGBLACK\">";
	print " 	<td width=\"50%\" valign=\"top\">";

	print "<font face=verdana,arial,helvetica size=2 color=ffffff>";
	print "<p align=\"justify\">";
	print "Bei der Premium-Mitgliedschaft hast Du die Möglichkeit, Dein Profil aus unserer Castingkartei offen zu schalten. <br>
	<br>
	So hast Du die Möglichkeit folgende Daten öffentlich sichtbar zu stellen:
	<font color=\"lime\">
	<b>Nachname, Handynummer, Festnetznummer, Beruf, Hobbys, Homepage, Beschreibung über Dich und Deine bisherigen Auftritte</b>.</font><br>
	<br>
	Ebenso sind bei der Premium-Mitgliedschaft bis zu <b>15 Bilder öffentlich anzeigbar</b> und ein <b>Kontaktformular zur direkten Kontaktaufnahme</b> wird ebenfalls zur Verfügung gestellt.<br>
	
	<br>So kann sich jeder direkt mit Dir in Verbindung setzen und einen Kontakt aufnehmen. Da unsere Seite von vielen Personen aus dem Medienbereich, wie z.B. TV Produktionen, Verlage, Fotografen usw., besucht wird, ist dies für Dich die ideale Möglichkeit, an einen Auftrag zu gelangen.<br>
	<br>
	Sollte es zu einem Auftrag für Dich kommen, so entstehen natürlich <u>keine</u> weiteren Kosten wie z.B. Vermittlungsgebühren etc. für Dich oder den Auftraggeber!<br>
	<br>
	Dein Profil wäre somit auf der Castingkartei-Seite <a href=\"http://www.flashModels.de/casting\" target=\"_blank\">www.flashModels.de/casting</a> sichtbar.<br>
	<br>
	Nach einer Beantragung zu einer Premium-Mitgliedschaft Deinerseits, ist der entsprechende Betrag von Dir auf unser Konto zu überweisen. Sobald der Betrag dann bei uns eingegangen ist, wird Deine Premium-Mitgliedschaft aktiviert.
	";	
	print "</p>";
	print "		</td>\n";

	print " 	<td background=\"$HGGOLD\" valign=\"top\">";
#	print "\n\n<form method=POST action=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premium&bew=$DATEN[5]&lg=$LG\">\n\n";   			
	print "\n\n<form method=POST action=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premiumaccept&bew=$DATEN[5]&lg=$LG\">\n\n";   			
print "	<table border=\"0\" width=\"100%\">
		<tr>";
	print "<td>";
if ($FORM{'PREMIUM'})
	{
	if ($FSCOUTERID)
		{
		print "$FSCOUTERHTMLTEXT";
		}
		else
		{
		print "$ACHTUNG<font size=\"2\" color=\"#ce0005\"><div align=\"center\"><b>Der eingegebene PIN bzw. die ID ist leider<br>ungültig!</b></div>";
		$FORM{'MSID'} = "";
		}
	}
	print "</td>";

if ($SCOUTERGULTIG ne 1)
{
print "<td width=\"170\">";

print "<font size=1 color=\"#000000\">
<b>ModelscouterID oder<br>Aktions-Pin eintragen:</b><br><input type=\"text\" name=\"MSID\" value=\"$FORM{'MSID'}\"size=\"12\" style=\"font-size: 10px;\">
&nbsp;&nbsp;<input type=\"submit\" name=\"PREMIUM\" value=\"einlösen\" style=\"height: 20px; font-size: 10px;\">";
print "</td>";
}


	print "</tr>";
#	print "</form>";
	print "</table><br>";
if ($MEMBERPREMIUM eq 1)
	{	
	$DATEN[5] = "ver";
	}

#	print "\n\n<form method=POST action=\"$cgiurl?action=chmember&ses=$SES&ID=$ID&var=premiumaccept&bew=$DATEN[5]&lg=$LG\">\n\n";   			
if($DATEN[5] eq 'ver')
	{
	print "<font size=3 color=\"#000000\"><div align=\"center\">
<b>Verlängere jetzt Deine Premium-Mitgliedschaft und wähle die Laufzeit der Mitgliedschaft:</b><br><br>";
	}

	else
		{
	print "<font size=3 color=\"#ffffff\"><div align=\"center\">
<b>Werde Premium-Mitglied und wähle hier die Laufzeit der Mitgliedschaft:</b><br><br>";
	}
	print "</div>";

	print "<font size=\"1\"><div align=\"right\">";
	print "<a href=\"http://www.flashmodels.de/casting/index.php?page=preise\" target=\"_blank\">";
	print "[Leistungen siehe auch Preisliste]";
	print "</a>";
	print "&nbsp;&nbsp;</div></font>";
	print "<table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"4\">";
	print "<tr bgcolor=\"#c1874c\">";
	print "<td align=\"center\">";

	if ( (!$FORM{'CHOOSEPREMIUM'}) or ($FORM{'CHOOSEPREMIUM'} eq "1"))
		{
		$CHECKEDA = "checked";
		}

	if ($FORM{'CHOOSEPREMIUM'} eq "2")
		{
		$CHECKEDB = "checked";
		}
		
	if ($FORM{'CHOOSEPREMIUM'} eq "3")
		{
		$CHECKEDC = "checked";
		}
		
	print "<input type=\"radio\" id=\"a\" name=\"CHOOSEPREMIUM\" value=\"1\" $CHECKEDA>";	
	print "</td>";
	print "<td>";
	print "<font size=2 color=\"#ffffff\">";
#	print "<label for=a>\n";
	print "Laufzeit: <b>6</b> Monate; Preis: $MEMPREIS,<br>";
	print "<div align=\"center\">nur <font size=5 color=\"#ffffff\">";
	print "<b>$PREISPROMONAT</b></div>\n";
#	print "</lable>";
	print "</td>";
	print "</tr>";

	print "<tr bgcolor=\"#c1877c\">";
	print "<td align=\"center\">";
	print "<input type=\"radio\" name=\"CHOOSEPREMIUM\" value=\"2\" $CHECKEDB>";	
	print "</td>";
	print "<td>";
	print "<font size=2 color=\"#ffffff\">";
	print "Laufzeit: <b>12</b> Monate; Preis: $MEMPREISB,<br>";
	print "<div align=\"center\">nur <font size=5 color=\"#ffffff\">";
	print "<b>$PREISPROMONATB</b></div>";
	print "</td>";
	print "</tr>";

	print "<tr bgcolor=\"#c187ac\">";
	print "<td align=\"center\">";
	print "<input type=\"radio\" name=\"CHOOSEPREMIUM\" value=\"3\" $CHECKEDC>";	
	print "</td>";
	print "<td>";
	print "<font size=2 color=\"#ffffff\">";
	print "Laufzeit: <b>24</b> Monate; Preis: $MEMPREISC,<br>";
	print "<div align=\"center\">nur <font size=5 color=\"#ffffff\">";
	print "<b>$PREISPROMONATC</b></div>";
	print "</td>";
	print "</tr>";
	print "</table>";

	print "<font size=\"1\" color=\"silver\"><div align=\"right\">";
	print "Alle Preise enthalten die gesetzliche Mehrwertsteuer!";
	print "&nbsp;&nbsp;</div></font><br>";


	print "<div align=\"center\"><font size=1 color=\"#ffffff\">Nach Ablauf der Laufzeit wird die Premium-Mitgliedschaft <b><u>nicht</u></b> automatisch verlängert und es entstehen <b><u>keine</u></b> weiteren Kosten!</div><br>
<br>";
	
	
	
	print "<font face=verdana,arial,helvetica size=1 color=ffffc8>
	Mit der Beantragung zur Premium-Mitgliedschaft stimmst Du ausdrücklich zu, dass Du mit unseren <a href=\"http://www.flashModels.de/agb\" target=\"_blank\">AGB's</a> einverstanden bist.<br>";

	print "<font face=verdana,arial,helvetica size=1 color=ffffff><br>\n";
	print "<input type=\"checkbox\" name=\"AGB\" value=\"1\"> $TEXT565<br><br>\n";

if ($SCOUTERGULTIG eq 1)
	{
	print "<input type=\"hidden\" name=\"MSID\" value=\"$FORM{'MSID'}\">\n";
	}

	print "<input type=\"submit\" name=\"PREMIUM\" value=\"JA, ich möchte Premium-Mitglied werden\">\n";
	print "<br><br>";
	print "</form>";
	
	print "		</td>\n";
	print "	</tr>\n";
	print "</table>\n";

	}

if ( ($DATEN[4] eq 'premiumaccept') and ($FORM{'AGB'} eq 1) )
	{

	if($SCOUTERGULTIG eq  1)
		{
		$Z = "$Z $FORM{'MSID'} $FSCOUTERVORNAME $FSCOUTERNACHNAME (GÜLTIG)<br>";
		}
		else
		{
		$Z = "$Z $FORM{'MSID'} $FSCOUTERVORNAME $FSCOUTERNACHNAME (UNGÜLTIG)<br>";
		}

	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"Aqua\">Premium Member werden angezeigt *** akzeptiert $FSCOUTERVORNAME $FSCOUTERNACHNAME <br><font color=\"#ffff00\">$Z</font>";
	&LOG;

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

#$ANTRAGMONATE = "6"; # Monate
#$ANTRAGPREIS = "19.90 Euro";

if ($FORM{'CHOOSEPREMIUM'} eq 2)
	{
	$ANTRAGPREIS = "29.90 Euro";
	$ANTRAGMONATE = "12";
	$MEMPREIS = $MEMPREISB;
	}

if ($FORM{'CHOOSEPREMIUM'} eq 3)
	{
	$ANTRAGPREIS = "39.90 Euro";
	$ANTRAGMONATE = "24";
	$MEMPREIS = $MEMPREISC;
	}


if ($DATEN[5] eq 'ver')
	{
	$dbh->do("UPDATE `$TABELLENNAME_B` SET `ANTRAGMEMBER` = '2', `ANTRAGPREIS` = '$ANTRAGPREIS', ANTRAGDATUM = NOW(), ANTRAGLAUFZEITMONAT = '$ANTRAGMONATE', ANTRAGSCOUTER = '$FSCOUTERID' WHERE `CASTID` = '$ID' ");		
	}
	else
	{
	$dbh->do("UPDATE `$TABELLENNAME_B` SET `ANTRAGMEMBER` = '1', `ANTRAGPREIS` = '$ANTRAGPREIS', ANTRAGDATUM = NOW(), ANTRAGLAUFZEITMONAT = '$ANTRAGMONATE', ANTRAGSCOUTER = '$FSCOUTERID' WHERE `CASTID` = '$ID' ");		
	}

	##### LOG File ##########################
	$sqlbefehl="select CASTID, LOGFILE FROM $CASTINGLOG	WHERE CASTID = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden

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

	$DBLOGTEXT = "Antrag Premium 19.90 Euro $datum, $IP\n$DBLOGTEXT";

	if ($CASTID)
		{
		$dbh->do("UPDATE `$CASTINGLOG` SET `LOGFILE` = '$DBLOGTEXT' WHERE CASTID = '$ID' ");
		}
		else
		{
		$dbh->do("INSERT INTO `$CASTINGLOG` ( `CASTID`, `LOGFILE` )  VALUES ( '$ID', '$DBLOGTEXT' ) ");
		}

#	print "-$DBLOGTEXT-<br><br>	";
	
	$dbh->disconnect; # Von Datenbank abmelden				
if ($SCOUTERGULTIG == "1")
	{
	$FSCOUTEREMAILHINWEIS = "\n$FSCOUTEREMAILHINWEIS\n";
	}
	
   open (MAIL, "|$mailprog -t") || die "Can't open $mailprog!\n";

$MAILTEXTACCOUNT =" Hallo $VORNAME $NACHNAME,
   
hiermit möchten wir Dir bestätigen, dass Dein Antrag auf die Premium-Mitgliedschaft in der Castingkartei bei uns eingegangen ist.

Erst nachdem der entsprechende Betrag von $MEMPREIS auf unserem Konto eingegangen ist, werden wir Deine Standard-Mitgliedschaft auf Premium umstellen mit einer Laufzeit von $ANTRAGMONATE Monaten.
$FSCOUTEREMAILHINWEIS
Nach Ablauf der Laufzeit wird die Premium-Mitgliedschaft nicht automatisch verlängert und es entstehen keine weiteren Kosten!

Jederzeit kannst Du die Bankverbindung im Login-Bereich aufrufen, indem Du auf Einstellungen im Menü klickst.
Hier nochmals der Link: www.flashModels.de/casting (bitte bei Mitgliedern einloggen)

Viele Grüße sendet Dir das Team von
flashModels.de

";
$subjectaccount  = "Bestätigung des Premium-Antrags";

if ($DATEN[5] eq 'ver')
{
$MAILTEXTACCOUNT =" Hallo $VORNAME $NACHNAME,
   
hiermit möchten wir Dir bestätigen, dass Dein Antrag auf die Verlängerung der Premium-Mitgliedschaft in der Castingkartei bei uns eingegangen ist.

Erst nachdem der entsprechende Betrag auf unserem Konto eingegangen ist, werden wir Deine Premium-Mitgliedschaft verlängern.
$FSCOUTEREMAILHINWEIS
Jederzeit kannst Du die Bankverbindung im Login-Bereich aufrufen, indem Du auf Einstellungen im Menü klickst.
Hier nochmals der Link: www.flashModels.de/casting (bitte bei Mitgliedern einloggen).

Viele Grüße sendet Dir das Team von
flashModels.de

";

$subjectaccount  = "Bestätigung der Premium-Verlängerung";
}

   
   print MAIL "To: $EMAIL\n";
   print MAIL "From: $recipient\n";
   print MAIL "Subject: $subjectaccount \n\n";
  

	print MAIL "$MAILTEXTACCOUNT";   
	
   close (MAIL);


	}

if ( ($DATEN[4] eq 'premiumaccept') or ($DATEN[4] eq 'premiumdepot') )
	{

	if ($FORM{'CHOOSEPREMIUM'} eq 2)
		{
		$MEMPREIS = $MEMPREISB;
		}

	if ($FORM{'CHOOSEPREMIUM'} eq 3)
		{
		$MEMPREIS = $MEMPREISC;
		}

if ($ANTRAGMEMBERPREIS)
	{
	$MEMPREIS = $ANTRAGMEMBERPREIS;
	}		
		
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"Aqua\">Bankverbindung wurde angezeigt<br>$MEMPREIS,";
	&LOG;

	print "<table width=\"100%\" border=\"0\" cellspacing=\"2\" cellpadding=\"2\">";
	print "<tr>";
	print "<td valign=\"top\">";
	print "<font size=\"2\" color=\"#ffffff\">";
	print "<div align=\"center\">";
	print "<b>Vielen Dank für die Beantragung der Premium-Mitgliedschaft!</b><br><br>
	Wir möchten Dich nun bitten, den Betrag <br>
	von <font size=\"4\"><b>$MEMPREIS</b></font> auf das <br>
	nachfolgende Konto einzuzahlen!<br>
	<br>
	<font size=\"2\">
	Bitte gebe als Verwendungszweck unbedingt <br>
	Deine <b style=\"color: #ffffff;\">ID:$ID</b> an!</font><br>";
	print "</div>";
	print "<br>";
	print "</td>";

	print "<td width=\"300\" valign=\"top\">";
	print "$FSCOUTERHTMLTEXT";	
	print "</td>";
	print "</tr>";
	print "</table>";

	print "<div align=\"center\">[<a href=\"javascript:window.print()\"><b class=\"drucken\">Seite drucken</b></a>]</div>";

if ($DATEN[5] eq 'ver')
{
$VERNALNGERUNG = "VX";
}
	
	print "
	<b>Bankverbindung</b>:<br><br>
	
	<table>
		<tr>
		<td><font size=\"2\" color=\"#ffffff\">Empfänger:</td>
		<td><font size=\"4\" color=\"#ffffff\"><b>HOTPIXEL</b></td>		
		</tr>

		<tr>
		<td><font size=\"2\" color=\"#ffffff\">Kontonummer:</td>
		<td><font size=\"4\" color=\"#ffffff\"><b>0205251900</b></td>		
		</tr>
		
		<tr>
		<td><font size=\"2\" color=\"#ffffff\">Bankleitzahl:</td>
		<td><font size=\"4\" color=\"#ffffff\"><b>39080005</b></td>		
		</tr>

		<tr>
		<td><font size=\"2\" color=\"#ffffff\">Kreditinstitut:</td>
		<td><font size=\"2\" color=\"#ffffff\"><b>Dresdner Bank</b></td>		
		</tr>

		<tr>
		<td><font size=\"2\" color=\"#ffffff\">Verwendungszweck:&nbsp;&nbsp;</td>
		<td><font size=\"4\" color=\"#ffffff\"><b>$ID $VERNALNGERUNG Premium<br>
		$VORNAME $NACHNAME</b></td>		
		</tr>
		
	</table>
	<br>
	<br>
	
	<font size=\"1\">(Für Transaktionen ausserhalb von Deutschland:)<br></font>
	<b>Internationale Bankverbindung:</b><br><br>
	
	<table>
		<tr>
		<td><font size=\"2\" color=\"#ffffff\">Empfänger:</td>
		<td><font size=\"3\" color=\"#ffffff\"><b>HOTPIXEL</b></td>		
		</tr>

		<tr>
		<td><font size=\"2\" color=\"#ffffff\">SWIFT-BIC:</td>
		<td><font size=\"3\" color=\"#ffffff\"><b>DRES DE FF</b></td>		
		</tr>
		
		<tr>
		<td><font size=\"2\" color=\"#ffffff\">IBAN:</td>
		<td><font size=\"3\" color=\"#ffffff\"><b>DE91 39080005 0205251900</b></td>		
		</tr>

		<tr>
		<td><font size=\"2\" color=\"#ffffff\">Verwendungszweck:&nbsp;&nbsp;</td>
		<td><font size=\"3\" color=\"#ffffff\"><b>$ID $VERNALNGERUNG Premium<br>
		$VORNAME $NACHNAME</b></td>		
		</tr>
		
	</table><br>
	Erst nach Geldeingang wird Deine Premium-Mitgliedschaft aktiv!<br><br>
	";

	print "<div align=\"center\">[<a href=\"javascript:window.print()\"><b class=\"drucken\">Seite drucken</b></a>]</div>";	

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

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

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

   print "<body bgcolor=\"$hg\" background=\"$HGPIC\" bgproperties=fixed text=\"ffffff\" link=\"ffffff\" vlink=\"ffffff\" alink=\"ffffff\" leftmargin=\"5\" topmargin=\"5\" $BODYZUSATZ>\n\n\n";
	print "<center><br><br>";
	if ($DATEN[2] eq 1)
		{
	print "<font color=\"ffffff\" size=\"2\">Deine aktuelle Vermittlungschance ist momentan kleiner,
	 dass Du einen Auftrag erhälst, da nur unsere Kunden und wir Deinen Eintrag sehen können. Durch ändern des
	  Status, könntest Du Deine Chance erhöhen, da Du öffentlich in der Castingkartei somit zu sehen wärest. 
		Zu sehen wären nur Deine Fotos, sowie folgende Angaben: Vorname, Wohnort, Postleitzahl, Alter, Land,
	 Sternzeichen, Körpergröße, Gewicht, Hauttyp, Haarfarbe, Haarlänge, Augenfarbe und die Schuhgröße. Das öffentliche Profil
	 kannst Du dann selber für z.B. eigene Bewerbungen verwenden.";
	 }

	if ($DATEN[2] eq '2')
		{
		print "<font color=\"#000000\" size=\"4\">Wenn Du jetzt noch Deine Daten änderst, bzw. aktualisierst, so wird Dein Eintrag auf der ersten Position in der Kartei zu sehen sein (www.flashModels.de/casting). Klicke hierzu im Menü auf 'Daten ändern'.<br>
		<br>
		<br>
		</font>";
	 	}

	print "<a href=\"javaScript: self.close();\"><font face=verdana,arial,helvetica size=2 color=$hell><b>$TEXT915</b></a>";  		
	print "<br><br>";
	}	
	
sub MYSCOUTERID
	{
	print "<table width=\"800\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"$MSBGCOLOR\">\n";
	print "	<tr>\n";
	print " 	<td height=\"400\" width=\"50%\" valign=\"top\">";
	print "<font color=\"#ffffff\" size=\"2\"><br><br><br>";
	print "<div align=\"center\">";
	print "Deine Modelscouter ID lautet: ";
	print "<font color=\"#ffffff\" size=\"5\">";
	print "<b>$MODELSCOUTERID</b></div>";
	print "</font>";
	print "<font color=\"#ffffff\" size=\"2\"><br><br><br>";

#	print "Trägt eine von Dir angeworbene Person, diese Modelscouter ID ein, um Premium-Mitglied zu werden,"
	print "Für jede abgeschlossene und auch bezahlte Premium-Mitgliedschaft<br>
	eines von Dir angeworbenen Mitgliedes erhälst Du <b>$MODELSCOUTERPREIS</b>.<br>
	<br>
	Jederzeit kannst Du im Kontostand Dein aktuelles Guthaben überwachen. Sobald Du ein Guthaben von 50 Euro erreicht hast, zahlen wir Dir das Guthaben aus, nachdem wir eine Rechung von Dir erhalten haben.
	";

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

sub KONTOSTAND
	{
	print "<table width=\"800\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"#000000\">\n";
	print "	<tr>\n";
	print " 	<td height=\"400\" width=\"50%\" valign=\"top\">";
	print "<font color=\"#ffffff\" size=\"2\">";
	print "hallo";
	print "</font>";
	print "</td></tr>";
	print "</table><br><br>";
	}	

sub SEDFOTOTAUSCH
	{
	$popupblau ="silver";	
    $dunkel	= $MBGCOLOR;

	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=\"#fcaf10\">Hauptfotos tauschen wurde geöffnet $CHANGEMODELFOTOS <a href=\"http://www.flashmodels.de/p/$ID\" target=\"_blank\">Sedcard</a><br>";
	&LOG;	
	
	print "<table width=\"800\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"$MBGCOLOR\">\n";
	print "	<tr>\n";
	print " 	<td height=\"400\" width=\"50%\" valign=\"top\">";
	print "<font color=\"#ffffff\" size=\"2\">";
##########
	print "<b>Deine Haupt-Modelfotos in der Sedcard:</b><br><br>";

for ($t=0; $t<=10; $t++)
	{
	$REALBILD="$HOME/p/$ID/foto$t.jpg";
	$BILD = "$REAL/p/$ID/foto$t.jpg";

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

	
	if ( ($width1 eq '') or ($height1 eq '') )
	{
	}
	else
	{
	$hohe= 150;
	$FAK = $hohe/$height1;
	$width_new = $width1 * $FAK;
	$height_new = $height1 * $FAK;
	print "<img src=\"$REALBILD\" width_new=\"$width_new\" height=\"$height_new\" border=\"1\" alt=\"\">&nbsp;";
	}		  
}
   print "<br><br><div align=\"center\">Für das Austauschen Deiner bestehenden Hauptfotos berechnen wir<br>
    eine Aufwandspauschale von <b>$PREISFOTOTAUSCH</b>.</div><br>\n";
   print "Hierbei werden maximal <b>6 Hauptbilder</b> ausgetauscht, die Du durch klicken auf nachstehenden Link hochladen kannst.<br><br> ";

   print "Von unseren Grafikern werden Deine neuen Bilder optimal nachbearbeitet und dann in Deine Sedcard eingefügt.<br>";

   print "Bei Interesse lade bitte Deine neuen Fotos hoch: ";
	print "<a href=\"javascript:pophtml('$picuploadurlmodel?login=fototausch&modelid=$ID&ses=$DATEN[2]', 800, 550)\" style=\"color: #ffff00; font-size: 14px; font-weight: bold;\">>>> Fotos hochladen <<<</a><br><br>";

   print "<div align=\"center\">Bei Austausch Deiner Bilder wirst Du auf der Hauptseite ebenfalls wieder<br> auf die <b>1. Position</b> mit dem Hinweis <b>'neue Fotos'</b> gesetzt.<br></div>";

   print "<div align=\"center\"><br><table bgcolor=\"#771d7e\" width=\"700\" cellspacing=\"5\" cellpadding=\"2\"><tr><td>";
   print "<div align=\"center\"><font color=\"#ffff00\" size=\"2\">$PICFLAG2 <b>WOW</b> : Ebenfalls erhälst Du eine Premium-Mitgliedschaft für <b>6 Monate im Wert von 19,90 Euro</b> in der Castingkartei. Solltest Du bereits Premium-Mitglied sein, so wird diese verlängert.<br></font><font size=\"1\">(Die Premium-Mitgliedschaft ist somit inklusive und wird nicht extra berechnet!)</font></div>";
print "</td></tr></table></div><br>";

##########
	print "</td></tr>";
	print "</table><br><br>";
	}


sub SAVESEDDATA
	{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=$MBGCOLOR><a href=\"http://www.flashmodels.de/p/$ID\" target=\"_blank\">Sedcard ändern</a> <font color=\"#ffff00\"><b>--> gespeichert</b></font>";
	&LOG;


	$popupblau ="silver";	
    $dunkel	= $MBGCOLOR;

	print "<table width=\"800\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"$MBGCOLOR\">\n";
	print "	<tr>\n";
	print " 	<td height=\"400\" width=\"50%\" valign=\"top\">";
	print "<font color=\"#ffffff\" size=\"2\">";
##########
#	print "Daten wurden gespeichert! $ID, $TABELLENNAME";

	print "$TEXT572";
	
	
	$SEDCARDURLOPEN = "http://www.flashModels.de/p/$ID/index.html";   
	print "<img src=\"$FLAGGER\" border=\"0\" alt=\"Deutsch\" align=\"middle\"> <a href=\"$SEDCARDURLOPEN\" target=\"_blank\">Deutsche Sedcard öffnen</a><br>";

	$SEDCARDURLOPEN = "http://www.flashModels.net/p/$ID/index.html";   
	print "<img src=\"$FLAGEN\" border=\"0\" alt=\"Englisch\" align=\"middle\"> <a href=\"$SEDCARDURLOPEN\" target=\"_blank\">Open english Sedcard</a><br>";

	$SEDCARDURLOPEN = "http://www.flashModels.de/br/p/$ID/index.html";   
	print "<img src=\"$FLAGBR\" border=\"0\" alt=\"Brazil\" align=\"middle\"> <a href=\"$SEDCARDURLOPEN\" target=\"_blank\">Para abrir português Sedcard</a><br>";


	print "$TEXT575	";
	
	
	$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
#	$dbh->do("DELETE FROM $TABELLENSEDCARDDATEN WHERE MODELID = $ID");


	$dbh->do("UPDATE `$TABELLENNAME` SET `LG` = '$LG' WHERE ID = '$ID' ");
	

	$dbh->do("UPDATE `$TABELLENSEDCARDDATEN` SET 
	`GESCHLECHT` = '$GESCHLECHT',
	`VORNAME` = '$FORM{'SEDVORNAME'}',
	`NACHNAME` = '$FORM{'SEDNACHNAME'}',	
	`TELEFON` = '$FORM{'SEDTELEFON'}',	
	`MOBIL` = '$FORM{'SEDMOBIL'}',	
	`POSTLEITZAHL` = '$FORM{'SEDPOSTLEITZAHL'}',	
	`WOHNORT` = '$FORM{'SEDWOHNORT'}',
	`LAND` = '$FORM{'SEDLAND'}',
	`GEBDATUM` = '$FORM{'SEDGEBURTSJAHR'}-$FORM{'SEDGEBURTSMONAT'}-$FORM{'SEDGEBTAG'}',
	`BERUF` = '$FORM{'SEDBERUF'}',
	`STERNZEICHEN` = '$FORM{'SEDSTERNZEICHEN'}',
	`KORPERGROSSE` = '$FORM{'SEDKORPERGROSSE'}',	
	`GEWICHT` = '$FORM{'SEDGEWICHT'}',		
	`KONFEKTIONSGROSSE` = '$FORM{'SEDKONFEKTIONSGROSSE'}',	
	`BRUST` = '$FORM{'SEDBRUST'}',		
	`TAILLE` = '$FORM{'SEDTAILLE'}',			
	`HUFTE` = '$FORM{'SEDHUFTE'}',
	`HAUTTYP` = '$FORM{'SEDHAUTTYP'}',	
	`HAARFARBE_A` = '$FORM{'SEDHAARFARBE_A'}',		
	`HAARFARBE_B` = '$FORM{'SEDHAARFARBE_B'}',			
	`HAARLANGE` = '$FORM{'SEDHAARLANGE'}',				
	`AUGENFARBE` = '$FORM{'SEDAUGENFARBE'}',				
	`SCHUHGROSSE` = '$FORM{'SEDSCHUHGROSSE'}',
	`HOBBYS` = '$FORM{'SEDHOBBYS'}',	
	`SPRACHEN` = '$FORM{'SEDSPRACHEN'}',	
	`HOMEPAGE` = '$FORM{'SEDHOMEPAGE'}',
	`TEXTFELDA` = '$FORM{'SEDTEXTFELDA'}'
	WHERE MODELID = $ID ");
	
	$dbh->do("UPDATE `$TABELLENSEDCARDDATENB` SET 
	`FASHION` = '$FORM{'FASHION'}',
	`PORTRAIT` = '$FORM{'PORTRAIT'}',
	`WERBUNG` = '$FORM{'WERBUNG'}',
	`BEAUTY` = '$FORM{'BEAUTY'}',
	`TV` = '$FORM{'TV'}',		
	`TANZEN` = '$FORM{'TANZEN'}',
	`PERFORMANCE` = '$FORM{'PERFORMANCE'}',
	`WORKSHOPS` = '$FORM{'WORKSHOPS'}',
	`FILMVIDEO` = '$FORM{'FILMVIDEO'}',
	`PRINTMEDIEN` = '$FORM{'PRINTMEDIEN'}',
	`INTERNET` = '$FORM{'INTERNET'}',
	`LINGERIE` = '$FORM{'LINGERIE'}',	
	`BODYPAINTING` = '$FORM{'BODYPAINTING'}',
	`TEILAKT` = '$FORM{'TEILAKT'}',
	`AKT` = '$FORM{'AKT'}',
	`EROTIK` = '$FORM{'EROTIK'}',			
	`FETISCH` = '$FORM{'FETISCH'}',			
	`OUTDOOR` = '$FORM{'OUTDOOR'}',			
	`INDOOR` = '$FORM{'INDOOR'}',						
	`OFFENTLICHKEIT` = '$FORM{'OFFENTLICHKEIT'}'
	WHERE MODELID = $ID ");
	

	$dbh->disconnect; # Von Datenbank abmelden		
##########
	print "</td></tr>";
	print "</table><br><br>";
	}
	
sub SEDDATA
	{
	$LOGTEXT = "<font face=verdana,arial,helvetica size=1 color=$MBGCOLOR><a href=\"http://www.flashmodels.de/p/$ID\" target=\"_blank\">Sedcard öffnen</a>";
	&LOG;

	$popupblau ="silver";	
    $dunkel	= $MBGCOLOR;

$TEXT20 = "Trage hier die Daten ein, die in Deiner Sedcard zu sehen sein werden.\n<br>
Alle Felder mit einem <font color=\"#ffff00\" size=\"1\">*) </font>müssen ausgefüllt werden!";

	
$TEXT50 = "Gib hier bitte Deinen gewünschten Tätigkeitsbereich an, indem Du gerne arbeiten möchtest.
Solltest Du in einem Bereich gerne arbeiten, so klicke entweder auf \"<b>ja</b>\" oder auf \"<b>nach Absprache</b>\".";	

$TEXT30 = "<br>Hier hast Du die Möglichkeit, noch etwas über Dich zu den Lesern zu schreiben<br>
<font face=verdana,helvetica,arial size=1 color=$hell>
(Forder sie doch einfach auf, Dir eine Stimme zu geben!)<br>
<font face=verdana,helvetica,arial size=1 color=ffffff>\n
Links, eMailadressen und Telefonnummern werden hier nicht zugelassen!<br><br>"; 	


if ($LG eq "en")
{
$TEXT20 = "Enter here all your data, which will be shown in your sedcard.\n
Fill in all obligation fields <font color=\"#ffff00\" size=\"1\">*) </font>!";

$TEXT50 = "Enter here your field of activity<br><br>
nein = no<br>
ja = yes<br>
nach Absprache = depends on.";	

$TEXT30 = "<br>Here you can write somthing to your visitors about yourself.<br>
Tell them that they should vote for you!<br><br>";
}

if ($LG eq "br")
{
$TEXT20 = "Preencha aqui com todos os seus dados, pois estes ser&atilde;o exibidos no seu sedcard.<br>\n
Preencha todos os campos obrigatórios <font color=\"#ffff00\" size=\"1\">*) </font>!";

$TEXT50 = "Agora, dentre as op&ccedil;&otilde;s abaixo, escolha qual a área que você deseja trabalhar<br><br>
nein = n&atilde;o<br>
ja = sim<br>
nach Absprache = depende.";	

$TEXT30 = "<br>Neste espa&ccedil;o você pode escrever algo sobre você, uma carta de apresenta&ccedil;&atilde;o.<br>
<font face=verdana,helvetica,arial size=1>\n
Links, eMail e número de telefone n&atilde;o s&atilde;o permitidos neste campo!<br><br>"; 
}


$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sqlbefehl="select TYP, POS, NEUFOTO, VORNAME, NACHNAME, TELEFON, MOBIL, POSTLEITZAHL, WOHNORT, LAND, GEBDATUM, BERUF, STERNZEICHEN, KORPERGROSSE, GEWICHT, KONFEKTIONSGROSSE, BRUST, TAILLE, HUFTE, HAUTTYP, HAARFARBE_A, HAARFARBE_B, HAARLANGE, AUGENFARBE, SCHUHGROSSE, HOBBYS, SPRACHEN, HOMEPAGE, TEXTFELDA FROM $TABELLENSEDCARDDATEN WHERE MODELID = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
#	print "$sqlbefehl";

	while (@dbrow = $sth->fetchrow_array)
		{
		$SEDTYP = $dbrow[0];						
		$SEDPOS = $dbrow[1];						
		$SEDNEUFOTO = $dbrow[2];						
		$SEDVORNAME = $dbrow[3];						
		$SEDNACHNAME = $dbrow[4];								
		$SEDTELEFON = $dbrow[5];			
		$SEDMOBIL = $dbrow[6];		
		$SEDPOSTLEITZAHL = $dbrow[7];		
		$SEDWOHNORT = $dbrow[8];		
		$SEDLAND = $dbrow[9];		
		$SEDGEBDATUM = $dbrow[10];			
		$SEDBERUF = $dbrow[11];			
		$SEDSTERNZEICHEN = $dbrow[12];			
		$SEDKORPERGROSSE = $dbrow[13];							
		$SEDGEWICHT = $dbrow[14];			
		$SEDKONFEKTIONSGROSSE = $dbrow[15];			
		$SEDBRUST = $dbrow[16];					
		$SEDTAILLE = $dbrow[17];					
		$SEDHUFTE = $dbrow[18];									
		$SEDHAUTTYP = $dbrow[19];	
		$SEDHAARFARBE_A = $dbrow[20];	
		$SEDHAARFARBE_B = $dbrow[21];	
		$SEDHAARLANGE = $dbrow[22];											
		$SEDAUGENFARBE = $dbrow[23];	
		$SEDSCHUHGROSSE = $dbrow[24];	
		$SEDHOBBYS = $dbrow[25];							
		$SEDSPRACHEN = $dbrow[26];									
		$SEDHOMEPAGE = $dbrow[27];											
		$SEDTEXTFELDA = $dbrow[28];													
		
		}


$dbh = DBI->connect($dbserver,$dbuser,$dbpass); # An Datenbank anmelden
$sqlbefehl="select 
`FASHION` ,	`PORTRAIT`,	`WERBUNG`,`BEAUTY`, `TV`, `TANZEN`, `PERFORMANCE`, `WORKSHOPS`, `FILMVIDEO`, `PRINTMEDIEN`,	`INTERNET`,	`LINGERIE`, `BODYPAINTING`,	`TEILAKT`, `AKT`, `EROTIK`, `FETISCH`, `OUTDOOR`, `INDOOR`,	`OFFENTLICHKEIT`
 FROM $TABELLENSEDCARDDATENB WHERE MODELID = '$ID'";
	$sth = $dbh->prepare($sqlbefehl); # SQL-Befehl vorbereiten
	$ok=$sth->execute; #SQL-Befehl senden
#	print "$sqlbefehl";

	while (@dbrow = $sth->fetchrow_array)
		{
		$FASHION = $dbrow[0];						
		$PORTRAIT = $dbrow[1];						
		$WERBUNG = $dbrow[2];						
		$BEAUTY = $dbrow[3];						
		$TV = $dbrow[4];								
		$TANZEN = $dbrow[5];			
		$PERFORMANCE = $dbrow[6];		
		$WORKSHOPS = $dbrow[7];		
		$FILMVIDEO = $dbrow[8];		
		$PRINTMEDIEN = $dbrow[9];		
		$INTERNET = $dbrow[10];			
		$LINGERIE = $dbrow[11];					
		$BODYPAINTING = $dbrow[12];			
		$TEILAKT = $dbrow[13];			
		$AKT = $dbrow[14];							
		$EROTIK = $dbrow[15];			
		$FETISCH = $dbrow[16];			
		$OUTDOOR = $dbrow[17];					
		$INDOOR = $dbrow[18];					
		$OFFENTLICHKEIT = $dbrow[19];									
		}



	$dbh->disconnect; # Von Datenbank abmelden				
	
	print "<table width=\"800\" cellspacing=\"2\" cellpadding=\"2\" bgcolor=\"$MBGCOLOR\">\n";
	print "	<tr>\n";
	print " 	<td height=\"400\" width=\"50%\" valign=\"top\">";
	print "<font color=\"#ffffff\" size=\"2\">";
##########
	$SEDCARDURLOPEN = "http://www.flashModels.de/p/$ID/index.html";   
	print "<img src=\"$FLAGGER\" border=\"0\" alt=\"Deutsch\" align=\"middle\"> <a href=\"$SEDCARDURLOPEN\" target=\"_blank\">Deutsche Sedcard öffnen</a><br>";

	$SEDCARDURLOPEN = "http://www.flashModels.net/p/$ID/index.html";   
	print "<img src=\"$FLAGEN\" border=\"0\" alt=\"Englisch\" align=\"middle\"> <a href=\"$SEDCARDURLOPEN\" target=\"_blank\">Open english Sedcard</a><br>";

	$SEDCARDURLOPEN = "http://www.flashModels.de/br/p/$ID/index.html";   
	print "<img src=\"$FLAGBR\" border=\"0\" alt=\"Brazil\" align=\"middle\"> <a href=\"$SEDCARDURLOPEN\" target=\"_blank\">Para abrir português Sedcard</a><br>";

	print "\n\n<form method=POST action=\"$cgiurl?action=saveSEDdata&ses=$SES&ID=$ID&var=&bew=&lg=$LG\">\n\n";   				

	print "$TEXT20<br><br>";
   print "<table width=500 bgcolor=\"silver\" cellspacing=1 cellpadding=1 border=0 bordercolor=$hg>\n";

   print "<tr>";
   print "<td bgcolor=$dunkel align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>eMail:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<font face=verdana,helvetica,arial size=2 color=\"#ffffff\">&nbsp;<b>$EMAIL</b>";
   print "</td>";
   print "</tr>";

      
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT510:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDVORNAME\" size=30 value=\"$SEDVORNAME\" maxlength=\"50\">";
   print "&nbsp;<font color=\"#ffff00\" size=\"1\">*)";
   print "</td>";
   print "</tr>";

   print "<tr>";
   print "<td bgcolor=$dunkel align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT511:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDNACHNAME\" size=30 value=\"$SEDNACHNAME\" maxlength=\"50\">";
   print "</td>";
   print "</tr>";

   print "<tr>";
   print "<td bgcolor=$dunkel align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT529:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDTELEFON\" size=30 value=\"$SEDTELEFON\" maxlength=\"50\">";
   print "</td>";
   print "</tr>";

   print "<tr>";
   print "<td bgcolor=$dunkel align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT527:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDMOBIL\" size=30 value=\"$SEDMOBIL\" maxlength=\"50\">";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT516:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDPOSTLEITZAHL\" size=10 value=\"$SEDPOSTLEITZAHL\" maxlength=\"20\">";
   print "&nbsp;<font color=\"#ffff00\" size=\"1\">*)";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT517:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDWOHNORT\" size=30 value=\"$SEDWOHNORT\" maxlength=\"60\">";
   print "&nbsp;<font color=\"#ffff00\" size=\"1\">*)";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT518:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<select name=SEDLAND size=1>";
   print "<option selected>$SEDLAND<option>Deutschland<option>Österreich<option>Schweiz<option>";
   print "$LAENDER";
   print "</select>";

   print "&nbsp;<font color=\"#ffff00\" size=\"1\">*)";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT513:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
			@DATUMDMY  = split(/\-/,"$SEDGEBDATUM");
			$GEBURTSTAG = $DATUMDMY[2];
			$GEBURTSMONAT = $DATUMDMY[1];			
			$GEBURTSJAHR = $DATUMDMY[0];	

			print "<select name=\"SEDGEBTAG\" size=1><option selected>$GEBURTSTAG
			<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10
			<option>11<option>12<option>13<option>14<option>15<option>16<option>17<option>18<option>19<option>20			
			<option>21<option>22<option>23<option>24<option>25<option>26<option>27<option>28<option>29<option>30			
			<option>31</select>.";
			
			print "<select name=\"SEDGEBURTSMONAT\" size=1><option selected>$GEBURTSMONAT
			<option>01<option>02<option>03<option>04<option>05<option>06<option>07<option>08<option>09<option>10
			<option>11<option>12</select>.";			
			
		$jahrdif = 100;
		print "<select name=\"SEDGEBURTSJAHR\" size=1><option selected>$GEBURTSJAHR";
	
		for ($k=0; $k<=100; $k++)
			{
			$showjahr = $YEARNOW - $k;
			print "<option>$showjahr";
			}
	
		print "</select>";

   print "&nbsp;<font color=\"#ffff00\" size=\"1\">*)";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT531:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDBERUF\" size=30 value=\"$SEDBERUF\" maxlength=\"60\">";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT535:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
	print "<select name=SEDSTERNZEICHEN size=1>";
	print "<option selected>$SEDSTERNZEICHEN";
	print "<option><option>$DATEN_select0";
	print "</select><br>";

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

   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT536:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDKORPERGROSSE\" size=3 value=\"$SEDKORPERGROSSE\" maxlength=\"4\"><font face=verdana,helvetica,arial size=1 color=$hell> cm";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT537:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDGEWICHT\" size=3 value=\"$SEDGEWICHT\" maxlength=\"4\"><font face=verdana,helvetica,arial size=1 color=$hell> kg";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>Konfektionsgröße:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDKONFEKTIONSGROSSE\" size=3 value=\"$SEDKONFEKTIONSGROSSE\" maxlength=\"4\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>Brustumfang:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDBRUST\" size=3 value=\"$SEDBRUST\" maxlength=\"4\"><font face=verdana,helvetica,arial size=1 color=$hell> cm";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>Taillenumfang:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDTAILLE\" size=3 value=\"$SEDTAILLE\" maxlength=\"4\"><font face=verdana,helvetica,arial size=1 color=$hell> cm";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>Hüftumfang:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDHUFTE\" size=3 value=\"$SEDHUFTE\" maxlength=\"4\"><font face=verdana,helvetica,arial size=1 color=$hell> cm";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT538:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
		    print "<select name=SEDHAUTTYP size=1>";
			print "<option selected>$SEDHAUTTYP";
			print "<option><option>$DATEN_select1";
			print "</select><br>";
   print "</td>";
   print "</tr>";
   
   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT539:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";

		   print "<select name=SEDHAARFARBE_A size=1>";
		   print "<option selected>$SEDHAARFARBE_A";
			print "<option><option>$DATEN_select2";
		   print "</select>";

		   print "<select name=SEDHAARFARBE_B size=1>";
		   print "<option selected>$SEDHAARFARBE_B";
			print "<option><option>$DATEN_select3";
		   print "</select>";

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

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT540:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
		   print "<select name=SEDHAARLANGE size=1>";
		   print "<option selected>$SEDHAARLANGE";
			print "<option><option>$DATEN_select4";
		   print "</select><br>";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT541:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<select name=SEDAUGENFARBE size=1>";
   print "<option selected>$SEDAUGENFARBE";
   print "<option><option>$DATEN_select5";
   print "</select>";

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

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>$TEXT542:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDSCHUHGROSSE\" size=3 value=\"$SEDSCHUHGROSSE\" maxlength=\"4\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>Hobbys:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDHOBBYS\" size=30 value=\"$SEDHOBBYS\" maxlength=\"80\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "</td>";
   print "</tr>";

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>Sprachen:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDSPRACHEN\" size=30 value=\"$SEDSPRACHEN\" maxlength=\"80\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "</td>";
   print "</tr>";
   

   print "<tr>\n";
   print "<td bgcolor=$dunkel width=\"200\" align=\"right\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<b>Homepage:</b><br>";
   print "</td>";
   print "<td bgcolor=$dunkel>";
   print "<input type=text name=\"SEDHOMEPAGE\" size=30 value=\"$SEDHOMEPAGE\" maxlength=\"80\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "<br><font color=\"#ffff00\" size=\"1\">**)";
	print "<font color=\"#ffffff\"> $TEXT574";
   print "</td>";
   print "</tr>";
   
   print "</table><br><br>";

	print "$TEXT30";
	print "<textarea name=\"SEDTEXTFELDA\" COLS=80 ROWS=15>$SEDTEXTFELDA</textarea><br><br>";
	



	

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

   
 
	
   print "<table bgcolor=\"silver\" cellspacing=1 cellpadding=5 border=0 bordercolor=$hg>\n";
      
   print "<tr>\n";

   print "<td bgcolor=$dunkel width=300 valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Fashion:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Mode, Laufsteg ...";
   
   print "</td>";

   print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"FASHION\" size=1>";
	   if ($FASHION eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($FASHION eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($FASHION eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";


   print "</tr>\n";   



   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Portrait:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Gesicht, Schultern, Dekolletee ...";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"PORTRAIT\" size=1>";
	   if ($PORTRAIT eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($PORTRAIT eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($PORTRAIT eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";   


   
   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Werbung:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Alle Formen der Werbung";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"WERBUNG\" size=1>";
	   if ($WERBUNG eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($WERBUNG eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($WERBUNG eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";   

   
   
   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Beauty:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Kosmetik, Fitness, Wellness,<br>";
   print "&nbsp;Pflege, Körper ... ";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"BEAUTY\" size=1>";
	   if ($BEAUTY eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($BEAUTY eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($BEAUTY eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   




   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>TV:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Talk, Magazine, Soap ... <br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"TV\" size=1>";
	   if ($TV eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($TV eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($TV eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   



   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Tanzen:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Gogo, Table-Dance ... <br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"TANZEN\" size=1>";
	   if ($TANZEN eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($TANZEN eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($TANZEN eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      

   
   
   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Performance:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Erotik-Show, Life-Act, Strip  ... <br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"PERFORMANCE\" size=1>";
	   if ($PERFORMANCE eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($PERFORMANCE eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($PERFORMANCE eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   


   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Workshops:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Profis, Amateure ... <br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"WORKSHOPS\" size=1>";
	   if ($WORKSHOPS eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($WORKSHOPS eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($WORKSHOPS eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      


   
   
   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Film/Video:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Alle Bereiche<br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"FILMVIDEO\" size=1>";
	   if ($FILMVIDEO eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($FILMVIDEO eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($FILMVIDEO eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   



   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Printmedien:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Alle Bereiche<br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"PRINTMEDIEN\" size=1>";
	   if ($PRINTMEDIEN eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($PRINTMEDIEN eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($PRINTMEDIEN eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   




   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Internet:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Content, WebCam ...<br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"INTERNET\" size=1>";
	   if ($INTERNET eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($INTERNET eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($INTERNET eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   

   
   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Lingerie:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Dessous, Wäsche, Erotik-Wäsche ...<br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"LINGERIE\" size=1>";
	   if ($LINGERIE eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($LINGERIE eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($LINGERIE eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   



   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Bodypainting:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Teilkörper, Ganzkörper<br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"BODYPAINTING\" size=1>";
	   if ($BODYPAINTING eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($BODYPAINTING eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($BODYPAINTING eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   


   
   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Teil-Akt:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Alle Körperteile, klassisch,<br>";
   print "&nbsp;mit/ohne Gesicht, erotisch <br>";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"TEILAKT\" size=1>";
	   if ($TEILAKT eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($TEILAKT eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($TEILAKT eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   



   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Akt:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Alle Körperteile mit Gesicht,<br>";
   print "&nbsp;Schambereich teilweise sichtbar";

   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"AKT\" size=1>";
	   if ($AKT eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($AKT eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($AKT eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   

   
   
   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Erotik:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Alle Körperteile mit Gesicht,<br>";
   print "&nbsp;Schambereich sichtbar";

   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"EROTIK\" size=1>";
	   if ($EROTIK eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($EROTIK eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($EROTIK eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   






   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Fetisch:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Alle Körperteile mit Gesicht,<br>";
   print "&nbsp;bizarre Darstellung";
   
   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"FETISCH\" size=1>";
	   if ($FETISCH eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($FETISCH eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($FETISCH eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

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

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Outdoor:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Im Freien, verborgen ...";


   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"OUTDOOR\" size=1>";
	   if ($OUTDOOR eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($OUTDOOR eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($OUTDOOR eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      


   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Indoor:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Studio, Wohnung,<br>";
   print "&nbsp;Gebäude, verborgen ...";


   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"INDOOR\" size=1>";
	   if ($INDOOR eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($INDOOR eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($INDOOR eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

   print "</tr>\n";      
   


   print "<tr>\n";

   print "<td bgcolor=$dunkel valign=\"top\"><font face=verdana,helvetica,arial size=1 color=$hell>";
   print "&nbsp;<b>Öffentlichkeit:</b><br>";
   print "<font face=verdana,helvetica,arial size=1 color=$popupblau>";
   print "&nbsp;Im Freien, öffentlich,<br>";
   print "&nbsp;Zuschauer möglich ... <br>";

   print "</td>";

  print "<td bgcolor=$dunkel width=50 valign=\"top\">";
   print "<select name=\"OFFENTLICHKEIT\" size=1>";
	   if ($OFFENTLICHKEIT eq '0') 
   		   {
		   print "<option value=\"0\" selected>nein";
		   }
	   if ($OFFENTLICHKEIT eq '1') 
   		   {
		   print "<option value=\"1\" selected>ja";
		   }
	   if ($OFFENTLICHKEIT eq '2') 
   		   {
		   print "<option value=\"2\" selected>nach&nbsp;Absprache";
		   }
   print "<option value=\"0\">nein<option value=\"1\">ja<option value=\"2\">nach&nbsp;Absprache";
   print "</select>";
   print "</td>\n";

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


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

	print "<table width=\"350\">";
	print "<tr>";
	print "<td>";
	
	print "$TEXT561";
		
	print "<font face=verdana,arial,helvetica size=1 color=ffffff>";
	print "<input type=\"checkbox\" name=\"AGB\" value=\"1\"> $TEXT565<br><br>";
	print "</td>";
	print "</tr>";
	print "</table>";

	
	print "<input type=submit value=\"$TEXT566\">\n";
	print "</p>";
	print "</form><br><br><br>"; 

	

	
	
	

	print "</td></tr>";
	print "</table><br><br>";
	}	
	
	
sub internpasswort
{
   print "Content-type: text/html\n\n";
   print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0 Transitional//EN\">\n";
   print "<html><head><title>$TITEL</title>\n";

   print "<body bgcolor=$hg background=\"$HGPIC\" text=ffff00 link=ffff00 vlink=ffff00 alink=ffff00>\n";
    print "<center><table bgcolor=$dunkel width=750 height=\"300\"cellspacing=2 cellpadding=2 border=0>\n";
    print "<tr>";

	print "<td>$TEXT801</td>";

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