Thnks Philote for the link, but it didn't help.
I'm using Oracle 9i database along with Perl CGI ver 5.6 on an apache server. Its giving an internal server error while executing the script.
I have copied the script below. Please tell me if I written the correct code or is there a mistake. If so please revert.
============================
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use CGI;
use DBI;
$query = new CGI;
print "<html><head></head>\n";
print<<"heading";
<body>
<table border=0 align=center>
heading
$sDataBaseSetName = 'DBI:Oracle:host=192.168.10.89; sid=dems; port=1521';
$sDataBaseName = 'dems';
$sUserName = 'demsuser';
$sUserPassword = 'demsuser';
$sDataBaseHandler = DBI->connect ( $sDataBaseSetName, 'demsuser', 'demsuser' ) ;
$qEquipmentDetailsSQL = "select per_person_no,per_login_id from dis.t_person_mst where rownum <= 15 " ;
$sDataBaseStringHandler = $sDataBaseHandler->prepare ( $qEquipmentDetailsSQL ) ;
print($qEquipmentDetailsSQL);
$sDataBaseStringHandler->execute ;
while ( @aEqpt = $sDataBaseStringHandler->fetchrow_array ) {
$person_no = $aEqpt[0];
$login_id = $aEqpt[1];
print"<tr><td>Person ---- $person_no</td><td> Login ----- $login_id</td></tr>\n";
}
print("</table></body></html>");
============================================
Thnks
Raj