Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- my ($dbh,$dsn,$db,$user,$password);
- $user='tom';
- $password='password';
- $db='bible';
- @$dsn = "DBI:mysql:$db";
- @$dbh = DBI->connect($dsn, $user, $password) or die $DBI::errstr;
- ##-----------------------------------
- #########################
- # debug #
- #########################
- if($debug)
- {
- }
- #########################
- # Generate Magic Header #
- #########################
- $cgi_object=new CGI;
- print $cgi_object->header('text/html');
- ##-------------------------------------------
- my (%bible,$sth,$dbh,$bible,$form_bible,@row);
- $form_bible=$cgi_object->param("form_bible");
- %bible=(
- ALL=>"SELECT * FROM kjv",
- OT=>"SELECT * FROM kjv where bsect='O'",
- NT=>"SELECT * FROM kjv where bsect='N'");
- @$sth = $dbh->prepare("select * from kjv");
- $sth->execute();
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement