my $Cmd;
  if ( $Vars->{ id } == 0 )     #  Insert a new record.
  {
    $Cmd = "insert into fparty (" .
      join(", ",@Fields) . ") values(" .
      join ( ", ", map { "'$Vars->{ $_ }'" } @Fields ) . ")";
  }
  else                          #  Update an existing record.
  {
    $Cmd = "update fparty set " .
      join ( ", ", map { $_='$Vars->{ $_ }'" } @Fields ) . 
      " where id=$Vars->{ id }";
  }