%gset(oldname,%tolower(%client-authname%))%gset(ForwardFlag,%null%)%gset(EMail,%null%)%gset(toName,%tolower(%form(NewName)))
%gset(sitename,tgforum.com)%gset(keyprefix,"HKEY_LOCAL_MACHINE\\SOFTWARE\\Ipswitch\\IMail\\Domains\\%sitename%\\Users")
%try('%null(%gset(existingemail,%null%)%regopenkey(%keyprefix%\\%toName%,%gset(existingemail,%RegQueryValue(MailAddr)))))
%if(%existingemail%,'%redirect(cname.html?%state%&Error=%url-encode("The user name \"%toName%\" has already been assigned to someone else in the email system. Please choose another name.")))
%if(%try('%sql(TGFDB,"SELECT * FROM [tgfsubsDB] WHERE NAME LIKE %sql-quote(%toName%) AND PASSWORD = %sql-quote(%form(Password))",'T),'%null%),
"Your user name has been changed to %toName%",
%gset(valid,%try('%sql(TGFDB,"SELECT EMail,Forward FROM [tgfsubsDB] WHERE NAME LIKE %sql-quote(%oldname%) AND PASSWORD = %sql-quote(%form(Password))",'%null(%gset(ForwardFlag,%equal(%column(Forward),1))%gset(EMail,%column(EMail)))'T),'%null%))
%if(%not(%valid%),'%redirect(cname.html?%state%&Error=%url-encode("The User Name and Password you entered is incorrect.")))
%if(%not(%equal(%oldname%,%toName%)),'%null(
%try('%sql(TGFDB,"SELECT * FROM [tgfsubsDB] WHERE NAME LIKE %sql-quote(%toName%)",
'%redirect(cname.html?%state%&Error=%url-encode("The New User Name is not Unique! Please choose another."))))
)
)
%hash-drop(%oldname%)%hash-put(%toName%,%form(Password))
%sql(TGFDB,"UPDATE [tgfsubsDB] SET Name = %sql-quote(%toName%) WHERE NAME = %sql-quote(%oldname%)")
Your user name has been changed from: %oldname% to: %toName%You
will use this new user name whenever you log onto Transgender Forum from now on.
%gset(extreply,
%fmtgtime(%time(),mmm-dd-yyyy HH:nn:ss) Name Change %client-ip%
Old Name: %oldname%
New Name: %toName%
Password: %form(Password)
------------------------------------------------------------------------%crlf%)
%text-append(C:/dribble/sub%month%-%day%.log,%extreply%)
)