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

#! c:/perl/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');

print "-------------[ ODBC DSNs ]-------------<br />\n";
my @dsn = DBI->data_sources("ODBC");
foreach my $dsn (@dsn) {
  print "DSN: $dsn\n";
}
print "<br />\n";