<%@ Page Language="VB" %>
<script runat="server">
sub Login(Sender as Object, e as EventArgs)
if FormsAuthentication.Authenticate(tbUserName.Text,tbPassword.Text) then
FormsAuthentication.SetAuthCookie(tbUsername.Text, false)
lblMessage.Text = "<font color=red>Success!</font>"
else
lblMessage.Text = "<font color=red>Sorry, " & _
"invalid username or password!</font>"
end if
end sub
</script>
<html><body>
Please enter your username and password.
<form runat="server">
<asp:Label id="lblMessage" runat="server" />
Username:
<asp:Textbox id="tbUserName" runat="server" /><br>
Password:
<asp:Textbox id="tbPassword" TextMode="password"
runat="server" />
<asp:Button id="Submit" runat="server"
OnClick="Login"
Text="Submit" />
</form>
</body></html>