|
#!c:/perl/bin
use DBI;
$dbhandle = DBI->connect("dbi:ODBC:address");
$sqlstatement="SELECT firstname, lastname FROM employee";
print "Content-type: text/html \n\n";
$statementhandle = $dbhandle->prepare($sqlstatement);
$statementhandle->execute || die "<br><br>Could not execute SQL statement ... <br>";
print "<br>Executed ...<br><br>";
while (@row=$statementhandle->fetchrow_array)
{
print "@row <br>";
}
$dbhandle->disconnect();
$statementhandle->finish();
|