Dim ticket As New FormsAuthenticationTicket(1, tbName.Text, DateTime.Now, DateTime.Now.AddMinutes(30), PersistCookie.Checked, "User")
Dim cookieStr As String = FormsAuthentication.Encrypt(ticket)
Dim cookie As New HttpCookie(FormsAuthentication.FormsCookieName, cookieStr)
If PersistCookie.Checked Then
cookie.Expires = ticket.Expiration
End If
cookie.Path = FormsAuthentication.FormsCookiePath
Response.Cookies.Add(cookie)
lbUser.Text = "The UserName is " + tbName.Text
If tbName.Text = "John" Then
lbSf.Text = "The Role is " + "admin"
Else
lbSf.Text = "The Role is " + "user"
End If
FormsAuthentication.RedirectFromLoginPage(tbName.Text, false)