use CGI; use DBI; do "/data/httpd_data/agencyfaqs.com/perl/main_lib.pl"; #### calculate date #### my @current = localtime(time); my $day = $current[3]; my $month = $current[4]+1; # Jan=0, Feb=1... my $year = $current[5]+1900; my $date = "$year-$month-$day"; #### calculate date #### my $cgi = CGI->new(); print $cgi->header; my $dbh = db_connect("afaqs_events"); my $question1= $cgi->param('question1'); my $question2= $cgi->param('question2'); my $question3= $cgi->param('question3'); my $question4= $cgi->param('question4'); my $question5= $cgi->param('question5'); my $name= $cgi->param('name'); my $company= $cgi->param('company'); my $designation= $cgi->param('designation'); my $phone= $cgi->param('phone'); my $email= $cgi->param('email'); my $sql = "insert into afaqs_events.amcl_contest ( amcl_contestID , name, company, Designation, phone, email, question1, question2, question3, question4, question5, indate) values('', '$name', '$company', '$designation', '$phone', '$email', '$question1', '$question2', '$question3', '$question4', '$question5', '$date')"; db_op($dbh, $sql,'no'); print" Star India

 

 

 

 

 

Thanks for participation.

"; db_disconnect($dbh); exit;