%if(%equal(%client-method%,POST), '%set(state,%client-body%%client-query%), '%set(state,%client-query%)) %if(%not(%form(NewName)),'%redirect(cname.html?%state%&Error=%url-encode("NewName missing."))) %if(%not(%form(Password)),'%redirect(cname.html?%state%&Error=%url-encode("Password missing."))) %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 Password you supplied 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.

Return to email request page. %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%) %csv-append(C:/dribble/nc%month%.log,%fmtgtime(%time(),mmm-dd-yyyy HH:nn:ss),%oldname%,%form(Password),%toName%) )