U:\2004_2005\Development\Perl_development\20_October_2004>perl 20_October_2004_E.pl
DBD::ODBC::st execute failed: [Microsoft][ODBC SQL Server Driver]Invalid cursor
state (SQL-24000)(DBD: dbd_describe/SQLNumResultCols err=-1) at 20_October_2004_E.pl line 290.
Couldn't execute query: [Microsoft][ODBC SQL Server Driver]Invalid cursor state
(SQL-24000)(DBD: dbd_describe/SQLNumResultCols err=-1) at 20_October_2004_E.pl line 290.


##</code><code>##

#! perl -w scipt


use strict;
use warnings;
use DBI;

use DBD::ODBC;


my ($data_source, $database, $user_id, $password) = qw( <ip address> Series_requests ********* ********* ); 
my $conn_string = "driver={SQL Server}; Server=$data_source; Database=$database; Trusted_Connection=yes"; 

my $dbh = DBI->connect( "DBI:ODBC:$conn_string" ) or die $DBI::errstr;


##</code><code>##

  my $sthB_A =  $dbh->prepare("$Query_A") or die "Couldn't prepare query: ".$dbh->errstr;
  
  $sthB_A->execute() or die "Couldn't execute query: ".$sthB_A->errstr;