<%@ Language=VBScript %> <%Response.Expires = -1 %> <%Response.ExpiresAbsolute = Now() - 1 %> <%Response.AddHeader "pragma", "no-cache" %> <%Response.AddHeader "cache-control", "private" %> <%Response.CacheControl = "no-cache" %> <% Response.Expires = -1000 Response.Buffer = True Response.Clear %> <% Session("UserLoggedIn") = "" If Request.Form("logine") = "check" Then CheckLogin Else ShowLogin End If %> Site Administrator <% Sub ShowLogin %>

 User Name :

 Password :

<% End Sub %> <% Sub CheckLogin if UCase(Request.Form("username")) = "ADMIN" And UCase(Request.Form("userpwd")) = "PASSWORD" Then Session("UserLoggedIn") = "Yes" Response.Redirect "edituser.asp" Else Response.Write("

Login Failed.

") Response.Write("

Incorrect UserName or Password !

") ShowLogin End If End Sub %>