-------------------------------------------------------- #!/perl/bin/perl.exe use strict; use CGI; use DBI; use DBD::ODBC; my ( $data_source, $database) = qw( server database user password ); $data_source = "DIGGER"; $database = "My Company"; my $conn_string = "driver={SQL Server};Server=$data_source; Database=$database"; my $dbh = DBI->connect( "DBI:ODBC:$conn_string" ) or die $DBI::errstr; my $query = CGI->new(); print "Content-type: text/html\n\n"; print "\n"; print "ADD NEW FILM\n"; if ($query->param('FilmName')) { my $FilmName = $query->param('FilmName'); chomp $FilmName; } if ($query->param('Price')) { my $Price = $query->param('Price'); chomp $Price; } my $sth = $dbh->do( "INSERT INTO tblFilm (Name, Price) VALUES ('$FilmName', '$Price')") || print "Can't prepare statement: $DBI::errstr"; print "\n"; $dbh->disconnect; ------------------------------------------------------