if (defined($in{new_aff}) && $in{new_aff} == 1) {
	if ($in{tax_id} ne "") {
		$dbh->do (qq{ UPDATE reg_users SET tax_id = ? WHERE username = ? },
					undef, $in{tax_id}, $username) || error("Error on MySQL Update: $DBI::errstr");
	}
	$dbh->do (qq{ UPDATE reg_users SET aff_url = ? WHERE username = ? },
				undef, $in{aff_url}, $username) || error("Error on MySQL Update: $DBI::errstr");

	$dbh->do (qq{ UPDATE reg_users SET aff = ?, aff_su_date = ? WHERE username = ? },
				undef, "yes", $formated_date, $username) || error("Error on MySQL Update: $DBI::errstr");
}
	$dbh->do (qq{ UPDATE reg_users SET html_email = ? WHERE username = ? },
				undef, $in{html_email}, $username) || error("Error on MySQL Update: $DBI::errstr");

	$dbh->disconnect();