#!/usr/bin/perl -w use CGI; use DBI; my $CGI = CGI->new(); my $host = "localhost"; my $usr = "root"; my $pwd = ""; my $dbname = "tbluser"; my $DBH = DBI->connect("DBI:mysql:$dbname:$host", $usr, $pwd, { AutoCommit => 0, RaiseError => 1, }) or die $DBI::errstr; my $product_n = $CGI->param("productname"); my $product_t = $CGI->param("producttype"); my $price = $CGI->param("select"); my $CHECK = $DBH->prepare("SELECT SND.SELLER_ID, SND.SELLER_NAME, SND.SELLER_COUNTRY, M.PRODUCT_ID, M.PRODUCT_NAME, M.PRODUCT_TYPE FROM PRODUCT_TABLE as M JOIN SELLERS_TABLE as SND ON SND.SELLER_ID = M.SELLER_ID WHERE M.PRODUCT_NAME LIKE ? OR PRODUCT_TYPE LIKE ?"); $CHECK->execute('%'.$product_n.'%', '%'.$product_t.'%'); $RESLUTS = $CHECK->fetchall_arrayref(); $DBH->disconnect || die "$DBI::errstr\n"; print "Content-type: text/html\n\n"; print < HTML