iis dbi

**John Giblin** · Jul 19 '05, 04:36 AM

Hi,

I am making a simple program that connects to Oracle and then display the
results. When I exec the program via command like, there does not seem to
be a problem. When I do it through a browser I do not get any print commands
past the connection

here is what I have:
use strict;
use DBI;

my ($dbh, $sth, @row);
my %attr = (
PrintError => 0,
RaiseError => 0,
);
$ENV{"ORACLE_HO ME"}="F:/oracle/ora92";

print "Content-type:text/html\n\n";
print <<HEADER;
<HTML>
<HEAD>
<TITLE>A Test Page</TITLE>
</HEAD>
<BODY BGCOLOR ="#FFFFFF" TEXT="#000000">

HEADER

print "Connecting to DB.. \n";
$dbh = DBI->connect( 'dbi:Oracle:Mys id','SYSTEM','p awel', \%attr)
or die "Can't connect to database: $DBI::errstr\n" ;
print "Connected \ n";
print "Create sql statement \n ";

$sth = $dbh->prepare( "SELECT * FROM Scott.dept" )
or die "Can't prepare SQL statement: $DBI::errstr\n" ;

print "Exec sql statement \n ";

$sth->execute
or die "Can't execute SQL statement: $DBI::errstr\n" ;

### Retrieve the returned rows of data
while ( my @row = $sth->fetchrow_array () ) {
print "Row: @row\n";
}

warn "Data fetching terminated early by error: $DBI::errstr\n"
if $DBI::err;

$dbh->disconnect() ;

Results in a browser:
Connecting to DB..