<% Response.Expires = -1000 Response.Buffer = True %> Login to the protect page !


<% Session("UserLoggedIn") = "" If Request.Form("logine") = "check" Then CheckLogin Else ShowLogin End If %> <% Sub ShowLogin %>
 User Name :
 Password :
 [Back to Main Page] [View Guest book]
<% End Sub %> <% Sub CheckLogin if LCase(Request.Form("username")) = "user" And LCase(Request.Form("userpwd")) = "pwd" Then Session("UserLoggedIn") = "true" Response.Redirect "passprotect.asp" Else Response.Write("

Login Failed.

") Response.Write("

Incorrect UserName or Password !

") ShowLogin End If End Sub %>



<% Response.Buffer = True %> Password Protect !

<% Response.Expires = -1000 If Session("UserLoggedIn") <> "true" Then Response.Redirect("login.asp") End If Session("UserLoggedIn") = "" %> This Page is password protected ...

                                    Elio with love !