1 <html><head><title>Select island</title></head><body>
2 <form action="/ucgi/~clareb/mason/something" method="get">
3 <select name="islandid">
5 my $sth=$dbh->prepare("SELECT islandid,archipelago,islandname
7 ORDER BY archipelago,islandname;");
11 % while ($row=$sth->fetchrow_hashref) {
12 <option value="<% $row->{'islandid'} |h %>"><% $row->{'archipelago'} |h %> -
13 <% $row->{'islandname'} |h %>
15 <input type=submit name=submit value="Go">
20 db_setocean('Cerulean');