set TRANSACTION ISOLATION LEVEL READ UNCOMMITTED;
set quoted_identifier on use "smdb";
SELECT "_SMDBA_"."_TELMASTE_".SEQUENCE AS "Problem #",
"_SMDBA_"."_CUSTOMER_".FNAME + ' ' + "_SMDBA_"."_CUSTOMER_".NAME AS "Name",
"_SMDBA_"."_CUSTOMER_".EXT AS "Cl. Ext",
"_SMDBA_"."_TELMASTE_"."DESCRIPTION" AS "Problem Description",
"_SMDBA_"."_TELMASTE_"."DATE OPEN" AS "Opened",
"_SMDBA_"."_PERSONNEL_".CODE AS "Assigned To"
FROM "_SMDBA_"."_CUSTOMER_","_SMDBA_"."_TELMASTE_","_SMDBA_"."_PERSONNEL_"
WHERE "_SMDBA_"."_TELMASTE_"."SENT TO" = "_SMDBA_"."_PERSONNEL_".SEQUENCE AND 
"_SMDBA_"."_TELMASTE_".CLIENT = "_SMDBA_"."_CUSTOMER_".SEQUENCE AND 
"_SMDBA_"."_PERSONNEL_".CODE LIKE 'MUSER' AND 
"_SMDBA_"."_TELMASTE_".STATUS = 'O'
ORDER BY "Problem #";

##</code><code>##

 
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";
   }
}

##</code><code>##

$db_handle -> execute or die "$DBI::errstr"
##</code><code>##

$db_handle -> prepare("select \@\@servername");