MS_29012016
This commit is contained in:
@@ -77,7 +77,7 @@ Public Class frmUserKonfig_AddUsers
|
||||
Dim email As String = user.EmailAddress
|
||||
Dim SQL
|
||||
If Not UserExists(USERNAME) Then
|
||||
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ")"
|
||||
SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG,LANGUAGE) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "')"
|
||||
If ClassDatabase.Execute_non_Query(SQL) = True Then
|
||||
usersAdded = usersAdded + 1
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user