Select Code to Download

$DSN = 'dbi:ODBC:driver=Microsoft Access Driver (*.mdb);dbq='.$Databas
+e;
$DBH = DBI->connect($DSN, undef, undef) 
       || ExitProg(ERR->{odbc},'['.$DBI::errstr.' - '.$DBI::err.']');
$DBH->{LongReadLen}=2048;

$DSN = 'dbi:ODBC:driver={SQL Server};server={'.$Server.'};database={'.
+$Database.'}';
$DBH = DBI->connect($DSN, undef, undef) 
       || ExitProg(ERR->{odbc},'['.$DBI::errstr.' - '.$DBI::err.']');