# ==========
my ( $hDB, $hStatement );
my ( $sDBId, $sDBStatus );
$hDB = &MyPackage::_OracleConnect(  );
$hStatement = $hDB->prepare("
	SELECT id, status
	FROM certificates
	WHERE url = ?
");
( $sDBId, $sDBStatus ) = $hStatement->execute( $p_sURL );
$hStatement->finish;
$hDB->disconnect;
# ==========

print "Content-type: text/html\n\n";
print "p_sURL: #$p_sURL#<br>";
print "sDBId: #$sDBId#<br>";
print "sDBStatus: #$sDBStatus#<br>";

##</code><code>##

p_sURL: #sdsdfsfsdfsf#
sDBId: #0E0#
sDBStatus: ##

##</code><code>##

        ID     STATUS
---------- ----------
         6          0