3 messages in com.mysql.lists.mysqlRe: Perl DBI Question| From | Sent On | Attachments |
|---|---|---|
| TD - Sales Int' Holland | 13 Oct 1999 01:34 | |
| lu...@wxs.nl | 13 Oct 1999 03:08 | |
| felix k sheng | 13 Oct 1999 06:35 |
| Subject: | Re: Perl DBI Question |
|---|---|
| From: | lu...@wxs.nl (lu...@wxs.nl) |
| Date: | 10/13/1999 03:08:00 AM |
| List: | com.mysql.lists.mysql |
<cut> Can be very easy done ...
$sth->execute or die "Cannot execute statement: $DBI::errstr\n";
remove this part ...
print "<CENTER><TABLE BORDER=\"2\" CELLPADDING=\"1\" CELLSPACING=\"2\" WIDTH=\"570\" BORDERCOLOR=\"#FF0000\">\n"; print "<TR><TH ALIGN=\"CENTER\" WIDTH=\"100%\" COLSPAN=\"4\" BGCOLOR=\"#FFFFAA\">$Section</TH></TR>\n";
end remove ...
while (@ary = $sth->fetchrow_array()) {
input : if ($tmp == 0) { print "<CENTER><TABLE BORDER=\"2\" CELLPADDING=\"1\" CELLSPACING=\"2\" WIDTH=\"570\" BORDERCOLOR=\"#FF0000\">\n"; print "<TR><TH ALIGN=\"CENTER\" WIDTH=\"100%\" COLSPAN=\"4\" BGCOLOR=\"#FFFFAA\">$Section</TH></TR>\n"; $tmp = 1; } end input ....
print "<TR><TD ALIGN=\"CENTER\" WIDTH=\"50\">$ary[0]</TD><TD ALIGN=\"CENTER\" WIDTH=\"50\"><INPUT TYPE=\"TEXT\" MAXLENGTH=\"3\" SIZE=\"3\" VALUE=\"\" NAME=\"$ary[0]\"><TD ALIGN=\"LEFT\" WIDTH=\"400\">$ary[2]</TD><TD ALIGN=\"RIGHT\" WIDTH=\"70\">$ary[3]</TD></TR>\n"; }
change to below:
if ($tmp) { print "</TABLE></CENTER>\n"; print "<BR><BR>\n"; } }
hope this is helping you a bit .... Greetz...
Luuk