eval{
          
            my $dbh = DBI->connect($connectionInfo,$userid,$passwd,{RaiseError => 1});
            my $sth = $dbh->prepare($query);

            $sth->execute();


            @dsetcols=[];
            $xi=0;
            @fieldnames = split(/,/, $fnames);
            foreach $fieldname (@fieldnames) {
              $ds{$dsetname}{$fieldname}=[];
              push @dsetcols,"";
              $sth->bind_col($xi+1,\$dsetcols[$xi]);
       
              $xi++;
            }
            
            while($sth->fetch()) {
              $xi=0;
              foreach $fieldname (@fieldnames) {

                push @{$ds{$dsetname}{$fieldname}},safedecode($dsetcols[$xi]);

                $xi++;
              }
            }
            
            push @{$ds{rowcount}{$dsetname}},$sth->rows();
            
            $sth->finish();
            

            $dbh->disconnect; 
            
            print "$query <p>";

          };
          
          if($@){
            print "<a href=\"";
            print $ENV{'HTTP_REFERER'};
            print "\">Back</a><p>";
            print "<p>";
            print "<b>Query</b> <i>\"";	
            print $query;
            print "\" </i> <b>failed.</b><p>";
            print "<b>Database Error Message: </b><i>\"";
            print $@;
            print "\"</i><p>";
            $badquery = 1;
          }
        }
        $x++;
      }