#! c:/perl/bin/perl -w


use CGI qw(:standard);
use strict;
use CGI::Carp qw/fatalsToBrowser/;

use DBI;

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time);

$mon++;
$year += 1900;

my $dbh = DBI->connect('DBI:ODBC:db1') or die "Fehler beim Connect:",$DBI::errstr;

my $sqlstatement = "SELECT Tabelle1.Kundennummer, Tabelle2.Rechnungsbetrag FROM Adressen INNER JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer WHERE Tabelle1.Kundennummer =?";

my $sth = $dbh->prepare($sqlstatement) or die $DBI::errstr;
$sth->execute (param('Kundennummer')) or die $dbh->errstr;

print header(-type => 'text/html'), start_html(-title => 'Auswahl');
#print header(-type => 'text/html'), kundensuche(-title => 'Auswahl');

print h3('Ergebnis'), hr();

my @row = ();
my $i = 1;
print '<table>';
while (@row=$sth->fetchrow_array()){
    print '<tr>';
    print '<td>',$_,'</td>' for(@row);
    print '</tr>';

    my $rechnung = 'd:\\SGD\\Apache2\\htdocs\\rechnung'.$i.'.txt';
	open(DATEI,">$rechnung") or print $!;


print DATEI "Rechnungsnummer:\t\RE4711\t\vom: $mday\.$mon\.$year\n\n\n";
print DATEI "Kundennummer: $row[0]\n\n";
print DATEI $row[3],"\n\n";
print DATEI $row[2],"\n\n";
print DATEI $row[1],"\n\n";
print DATEI "Telefonnummer: $row[4] \n\n\n\n\n";
#print DATEI $row[2]," ",$row[3],"\n" x 7;
print DATEI "-" x 34 ,"\n";
print DATEI "Rechnungsbetrag:\t","\n
print DATEI "-" x 34 ,"\n\n";
print DATEI "Mit freundlichen Grüßen\nIhre Webfirma";
close DATEI;
$i++;
}
print '</table>';

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