I am trying to make the most simple case (role based security) work.
Dim loUserInfo As New MicroFour.StrataFrame.Security.BusinessObjects.SFSUsersBO
Dim loResult As MicroFour.StrataFrame.Security.Login.LoginResult
loResult = MicroFour.StrataFrame.Security.Login.AuthenticateUser("somebody ", " Test123", "nbs", loUserInfo)
Basically, the above is the whole test web site
And the loResult returns ‘failure’