#d:/perl/bin/perl -w use strict; use CGI qw(standard); use DBI; my $dbh = DBI->connect('DBI:ODBC:db1'); my $sqlstatement=qq§SELECT * FROM table1 INNER JOIN table2 ON table1.kundennummer = table2.kundennummer WHERE kundennummer = 'VomUserEingegebeneKundennummer' my $sth = $dbh->prepare($sqlstatement); $sth->execute \\ die "Could not execute SQL statement ... maybe invalid?"; print< Antwort

Treffer:

HERE_TEXT my @ row; while [row=$sth->fetchow_array) {print "

@row

\n"} print qq§§