Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w

...
print <<EOF;
</select>
EOF
  2. or download this
    my @market712  = $market_sth->fetchrow_array;
while (my $market = $market_sth->fetchrow_array) {
   print "<option value=\"$market\">$market</option>" ;
}
  3. or download this
    # my @market712  = $market_sth->fetchrow_array;
while (my $market = $market_sth->fetchrow_array) {
   print "<option value=\"$market\">$market</option>" ;
}