$dbh->do (qq{ UPDATE `reg_users` SET `aff_url` = ?, `aff` = ?, `aff_su_date` = ? WHERE `username` = ? },
				undef, $in{aff_url}, "yes", $formated_date, $username);
	$dbh->disconnect();