<%@ Page Language="vb" %>
Sub Page_Load()
Message.Text = "User.Identity.IsAuthenticated? " _
& Context.User.Identity.IsAuthenticated & "
"
If Context.User.Identity.IsAuthenticated then
Message.Text = Message.Text & "User.Identity.Name? " _
& Context.User.Identity.Name & "
"
end if
End Sub