2
hi everyone ,i hav this problm that this code doesn't insert data into the database. It says that active perl not installed or some error in the code .plz help me out .Its urgent.
#!c:\perl\bin\perl.exe
use CGI;
use Win32::ODBC;
my $cgi = new CGI();
my $DOC_NAME=$cgi->param('nam');
my $COUNTRY=$cgi->param('coun');
my $SPECIALIZATION=$cgi->param('spz');
my $REGNUM=$cgi->param('rgrno');
my $UNAME=$cgi->param('unam');
my $PASSWORD=$cgi->param('pasw');
print "<html><body bgcolor=pink><h1></h1></body></html>";
if($db = new Win32::ODBC("DSN=db;UID=scott;PWD=tiger"))
{
$db->sql("Insert into DOCTOR values('$DOC_NAME','$COUNTRY','$SPECIALIZATION','R EGNUM','$UNAME','$PASSWORD')");
$db->sql("Commit");
print "<p>";
print "<b> your data has been inserted </b> ";
thank u.
