my $DSN = 'server=sqlsrv;database=\"smdb\"';
#my $DSN = 'server=sqlsrv';
#my $DSN = 'database=smdb;server=sqlsrv

$db_handle = DBI->connect("dbi:Sybase:$DSN", $DB_User{'username'},
                                $DB_User{'password'},
                                { RaiseError => 0,
                                  PrintError => 1,
                                  AutoCommit => 0,
                                  syb_quoted_identifier => 1,
                                  syb_rowcount => ( $input{rowcount} ) ? $input{rowcount} : 0 } ) or warn "$DBI::errstr";

$db_handle -> do ( "set TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;" );
$db_handle -> do ( "set quoted_identifier on;" );
$db_handle -> do ( " use \"smdb\";" );


$trans_handle -> $dh_handle -> prepare ( $sql );
if ( $trans_handle -> execute )
{
   while ( @row = $trans_handle -> fetchrow )
   {
     print "<TR><TD>",join("</TD><TD>",@row), "</TD></TR>\n";
   }
}