#!/usr/bin/perl

use DBI;
use CGI;
use err;
use pdat;

open (FILE, "<panel2.conf") or die "AAAArrrrrgghhh";
while ($line = <FILE>) {
  ($key,$val) = ($line =~/^(\S*)\s*=\s*(\S*)/);
    if ($key ne "") { $conf{$key}=$val }
}
close FILE;

my $query = new CGI;
my $queryn = new CGI({});

my $DB_DSN      = "DBI:$conf{database}:$conf{dataname}:$conf{datahost}";
my $DB_USER     = "$conf{datauser}";
my $DB_PASSWD   = "$conf{datapass}";

my $dbh = DBI->connect($DB_DSN, $DB_USER, 
   $DB_PASSWD) or err::error_seite{"Cannot connect to DB"};


my $pin = $query->param(pin);
my $pass = $query->param(pass);
my $but = $query->param(but);
my $but1 = $query->param(but1);
my $but2 = $query->param(but2);
my %val=$query->Vars;

#-------------------------------------------
if ($but2 eq "Ende")  {	
    print $query->redirect("$conf{htmlsource}/prorataweb.htm");   #"$ENV{HTTP_REFERER}"
	$dbh->disconnect();
	exit;
}

if (($but eq "" && $but1 eq "") || $but eq "Zurück") {

  print  $query->header,
  $query->start_html(-title=>"Prorata Login",
  		     -text=>'#000000', -bgcolor=>'#D8D5D8', -link=>'#0084FF',
		     -vlink=>'#0084FF', -alink=>'#0084FF', 
		     -background=>'' ),
   
    "<center><img src='$conf{picsource}/$conf{proratalogo}'><hr><br>\n",
    "<font  face='$conf{stdfont}' size=5 color='#0482BD'>Bitte melden Sie sich mit PIN und Passwort an.<hr>\n",  
    $query->startform("POST"),"<center><br><table>",
	"<TR><TD>PIN-Nummer :</TD>\n<TD>",$query->textfield('pin'),"</TD></TR>\n",
	"<TR><TD>Passwort :</TD>\n<TD>",$query->password_field('pass'),"</TD>\n</TD></table><br><br>\n",
	$query->submit('but','Anmelden'),"&nbsp;&nbsp;",
	#$query->submit('but2','Zurück'),
	"</center></font>\n",
	$query->endform,
	$query->end_html;
	$dbh->disconnect;    
	exit;
}
###################################################################################
#-----------------------------------------------------------------------------------------------------------------------------------------------
#Submit - Persönliche Daten ändern
if ($but eq "Übernehmen") {

$val{pers3}+=0;
$val{pers12}+=0;
$val{pers54}+=0;
$val{pers55}+=0;
$val{pers22}+=0;
$val{plz}+=0;

#-----------------------------------------------------------------------------------------------
#Leere  Pflichtfelder?

if ($val{vname} eq "" ||
	$val{nname} eq "" ||
	$val{strasse} eq "" ||
	$val{plz} eq "" ||
	$val{land} eq "" ||
	$val{email} eq "" ||
	$val{tel} eq "" 

	)

{	$dbh->disconnect();
	err::error_seite("Überprüfen Sie bitte, daß alle mit Sternen markierte Felder ausgefüllt sind!",$zurucktext);
}

#----------------------------------------------------------------------------------------------
#E-Mail Adresse überprüfen

if ($val{email} !~/.+@.+\.([a-z|A-Z]){2,3}$/) #Reguläre Ausdrücke !!!
#testet auf @ mit zeichen davor und dahinter und Punkt zwischen Zeichen hinter @

{	err::error_seite("Überprüfen Sie bitte Ihre E-Mail Adresse",$zurucktext);}

#----------------------------------------------------------------------------------------------
#Postleitzahl überprüfen

if ($val{plz} !~/^\d{4,5}$/) #testet auf 5-stellige Zahl

{	err::error_seite("Überprüfen Sie bitte Ihre Postleitzahl.",$zurucktext);}

#----------------------------------------------------------------------------------------------
# Ort nach PLZ ermitteln
%laender=('1','D','2','CH','3','A');
my $sql = "select ort from plz where plz=$val{plz} and land='$laender{$val{land}}'";

if ($val{stadt} eq "" && $val{plz} ne "") { $val{stadt} = $dbh->selectrow_array($sql) }


#---------------------------------------------------------------------------------------------
# Ort nicht existiert -> PLZ nicht korrekt!

if ($val{stadt} eq "")
	{err::error_seite("Ihr Wohnort konnte nicht automatisch ermittelt werden, überprüfen Sie Ihre Plz oder tragen Sie Ihren Wohnort ein",$zurucktext)}

#----------------------------------------------------------------------------------------------
#Telefonnummerangabe überprüfen

$val{tel}=~s/\D//g;   #Löscht alle nicht digits aus der Telefonnummer
if ($val{tel} !~/0\d{5,}/)   #Tel.Nr muß mit 0 anfangen und mind. 6 zeichen lang sein
	{err::error_seite("Überprüfen Sie bitte, ob Sie Ihre Telefonnummer korrekt mit Vorwahl eingegeben haben.",$zurucktext)}
#-------------------------------------------------------------------------------------------------
#Jahr der letzten Bestellung
$val{bestjahr}=~s/\D//g;   #Löscht alle nicht digits aus dem Jahr
$val{bestjahr}+=0;

if (($val{bestjahr} ne "") && ($val{bestjahr} =~/^\d{2}$/))
{	err::error_seite("Jahr der letzten Bestellung muß 4stellig sein.",$zurucktext);}

#---------------------------------------------------------------------------------------------------------
#Passwort überprüfen
$passtxt="";
if ($val{pass1} ne "") {
		if ($val{pass1} ne $val{pass2} )
		{	err::error_seite("Die Passwörter stimmen nicht überein oder sind nicht eingegeben worden.",$zurucktext);}

		if ($val{pass1} !~/^\S{5,8}$/)
		{	err::error_seite("Das Passwort darf nicht kürzer als 5 oder länger als 8 Zeichen sein!",$zurucktext);}
      $passtxt=" pass='$val{pass1}' , ";
      $pass=crypt($val{pass1},"xy");
}
#--------------------------------------------------------------------------------------------------------------
# VH - liste !!

@liste7=$query->param("vh");                       #Parameter einlesen
for ($x=0; $x<20 ;$x++ ) {$liste8[$x]="0";}
while (defined($num=shift @liste7)) {$liste8[$num]="1";}   # alle angeklickten auf 1 setzen
$vhtext="";
for ($x=0; $x<20 ;$x++ ) {
  $vhtext.=" ,vh$x=$liste8[$x] ";
}

$sqlel="update benutzer set vname='$val{vname}',  nname='$val{nname}', strasse='$val{strasse}', stadt='$val{stadt}', plz=$val{plz}, land=$val{land},
												email='$val{email}', tel='$val{tel}', bildung=$val{bildung}, famstand=$val{famstand}, arbeit=$val{arbeit},
												pers3=$val{pers3}, pers12=$val{pers12}, pers22=$val{pers22}, pers54=$val{pers54}, pers55=$val{pers55}, $passtxt
												provider=$val{provider}, bestjahr=$val{bestjahr} $vhtext
												where pin=$pin";

$dbh->do($sqlel) or err::error_seite("Insert failed ($sqlel)",$ende);
$but=""; $but1="Zurück";
}

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

