$resultSet->Execute() or die "resultset error\n" ;

my @all_rows ;
push @all_rows, {
  Environment   => $resultSet->GetColumnValue(1),
  Release       => $resultSet->GetColumnValue(2),
  Project       => $resultSet->GetColumnValue(3),
  VLS_Name      => $resultSet->GetColumnValue(4),
  AppServerName => $resultSet->GetColumnValue(5),
  State         => $resultSet->GetColumnValue(6),
  URL           => $resultSet->GetColumnValue(7),
} while ($resultSet->MoveNext() == $CQPerlExt::CQ_SUCCESS) ;

print row2html($_) foreach (@all_rows) ;

# debug
# use Data::Dumper ;
# print "debug:\n", Dumper($_), "\n" foreach (@all_rows) ;

sub row2html {
  my $row = shift ;
  return "

       <table border='1' cellpadding='8' bgcolor='#CCD6F5'>
       <tr>
       <td><input type='checkbox' value='$row->{VLSName}'/></td>
       <td>$row->{Release}</td>
       <td>$row->{Environment}</td>
       <td width='160'>$row->{Project}</td>
       <td width='430'><a href='$row->{URL}'>$row->{URL}</a></td>
       </tr>
       </table>
       
  " ;
}