3 <TITLE>test pirate page</TITLE>
7 <html><head><title>Best commod offer</title></head><body>
10 "SELECT a.commodname,b.price,b.qty,d.stallname,e.islandname
12 JOIN buy as b on a.commodid=b.commodid
13 JOIN stalls as d on d.stallid=b.stallid
14 JOIN islands as e on e.islandid=d.islandid
16 HAVING b.price=MAX(b.price)
21 <table frame=box rules=all>
22 <tr><td>commod</td><td>price</td><td>qty</td><td>Stall</td><td>island</td></tr>
24 % while (@row=$sth->fetchrow_array) {
26 % foreach my $cell (@row) {
40 my $dbh= dbw_connect('Midnight');