New User Registration Xbasic Function

[swest]

I am trying to do a new user registration in my system using an XBasic function. Below is what I have, with CheckUser I am trying to see if an email already exists in the database table and if it doesnt then insert that user. Then with Continue, I want to lookup the newly inserted user's id based on the email and insert some information in other tables including that id which ties the tables records back to that user. The insert user seems to be working but from where 'if Continue == 1' down it doesnt seem to work. Not sure what the issue is here. Also, if there is a better way to do new registration then I open to do it that way too.


dim globalcn as sql::connection
dim sql as c
dim args as sql::arguments
dim flag as l
dim sqlCommand as c
dim NewUserValue as n
dim CheckUser as c
dim Continue as n

flag = globalcn.open("::name::conn")
args.set("currentuser", e.dataSubmitted.USERNAME1)
args.set("currentdate", date())

CheckUser = sql_lookup("::name::conn", "pvv_o", "EMAIL = :currentuser","email",args)

if CheckUser == ""
flag = globalcn.execute("INSERT INTO pvv_o(email, profile_create_date, last_login, status) VALUES (:currentuser, :currentdate, :currentdate, '1')",args)
Continue = 1
end if

if Continue == 1
NewUserValue = sql_lookup("::name::conn", "pvv_o", "EMAIL = :currentuser","id",args)

flag = globalcn.execute("INSERT INTO pvv_info (id, full_name, status) VALUES (:NewUserValue, 'NEED INFO', '1')"
flag = globalcn.execute("INSERT INTO pvv_l (id, l, status) VALUES (:NewUserValue, 'NO', '1')",args)
flag = globalcn.execute("INSERT INTO pvv_v (id, status) VALUES (:NewUserValue, '1')",args)
end if

[Mike Reed]

Re: New User Registration Xbasic Function

You can get the id immediately after you do the first insert. What I might suggest is this: This is assuming the ID you want is the unique number the system assigns when the record is first inserted.

sql_insert = <<%str%
INSERT INTO pvv_o(
email, profile_create_date, last_login, status
) VALUES (
:currentuser, :currentdate, :currentdate, '1'
);
\
select @@identity;
%str%

flag = globalcn.execute(sql_insert,args)
user_id = globalcn.ResultSet.data(1)

args.set("NewUserValue",user_id)

Note, you must add the ; and \ after the first command. Then the second command gets the ID number for you.

[swest]

Re: New User Registration Xbasic Function

Thanks, seemed to work. However, none of that code would constantly set the user would it. Now when I try to login as a user it only filters data for one user, no matter if it is another user that is login. I have a value that is set when a user logins and then a list control is suppose to be filtered on that value. Now it just has the same value and I am not sure why. I dont think it was happening before this code.

[Steve Wood]

Re: New User Registration Xbasic Function

This wasn't your question but you appear to be making a form where users can register just by using their email address, no password, and no validation the user is who they say they are. If that is correct, then what would stop me from registering using someone else's email address?

[swest]

Re: New User Registration Xbasic Function

Yeah, want to add user validation where the user has to confirm themselves through their email before the account is active. Is that easily implemented? The other thing I was talking about above is for some reason the same user is logged in everytime now, not sure why that is. I have a value that gets set from a sql lookup that defines the user not sure if that’s the issue with that and wasn’t sure if this code is constantly setting it for some reason.

[mikeallenbrown]

Re: New User Registration Xbasic Function

Yeah, want to add user validation where the user has to confirm themselves through their email before the account is active. Is that easily implemented?

Ideally after the potential user finishes the registration an email is then sent to the email address with a code and link. They press the link in the email and type in the code thus completing the validation process.

Easily implemented? ...if you're asking then probably not. It's a bit on the advanced side in my opinion (although once you get it down the first time it all makes sense). In a nutshell you'd have an a5w page (to process the validation in xbasic) for the link and a page variable (a GUID is what I use) that was generated at the time of registration. The variable would expire after maybe 24 hours or sooner. Something similar to myValidationPage.a5w?regGUID=17Fc3!z6RTl055x_%tGe@.

All the information such as the email address, the GUID, the expiration time, etc. is stored in SQL (or the DB you are using) and your validation page checks the page variable to see if it's valid and not expired. Then complete the registration process.

[swest]

Re: New User Registration Xbasic Function

I would like to learn how to do it and implement it. Anymore information you can give me or point me to a video demonstrating it?

[Maroine81]

Re: New User Registration Xbasic Function

A better more practical user registration process in terms of validation, implemetation and security is to ONLY ask for the email address at first, once the user enters it, you would insert it in a tempUser table along with its GUID and addedDate. Upon successful insert, you would send a confirmation email that contains a confirmation link that has tempUser GUID as a confirmation variable.
You'd then capture that variable in processing registration page where you'd check if it exists in the tempUser table first. If it does you'd get that email that the user entered and ask the user to complete registration where you'd add them only then to the security tables. Use the SecurityFramework UX template - CreateNewUserAccount - There are plenty of videos that show you how to do that. Once successfully added to the system, you'd then delete that associated record from the tempUser table. In case the user doesn't confirm registration in 30 days you'd also delete that record.

Hope this helps.

[Steve Wood]

Re: New User Registration Xbasic Function

Not intended as a plug but you can get some ideas on user management by looking at the videos on this page for my Framework: http://alphatogo.com/framework.a5w