<% Response.Expires = -1000 'Make sure the browser doesn't cache this page Response.Buffer = True 'enables our response.redirect to work %> <% If Request.Form("submit") ="Login" Then CheckLoginForm Else ShowLoginForm End If %> <% Sub CheckLoginForm 'check if the value of the text field 'username' and 'password' are correct If Request.Form("username") ="rkmc" AND Request.Form("password") ="pa12" Then Session("BlnLoggedIn") = True Response.Redirect "memberspage.asp" Else Response.Write "
You are not logged in.

" ShowLoginForm End If End Sub %> <% Sub ShowLoginForm %>
User Name :
Password :
<% End Sub %>