my $dbh;
$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;
$dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ=../_private/db1.mdb");
my $rs = CreateObject OLE "ADODB.Recordset" or die "can not create recordset"; 

my $sql;
	
	if ($formfriend eq 'surya')
	{
	$sql = "INSERT INTO surya VALUES ($formemail,$formpass)";
	}

	if ($formfriend eq 'rahul')
	{
	$sql = "INSERT INTO rahul VALUES ($formemail,$formpass)";
	}

	if ($formfriend eq 'deepika')
	{
	$sql = "INSERT INTO deepika VALUES ($formemail,$formpass)";
	}

	if ($formfriend eq 'everyone')
	{
	$sql = "INSERT INTO everyone VALUES ($formemail,$formpass)";
	}


	$rs = $dbh->Execute( $sql );