sub sqlInsert {
        my $table = shift || '';
	my(%data)=@_;

	my($names,$values);
	$dbh||=sqlConnect();
	foreach (keys %data) {
		if (/^-/) {
                    $values.="\n  ".$data{$_}.",";
                    s/^-//;
                    
                    }
		else {
                    $values.="\n  ".$dbh->quote($data{$_}).","; }
                    $names.="$_,";
	}

	chop($names);
	chop($values);

	my $sql="INSERT INTO $table ($values) VALUES ($names)\n";
	#$sql = $dbh->quote ($sql);
	print "Content-type: text/html\n\n";
	print "$sql <br />";

	if(!$dbh->do($sql)) {
		my $err=$dbh->errstr;
	}
}