if ($in{tax_id} ne "") { #Only update this record IF it has a value!
$dbh->do (qq{ UPDATE `reg_users` SET `tax_id` = ? WHERE `username` = ? },
undef, $in{tax_id}, $username);
$dbh->disconnect();
}
$dbh->do (qq{ UPDATE `reg_users` SET `aff_url` = ? WHERE `username` = ? },
undef, $in{aff_url}, $username);
$dbh->disconnect();
$dbh->do (qq{ UPDATE `reg_users` SET `aff` = ?, `aff_su_date` = ? WHERE `username` = ? },
undef, "yes", $formated_date, $username);
$dbh->disconnect();
####
$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();
####
$thank_you_html = qq~
Aff URL is $in{aff_url}
Tax ID is $in{tax_id}
~;