Hi, I have a working DBI::Oracle script that I am now trying to get CGI.pm to HTML-ize the output of, My problem is in the table statement how can I get the output of the while statement to be in the table? I have just about beat myself silly trying to figure this out.
SCRIPT: #!/usr/bin/perl # use strict; use DBI; use CGI qw(:standard escapeHTML); # # Set some environment variables # $ENV{ORACLE_HOME} = '/opt/oracle/9i'; my ($count, $dbh, $host, $pass, $port, $r_au, $sql, $sid, $sth, $user, @row); # # my declarations # $host = 'host=HOSTNAME'; $pass = 'PASSWORD'; $port = 'port=PORT'; $sid = 'sid=SID'; $user = 'USER'; $dbh = DBI->connect("dbi:Oracle:$host;$sid;$port", $user, $pass, { RaiseError => 1, AutoCommit => 0} ) || die "Database connection not made: $DBI::errstr"; $sql = qq{ select r.au_number, count(distinct r.subj_id) from t_request r, t_certificate c where r.req_status_id=9 and (r.req_id=c.req_id) and c.cert_status_id=1 group by au_number }; $sth = $dbh->prepare($sql); $sth->execute(); $sth->bind_columns(undef, \$r_au, \$count); print header(), start_html("BEST CertMan results"); print h1("Results"), table({-border=>'1', -width=>'20%'}, Tr({-align=>'LEFT', -VALIGN=>'TOP'}, th({-width=>'30%', -bgcolor=>'#CCCCCC'}, "AU"), th({-bgcolor=>'#AAAAAA', -fontcolor=>'#FFFFFF'}, "Certs"), ), while (@row = $sth->fetchrow_array()) { Tr( td( [EMAIL PROTECTED] )); } ); $sth->finish(); # Disconnect from Oracle $dbh->disconnect; print "<a href=\"../\">Return</a>\n"; print end_html(); -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>