$filename = param('name');
$rating = param('rating');
$dbh = DBI -> connect ('dbi:ODBC:', '', '') or die "$DBI::errstr;";
$sth = $dbh -> prepare (qq~select One, Two, Three, Four, Five from FanRatings where Title = '$filename'~) or die "$DBI::errstr;";
$sth -> execute or die "$DBI::errstr;";