Login With Different Roles

Hello readers

I have a problem with the following:

I made a login page in Visual Web Developer 2005 and I used the ASP.net Configationtool in the Website menu. Made some couple test accounts to login and made a role: "Beheerders". Made 1 of my test accounts a "Administrators".

So my problem is when I log in with the account with the "Beheerders" role, i go to the page of the "normal user". I tried to look in many sites, I could find some nice aid but not 100% the one that could solve my problem.

This is my code i programmed in the seperatefile of Login.aspx

Imports System

Imports System.Data

Imports System.Data.SqlClient

Imports LoginPartial Class Login

Inherits System.Web.UI.PageProtected Sub Login1_LoggedIn(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login1.LoggedIn

Dim userinfo As MembershipUser = Membership.GetUser(Login1.UserName)

Dim UserRol() As String

UserRol = Roles.GetRolesForUser(userinfo.UserName)

If (Roles.IsUserInRole("Beheerders") = False) ThenResponse.Redirect("~Index.aspx")

End If

End SubProtected Sub Login1_LoggedIn()

End SubProtected Sub Login1_LoginError(ByVal sender As Object, ByVal e As System.EventArgs) Handles Login1.LoginError

'Parameters instellen voor InvalidCredentialsLogDataSourceInvalidCredentialsLogDataSource.InsertParameters("ApplicationName").DefaultValue = Membership.ApplicationName

InvalidCredentialsLogDataSource.InsertParameters("UserName").DefaultValue = Login1.UserNameInvalidCredentialsLogDataSource.InsertParameters("IPAddress").DefaultValue = Request.UserHostAddress

InvalidCredentialsLogDataSource.InsertParameters("Password").DefaultValue = Login1.Password

'Er was een probleem bij het aanmelden

'Nakijken of gebruiker bestaat in de databankDim userInfo As MembershipUser = Membership.GetUser(Login1.UserName)

If userInfo Is Nothing Then

'Ongeldige gebruikersnaam...

LoginErrorDetails.Text = "Geen gebruiker met naam """ & Login1.UserName & """ in de databank !"

Else

'Nakijken of gebruiker Lockedout of Approved is

If Not userInfo.IsApproved Then

LoginErrorDetails.Text = "Uw account is nog niet goedgekeurd!"

ElseIf userInfo.IsLockedOut Then

LoginErrorDetails.Text = "Uw account is geblokkeerd wegens te veel mislukte aanmeldpogingen!"

Else

'Het wachtwoord was verkeerd

LoginErrorDetails.Text = "Verkeerd wachtwoord - """ & Login1.Password & """"

End If

End If

'Record wegschrijven naar datasource

InvalidCredentialsLogDataSource.Insert()End Sub

End Class

 

 

Thanks for your help.

Regardings

Griffin1987