<% Response.Expires = -1000 'Make sure the browser doesn't cache this page Response.Buffer = True 'enables our response.redirect to work %> Password Protect your ASP pages <% 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") = "DaveC426913" AND Request.Form("password") = "Br4inP0rt" Then Session("BlnLoggedIn") = True Response.Redirect "edit.asp" Else 'if the values entered are incorrect then display the message below Response.Write "
You are not logged in.

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