if ($but eq "Anmelden"){$pass=crypt($pass,"xy")}
if ($but eq "Anmelden" || $but1 eq "Zurück") {
  $err=0;
  $err=!($dbpass=$dbh->selectrow_array("select pass from benutzer where pin=$pin"));
  $dbpass=crypt($dbpass,"xy");
  if ($dbpass ne $pass) {$err=1}

  if ($err==1) {
	print  $query->header,
	$query->start_html(-title=>"Prorata Login",
  		     -text=>'#000000', -bgcolor=>'#D8D5D8', -link=>'#0084FF',
		     -vlink=>'#0084FF', -alink=>'#0084FF', 
		     -background=>'' ),

    "<center><img src='$conf{picsource}/$conf{proratalogo}'><hr><br>\n",
    "<font size=6 color='#0482BD' face='$conf{stdfont}'>Überprüfen Sie bitte Ihre PIN-Nummer und Ihr Passwort !</font><hr>\n",  
   
	$query->startform("POST"),"<center><br><table>",
	$query->submit('but','Zurück'),"</center>\n",
	$query->endform,
	$query->end_html;
	$dbh->disconnect;    
	exit 0;
  }
  
  else {

#Persönliche Daten selectieren


	my @HF=("","Herr","Frau");
	 my @kdata=$dbh->selectrow_array("select * from benutzer where pin=$pin");

      $val{anrede}=shift @kdata;
	  $val{vname}= shift @kdata;
      $val{nname}= shift @kdata;
      $val{strasse}= shift @kdata;
      $val{stadt}= shift @kdata;
	  $val{plz}= shift @kdata;
      $val{land}= shift @kdata;
      $val{email}= shift @kdata;
      $val{tel}= shift @kdata;
      $val{gdat}= shift @kdata;
      $val{bildung}= shift @kdata;
	  $val{famstand}= shift @kdata;
	  $val{arbeit}= shift @kdata;
	  $val{pers3}= shift @kdata;
	  $val{pers12}= shift @kdata;
	  $val{pers22}= shift @kdata;
	  $val{pers54}= shift @kdata;
	  $val{pers55}= shift @kdata;
  for ($x=1; $x<57 ;$x++) {shift @kdata;}
      $val{provider}= shift @kdata;
	  $val{herkunft}=shift @kdata;
	  $val{vh0}=shift @kdata;
	  $val{vh1}=shift @kdata;
	  $val{vh2}=shift @kdata;
	  $val{vh3}=shift @kdata;
	  $val{vh4}=shift @kdata;
	  $val{vh5}=shift @kdata;
	  $val{vh6}=shift @kdata;
	  $val{vh7}=shift @kdata;
	  $val{vh8}=shift @kdata;
	  $val{vh9}=shift @kdata;
	  $val{vh10}=shift @kdata;
	  $val{vh11}=shift @kdata;
	  $val{vh12}=shift @kdata;
	  $val{vh13}=shift @kdata;
	  $val{vh14}=shift @kdata;
	  $val{vh15}=shift @kdata;
	  $val{vh16}=shift @kdata;
	  $val{vh17}=shift @kdata;
	  $val{vh18}=shift @kdata;
	  $val{vh19}=shift @kdata;
	  $val{bestjahr}=shift @kdata;
  
	
	print  $query->header,
	$query->start_html(-title=>"Prorata Login",
  		     -text=>'#000000', -bgcolor=>'#D8D5D8', -link=>'#0084FF',
		     -vlink=>'#0084FF', -alink=>'#0084FF', 
		     -background=>'' ),

  #  "<center><img src='$conf{picsource}/$conf{proratalogo}'><hr><br>\n",
  #  "<font size=6 color='#0482BD' face='$conf{stdfont}'>$atext<br><br>\n",
    "<div align='center'>",
    "<br>",
	"<table width='100%'><tr><td width='50%'><font size='5' face='Tahoma' color='#FF8800'><div align='left'>Aktualisierungsformular</div></font></td>",
	"<td width='50%'><font size='5' face='Tahoma' color='#FF8800'><div align='right'>",
	
	#Kontostand-Button
	############################################################################
   $query->startform("POST","konto.pl"),
	"<input type='hidden' name='pin' value='$pin'>",
	"<input type='hidden' name='pass' value='$pass'>",
	$query->submit('but','Kontostand'),"&nbsp;&nbsp;\n",
	$query->endform,
	############################################################################
	
#"<a href='http://www.prorata.de/cgi/konto.pl?but='Anmelden''>Kontostand</a>
     $query->startform("POST"),

'</div></font></td></tr></table><hr>',
 ' <table border="0" width="100%" bgcolor="#D8D8DA">',
   '<tr>',
      '<td width="8%"></td>',
      '<td width="45%" colspan="3"><font size="4" face="Tahoma" color="#0080C0"><b>Persönliche Angaben </b><br><br>'.
	  'Ihre PIN-Nummer: ',$pin,'</font><hr>',
      '</td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%" align="right"></td>',
      '<td width="28%"></td>',
      '<td width="57%"><u><b><font size="2" face="Tahoma" color="#FF8000">Felder mit </font><font',
      'face="Tahoma" size="2" color="#0080C0">***</font><font size="2" face="Tahoma"',
      'color="#FF8000"> unbedingt ausfüllen!</font></b></u></td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%" align="right"><big><strong><font color="#0080C0">***</font></strong></big> </td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Anrede&nbsp;&nbsp;&nbsp;</strong></font>',
      '</td>',
      '<td width="57%"><font face="Tahoma" color="#000000">',$HF[$val{anrede}],'</font></td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%" align="right"><big><strong><font color="#0080C0">***</font></strong></big> </td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Vorname&nbsp;&nbsp;&nbsp;</strong></font></td>',
      '<td width="57%"><font face="Tahoma" color="#000000">',$queryn->textfield("vname","$val{vname}",48,60),'</font></td>',
   '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%" align="right"><div align="right"><p><big><strong><font color="#0080C0">***</font></strong></big></td>',
      '<td width="28%"><div align="right"><p><strong><font face="Tahoma" color="#FF8000">Name&nbsp;&nbsp;&nbsp;</font></strong>',
      '</td>',
      '<td width="57%"><font face="Tahoma" color="#FF8000">',$queryn->textfield("nname","$val{nname}",48,60),'</font></td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%" align="right"><div align="right"><p><big><strong><font color="#0080C0">***</font></strong></big></td>',
     
	  '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Straße,',
      'Haus - Nr.&nbsp;&nbsp;&nbsp;&nbsp;</strong></font> </td>',
      '<td width="57%"><font face="Tahoma" color="#FF8000">',$queryn->textfield("strasse","$val{strasse}",48,60),'</font></td>',
	 '</tr>',
	 '<tr>',
     ' <td width="8%"></td>',
      '<td width="8%" align="right"><div align="right"><p><big><strong><font color="#0080C0">***</font></strong></big>',
      '</td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>PLZ&nbsp;&nbsp;&nbsp;</strong></font></td>',
      '<td width="57%"><font face="Tahoma" color="#FF8000">',$queryn->textfield("plz","$val{plz}",48,5),'</font> </td>',
    '</tr>',
   ' <tr>',
     '<td width="8%"></td>',
     '<td width="8%" align="right"><div align="right"></div></td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Ort&nbsp;&nbsp;&nbsp;&nbsp;</strong></font>',
      '</td>',
      '<td width="57%"><font face="Tahoma" color="#FF8000">',$queryn->textfield("stadt","$val{stadt}",48,60),'</font></td>',
    '</tr>',
   ' <tr>',
     ' <td width="8%"></td>',
     ' <td width="8%" align="right"><div align="right"><p><big><strong><font color="#0080C0">***</font></strong></big></td>',
     ' <td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Land&nbsp;&nbsp;&nbsp;&nbsp;</strong></font>',
     ' </td>',
      '<td width="57%">', $queryn->popup_menu('land',pdat::la(),$val{land},pdat::lah()),"</TD></TR>\n",
	  '</td>'.
    '</tr>',
    '<tr>',
     ' <td width="8%"></td>',
      '<td width="8%" align="right"><div align="right"><p><big><strong><font color="#0080C0">***</font></strong></big></td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>E-Mail&nbsp;&nbsp;&nbsp;&nbsp;</strong></font>',
      '</td>',
      '<td width="57%"><font face="Tahoma" color="#FF8000">',$queryn->textfield("email","$val{email}",48,60),'</font></td>',
    '</tr>',
    '<tr>',
      '<td width="8%">&nbsp;</td>',
      '<td width="8%" align="right">&nbsp;</td>',
      '<td width="28%">',
      '<p align="right"><font face="Tahoma" color="#FF8000"><strong>Provider&nbsp;&nbsp;&nbsp;&nbsp;</strong></font> </td>',
	  '<td width="57%">', $queryn->popup_menu('provider',pdat::pr(),$val{provider},pdat::prh()),
	'</td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%" align="right"><div align="right"><p><big><strong><font color="#0080C0">***</font></strong></big></td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Telefon',
      '- Nr.&nbsp;&nbsp;&nbsp;&nbsp;</strong></font> </td>',
      '<td width="57%"><font face="Tahoma" color="#FF8000">',$queryn->textfield("tel","$val{tel}",48,60),'</font></td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%"><div align="right"><p><big><strong><font color="#0080C0">***</font></strong></big></td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Geburtsdatum&nbsp;&nbsp;&nbsp;&nbsp;</strong></font>',
      '</td>',
      '<td width="57%"><font face="Tahoma" color="#000000">',$val{gdat},'</font></td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%"><div align="right"></div></td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Ausbildung&nbsp;&nbsp;&nbsp;&nbsp;</strong></font>',
      '</td>',
      '<td width="57%">',$queryn->popup_menu('bildung',pdat::bi(),$val{bildung},pdat::bih()),'</td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%"><div align="right"></div></td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Familienstand&nbsp;&nbsp;&nbsp;&nbsp;</strong></font>',
      '</td>',
      '<td width="57%">', $queryn->popup_menu('famstand',pdat::fs(),$val{famstand},pdat::fsh()),'</td>',
   '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="8%"><div align="right"></div></td>',
      '<td width="28%"><div align="right"><p><font face="Tahoma" color="#FF8000"><strong>Beschäftigung&nbsp;&nbsp;&nbsp;&nbsp;</strong></font>',
      '</td>',
      '<td width="57%">', $queryn->popup_menu('arbeit',pdat::bs(),$val{arbeit},pdat::bsh()),'</td>',
    '</tr>',
	'<tr></tr>',
    '<tr>',
     ' <td width="8%"></td>',
     '<td width="92%" colspan="3"><strong><font face="Tahoma" color="#FF8000">&nbsp;</font><br><font size="3" face="Tahoma" color="#0080C0"><br>',
      'Anzahl der Personen im Haushalt:</font></strong></td>',
    '</tr>',
    '<tr>',
      '<td width="8%"></td>',
      '<td width="92%" colspan="3"></td>',
    '</tr>',
  '<br></table>',
  '<table border="0" width="100%" bgcolor="#D8D8DA">',
   '<tr>',
      '<td width="20%"><div align="center"><center><p><font size="2" face="Tahoma"',
      'color="#FF8000"><strong>0-3 Jahren</strong></font></td>',
     '<td width="20%" align="center"><div align="center"><center><p><font size="2" face="Tahoma"',
      'color="#FF8000"><strong>4-12 Jahren</strong></font></td>',
      '<td width="20%" align="center"><div align="center"><center><p><font size="2" face="Tahoma"',
      'color="#FF8000"><strong>13-22 Jahren</strong></font></td>',
      '<td width="20%" align="center"><div align="center"><center><p><font size="2" face="Tahoma"',
      'color="#FF8000"><strong>23-54 Jahren</strong></font></td>',
      '<td width="20%" align="center"><div align="center"><center><p><font size="2" face="Tahoma"',
      'color="#FF8000"><strong>ab 55 Jahren</strong></font></td>',
    '</tr>',
    '<tr>',
      '<td width="20%"><div align="center"><center><p><font face="Tahoma" color="#FF8000">',
	  "<input type='text' name='pers3' value='$val{pers3}' size=5 maxlength=4)></font></td>",
      '<td width="20%" align="center"><div align="center"><center><p><font face="Tahoma" color="#FF8000">',
	   "<input type='text' name='pers12' value='$val{pers12}' size=5 maxlength=4)></font></td>",
      '<td width="20%" align="center"><div align="center"><center><p><font face="Tahoma" color="#FF8000">',
	  "<input type='text' name='pers22' value='$val{pers22}' size=5 maxlength=4)></font></td>",
      '<td width="20%" align="center"><div align="center"><center><p><font face="Tahoma" color="#FF8000">',
	   "<input type='text' name='pers54' value='$val{pers54}' size=5 maxlength=4)></font></td>",
      '<td width="20%" align="center"><div align="center"><center><p><font face="Tahoma" color="#FF8000">',
	  "<input type='text' name='pers55' value='$val{pers55}' size=5 maxlength=4)></font></td>",	  
   '</tr>',
   '<tr></tr>',
  '</table>',
    "</center>",
	"</div><br><hr><br>";


#----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
#Ausgewählte Produktkategorien auflisten
my @liste6=();				
foreach  $key (keys %val) {


		$sql="select * from benutzer where pin=$pin";
		$sth=$dbh->prepare($sql) or {err::error_seite("Tabelle Benutzer konnte nicht geöffnet werden!",$ende)};
		$sth->execute;

		$liste=$sth->fetchrow_hashref;
        $sth->finish;

        while(($key,$item) = each %$liste) {

			if ((($num)=$key=~/^PK(\d+)$/i) && ($item == "1")) {
				$teil=$dbh->selectrow_array("select krit from krit where nr=$num");
				if ($num < 25) {unshift (@liste4,$teil)}
						   else {unshift (@liste5,$teil)}
						  
            }
#------------------------------------------------------------------------------------------

				if  ( (($num)=$key=~/^vh(\d+)$/i) && ($item == "1") ) {
				    $liste6[$num]="checked";
				}

#-------------------------------------------------------------------------------------------
        }


	if (@liste5[0] eq "" && @liste4[0] eq "") {
		print "<br><br>Sie haben keine Kategorien und Hobbies ausgesucht !";
	}

	if (@liste4[0] ne "") {
 		print "<b><center><font face='Tahoma' color='#FF8000'>Von Ihnen ausgesuchte Produktkategorien</b><br><br>",
		"<Table border=1><TR><TD><font color='#000000'>";
		while  (@liste4) {     # 4 Kriterien in eine Reihe, dann nächste Reihe
				@liste3=();
			for ($x=0;$x<4 ; $x++) {unshift (@liste3, shift @liste4)}
		    print join("</TD><TD>", @liste3), "</TD></TR><TR><TD>";
		}
	    print "</TD></TR></table>\n";
	}
	
 	if (@liste5[0] ne "") {
	 	print "<br><br><b>Von Ihnen angegebene Hobbies</b><br><br>",
		"<Table border=1><TR><TD><font color='#000000'>";
		while  (@liste5) {     # 4 Kriterien in eine Reihe, dann nächste Reihe
				@liste3=();
			for ($x=0;$x<4 ; $x++) {unshift (@liste3, shift @liste5)}
			print join("</TD><TD>", @liste3), "</TD></TR><TR><TD>";
		}
		print "</TD></TR></font></font></table><br><hr>\n";
	}
#--------------------------------------------------------------------------------------------
 print '<TABLE>',
   '<tr>',
      '<td width="8%" height="21">&nbsp;</td>',
      '<td width="92%" colspan="4" height="21">',
        '<p align="center"><font face="Tahoma" color="#0080C0"><strong><big>Bei',
        ' welchen der unten aufgeführten Versandhäusern haben Sie mindestens ',
        'einmal bestellt? Mehrfachnennungen sind möglich!&nbsp;&nbsp;</big></strong></font></td>',
    '</tr>',
    '<tr>',
      '<td width="8%" height="21">&nbsp;</td>',
      '<td width="92%" colspan="4" height="21">&nbsp;</td>',
    '</tr>',
    '<tr>',
      '<td width="8%" height="21">&nbsp;</td>',
      '<td width="92%" colspan="4" height="21"><table border="1" width="100%">',
        '<tr>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='0' $liste6[0]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Ich',
            'habe noch nie per Katalog bestellt</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='7' $liste6[7]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Chic</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='14' $liste6[14]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Hach</small></strong></font></td>',
        '</tr>',
        '<tr>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='1' $liste6[1]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Neckermann</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='8' $liste6[8]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>bon',
            'prix</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='15' $liste6[15]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Viking</small></strong></font></td>',
        '</tr>',
        '<tr>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='2' $liste6[2]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Quelle</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000">',
		  "<input type='checkbox' name='vh' value='9' $liste6[9]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Oppermann</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000"><input type="checkbox" name="vh" value="16" ', " $liste6[16]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>hessnatur</small></strong></font></td>',
        '</tr>',
        '<tr>',
          '<td width="7%" align="center"><font color="#000000"><input type="checkbox" name="vh" value="3" '," $liste6[3]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Otto</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000"><input type="checkbox" name="vh" value="10" '," $liste6[10]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Bader</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000"><input type="checkbox" name="vh" value="17" '," $liste6[17]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Spezialisierte',
          '  Versandhäuser</small></strong></font></td>',
        '</tr>',
        '<tr>',
         ' <td width="7%" align="center"><font color="#000000">',
		 ' <input type="checkbox" name="vh" value="4" '," $liste6[4]>",
		 ' </font></td>',
         ' <td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Schwab</small></strong></font></td>',
         ' <td width="7%" align="center"><font color="#000000">',
		 ' <input type="checkbox" name="vh" value="11" '," $liste6[11]>",
		 ' </font></td>',
         ' <td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Walz</small></strong></font></td>',
         ' <td width="7%" align="center"><font color="#000000">',
		 ' <input type="checkbox" name="vh"  value="18" ',"$liste6[18]>",
		 ' </font></td>',
         '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Online',
         '   Versandhäuser</small></strong></font></td>',
        '</tr>',
        '<tr>',
        '<td width="7%" align="center"><font color="#000000">',
		'<input type="checkbox" name="vh" value="5" ',"$liste6[5]>",
		'</font></td>',
        '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Bauer</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000">',
		 '<input type="checkbox" name="vh" value="12" ',"$liste6[12]>",
		 '</font></td>',
         '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>B</small><small>eate',
         ' Uhse</small></strong></font></td>',
         '<td width="7%" align="center"><font color="#000000">',
		 '<input type="checkbox" name="vh" value="19" '," $liste6[19]>",
		 '</font></td>',
         '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>andere</small></strong></font></td>',
        '</tr>',
        '<tr>',
          '<td width="7%" align="center"><font color="#000000">',
		  '<input type="checkbox" name="vh" value="6" '," $liste6[6]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Heine</small></strong></font></td>',
          '<td width="7%" align="center"><font color="#000000"><input type="checkbox" name="vh" value="13" '," $liste6[13]>",
		  '</font></td>',
          '<td width="27%"><font face="Tahoma" color="#FF8000"><strong><small>Schneider</small></strong></font></td>',
          '<td width="7%" align="center">&nbsp;</td>',
          '<td width="27%">&nbsp;</td>',
        '</tr>',
		'<tr>',
      '<td width="8%" height="21">&nbsp;</td>',
  '</center>',
     ' <td width="92%" colspan="6" height="21">',
       '<p align="center"><font face="Tahoma" color="#0080C0"><strong><big>In',
       ' welchem Jahr war Ihre letzte Bestellung?&nbsp;&nbsp; </big></strong></font><font face="Tahoma"',
      'color="#FF8000">',$queryn->textfield("bestjahr","$val{bestjahr}",4,4),
	  '</font><font face="Tahoma" color="#0080C0" size="2"><strong>(bitte',
      '  nur vierstellige Jahreszahl eintragen)</strong></font></td>',
    '</tr>',
      '</table></table>';
	  #------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
	 #Passwort ändern

	print '<br><hr>',
	'<table><tr align="center">',
      '<td width="8%" height="47"></td>',
      '<td width="92%" colspan="4" height="47"><div align="center"><center><p>',
	  '<font face="Tahoma" color="#FF8000"><strong>Falls Sie Ihr Passwort ändern möchten, geben Sie ins linke Feld das neue ',
      'Passwort ein, und bestätigen Sie es mit erneuter Eingabe ins rechte Feld!</strong></font>',
      '</font></td>',
    '</tr>',
    '<tr align="center">',
      '<td width="8%" height="21"></td>',
      '<td width="23%" height="21"></td>',
      '<td width="23%" height="21"></td>',
      '<td width="23%" height="21"></td>',
      '<td width="23%" height="21"></td>',
    '</tr>',
    '<tr align="center">',
      '<td width="8%" height="44"></td>',
      '<td width="23%" height="44"><div align="center"><center><p><strong><font face="Tahoma"',
      'color="#FF8000">Passwort</font></strong> <br>',
      '<strong><font face="Tahoma" color="#FF8000">eingeben:</font></strong> </td>',
      '<td width="23%" height="44" align="center">',
	 '<input type="password" name="pass1" size="15"></td>',
      '<td width="23%" height="44" align="center"><div align="center"><center><p><strong>',
      '<font face="Tahoma" color="#FF8000">Passwort</font></strong> <br>',
      '<strong><font face="Tahoma" color="#FF8000">bestätigen:</font></strong> </td>',
      '<td width="23%" height="44" align="center">',
	  '<input type="password" name="pass2" size="15"> </td>',
    '</tr></table>';
	#---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
	
	#print $sqlel;
	
	#-----------------------------------------------------------------------------------------------
	print "<br><hr><br>",
	"<input type='hidden' name='pin' value='$pin'>",
	"<input type='hidden' name='pass' value='$pass'>",
	$query->submit('but','Übernehmen'),"&nbsp;&nbsp;\n",
	$query->submit('but2','Ende'),"</font></center></form>\n",
	$query->endform,
	$query->end_html;
	$dbh->disconnect;    
	exit;

	}
 }
}