Hi

We're running a bit of VB code to add a load of users to a site from a csv file. However we've found that we've had to put alll of the CMS update steps in a 'Try...Catch' as below:-

Dim ExistingUser As New CMS.SiteProvider.UserInfo

ExistingUser = CMS.SiteProvider.UserInfoProvider.GetUserInfo(NewUserName)

If ExistingUser Is Nothing Then

Dim NewUser As New CMS.SiteProvider.UserInfo
NewUser.UserName = NewUserName
NewUser.FirstName = NewFirstName
NewUser.LastName = NewLastName
NewUser.FullName = NewFirstName & " " & NewLastName
NewUser.MiddleName = ""
NewUser.PreferredCultureCode = ""
NewUser.PreferredUICultureCode = ""
NewUser.UserEnabled = True
NewUser.UserIsEditor = False
NewUser.UserIsExternal = False
NewUser.UserIsHidden = False
NewUser.UserHasAllowedCultures = False
NewUser.Email = NewEmail

NewUser.PasswordFormat = "SHA1"

Try
CMS.SiteProvider.UserInfoProvider.SetUserInfo(NewUser)
Catch ex As Exception

End Try

Try
CMS.SiteProvider.UserInfoProvider.SetPassword(NewUserName, NewPassword)
Catch ex As Exception

End Try

Try
CMS.SiteProvider.UserInfoProvider.AddUserToSite(NewUser.UserName, "StaffordshirePrepared")
Catch ex As Exception

End Try

Try
CMS.SiteProvider.UserInfoProvider.AddUserToRole(NewUser.UserName, "SPMembers", "StaffordshirePrepared")
Catch ex As Exception

End Try

Response.Write("User Added OK!")


If we don't put the 'TRY..CATCH' in we get the following error regarding the Event Log table:-

[DataConnection.ExecuteQuery]: Query: DELETE FROM [CMS_EventLog] WHERE ([EventID] NOT IN (SELECT [EventID] FROM [CMS_EventLog] WITH (NOLOCK) WHERE SiteID IS NULL 000)) AND (SiteID IS NULL): caused exception: Incorrect syntax near '000'.

Any ideas? (I'm running the code on a local PC, so the code is not actually running against any site). Our users are still getting added with the 'TRY..CATCH' in but we don't know if we causing any additional problems by doing this.

Thanks in advance