<% @LANGUAGE=PerlScript %><% #require('wiz3.pl'); #$rs = sql("select state,branch from mgr where branch > '0100' and branch < '7000' order by branch"); #while ($rs && !$rs->EOF) { # $st = $rs->Fields(0)->{Value}; # $br = $rs->Fields(1)->{Value}; # push(@list, "