#!/ap5/bin/perl
use Win32::ODBC;
$dsn = "ProductionConnect";
if ($db = new Win32::ODBC($dsn)) {
$sql = "select campcd, campdesc from crcampcd where campcd = 'AC'";
$db->Sql($sql);
print "Content-type: text/html\n\n";
print "\n";
print "DB Test\n";
print "\n";
print "Connection Successful...\n\n";
while ($db->FetchRow()) {
($code, $descr) = $db->Data("campcd", "campdesc");
print "$code\n";
print "$descr\n";
print "\n";
print "\n";
}}
else {
#($ErrNum, $ErrText, $ErrConn) = $db->Error();
print "Content-type: text/html\n\n";
print "\n";
print "DB Test\n";
print "\n";
print Win32::ODBC::Error();
#print "Connection Failed...\n\n";
#print "$ErrNum\n";
#print "$ErrText\n";
#print "$ErrConn\n";
print "\n";
print "\n";
}
$db->Close();
exit(0);
####
DB Test
Run Test