#!/usr/bin/perl -wc
# vitals1u.cgi


use CGI ":standard";
use DBI;
use strict;
use CGI::Carp qw( fatalsToBrowser );


my $dbh = DBI->connect("DBI:mysql:interchange:", 'fang', '7864221a');

#  get the posted data
  
   my $id = param('id') || ' ';
   my $lnamek = param('lnamek') || ' ';
   my $fname = param('fname') || ' ';
   my $lname = param('lname') || ' ';
   my $address = param('address') || ' ';
   my $apt = param('apt') || ' ';
   my $city = param('city') || ' ';
   my $state = param('state') || ' ';
   my $zip = param('zip') || ' ';
   my $dob = param('dob') || ' ';
   my $men = param('men') || ' ';
   my $women = param('women') || ' ';
   my $boys = param('boys') || ' ';
   my $girls = param('girls') || ' ';


   my $sth = $dbh->prepare("UPDATE vitals1 SET id = ?, lnamek = ?, fname = ?, 
     lname = ?, address = ?, apt = ?, city = ?, state = ?, zip = ?, 
     dob = ?, men = ?, women = ?, boys = ?, girls = ?");
     $sth->bind_param(1, $id);
     $sth->bind_param(2, $lnamek);
     $sth->bind_param(3, $fname);
     $sth->bind_param(4, $lname);
     $sth->bind_param(5, $address);
     $sth->bind_param(6, $apt);
 $sth->bind_param(7, $city);
     $sth->bind_param(8, $state);
     $sth->bind_param(9, $zip);
     $sth->bind_param(10, $dob);
     $sth->bind_param(11, $men);
     $sth->bind_param(12, $women);
     $sth->bind_param(13, $boys,);
     $sth->bind_param(14, $girls);
          or die "Could not prepare SQL: " . $dbh->errstr();
    $sth->execute(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14);
      or die "Could not execute SQL: " . $dbh->errstr();


$sth->finish();
$dbh->disconnect();