<%@ page language="VB" %>

<script runat="server">

    
    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        Label1.Text &= "<br>Obecnie zalogowanych jest " & Membership.GetNumberOfUsersOnline() & _
         " użytkowników. Jest to wartość przybliżona, obliczona na podstawie znaczników czasowych" & _
         " z ostatnich " & Membership.UserIsOnlineTimeWindow & " minut."
            
        'Roles.CreateRole("Administrator")
        'Roles.AddUserToRole("test", "Administrator")
        For Each Role As String In Roles.GetRolesForUser()
            Label2.Text &= Role
        Next
        
        Label2.Text &= Roles.IsUserInRole("Administratorzy")
    End Sub
</script>

<html>
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    
    </div>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
        <asp:Label ID="Label1" Runat="server" Text="To jest zabezpieczona strona." Height="46px"
            Width="403px"></asp:Label>&nbsp;<br />
        <br />
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;<asp:Label ID="Label2" Runat="server" Height="46px"
            Width="402px"></asp:Label>
    </form>
</body>
</html>
