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