} elsif ($Product) { sql(); $port = $Product; $Field = 'Product'; ProcessSQL(); . . . sub sql { $SQLCommand = <

"; my $sth = $dbh->prepare("$SQLCommand") or err_trap("Cannot prepare the load_category_names query"); $sth->execute($Client,$Product,$Issue,$Cause,$SupportDetails,$Date) or err_trap("Cannot execute the SQL query to SQL COMMAND"); $i=1; while (($Client,$Product,$Issue,$Cause,$Date,$filler,$Call) = $sth->fetchrow_array) { print "

Edit	Reg. No.	Product	Issue	Cause	Date	Case
"; print (""); print "	$Client	$Product	$Issue