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

use strict;
use CGI qw(:standard);
use DBI;

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

my $sqlstatement = "SELECT Tabelle1.Adresse, Name, Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 INNER JOIN Tabelle2 ON Tabelle1.Kundennummer = Tabelle2.Kundennummer";

my $sth = $dbh->prepare($sqlstatement) or die "Fehler beim prepare",$DBI::errstr;
$sth->execute or die "Could not execute SQL statement...maybe invalid?";

print header(-type => 'text/html'), start_html(-title => 'Antwort');
print h3('Treffer'), hr();

my @row = ();
my $i = 1;
print '<table>';
while (@row=$sth->fetchrow_array()){
  print '<tr>';
  print '<td>',$_,'</td>' for(@row);
  print '</tr>';
  my $rechnung = 'c:\rechnung'.$i.'.txt';
  open(DATEI,">$rechnung") or print $!;
  print DATEI "Rechnungsnummer:\t125\n";
  print DATEI $row[1],"\n";
  print DATEI $row[0],"\n\n\n";
  print DATEI "-" x 20;
  print DATEI "Rechnungsbetrag:\t",$row[3],"\n";
  print DATEI "Mit freundlichen Grüßen\nsonnenprinz";
  close DATEI;
  $i++;
}
print '</table>';

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