U
user99
can't get this script to work. running mysql server on
windows 2000 and i granted all to ''@'localhost'.
any ideas?
#!\perl\bin\perl
use CGI qw(param);
use DBI;
my $action = param("Action");
my $select = param("select");
if ($action eq "Results") {
my $dbh = DBI->connect('DBI:mysql:database01:localhost','','');
if ( not $dbh ) {
$h = "<H1>Bad connect";
} else {
$h = "<H1>Success";
my $sth = $dbh->prepare("select * from votes where name = 'test'");
$sth->execute();
$dbh->disconnect;
}
&printHtml;
windows 2000 and i granted all to ''@'localhost'.
any ideas?
#!\perl\bin\perl
use CGI qw(param);
use DBI;
my $action = param("Action");
my $select = param("select");
if ($action eq "Results") {
my $dbh = DBI->connect('DBI:mysql:database01:localhost','','');
if ( not $dbh ) {
$h = "<H1>Bad connect";
} else {
$h = "<H1>Success";
my $sth = $dbh->prepare("select * from votes where name = 'test'");
$sth->execute();
$dbh->disconnect;
}
&printHtml;