<%perl> my $sth=$dbh->prepare("SELECT islandid,archipelago,islandname FROM islands ORDER BY archipelago,islandname;"); $sth->execute(); % my $row; % while ($row=$sth->fetchrow_hashref) { <% $row->{'archipelago'} |h %> - <% $row->{'islandname'} |h %> % }

<%init> use CommodsWeb; db_setocean('Cerulean'); db_connect();