ASP.NET

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load<br />
        fldRoles.Text = String.Format("User {0} has in the following roles:", My.User.Name)<br />
        For Each arole As String In Roles.GetRolesForUser(My.User.Name)<br />
            fldRoles.Text += String.Format("<br/>{0}", arole)<br />
        Next<br />
        If My.User.IsInRole("AdminModule1") Then<br />
            Response.Redirect("adminM1/nn.aspx")<br />
            Response.End()<br />
        ElseIf My.User.IsInRole("AdminModule2") Then<br />
            Response.Redirect("adminM2/nn.aspx")<br />
            Response.End()<br />
        ElseIf My.User.IsInRole("AdminModule3") Then<br />
            Response.Redirect("adminM3/nn.aspx")<br />
            Response.End()<br />
<br />
        End If<br />
    End Sub