<% If Request.Form("login") <> "" or Request.Form("pswrd") <> "" then login = Request.Form("login") pswrd = Request.Form("pswrd") If instr(1,pwlist,pswrd) > 0 AND instr(1,lwlist,login) > 0 then ExpireDate = DateAdd("m", 3, Now()) Response.Cookies("BLCPOA_LOGIN") = "Allowed" Response.Cookies("BLCPOA_LOGIN").expires = ExpireDate Response.Redirect("/index.asp") else Response.Cookies("BLCPOA_LOGIN") = "" Response.Cookies("BLCPOA_LOGIN").expires = Now() Session("Message") = "Your login failed. Please try again." end if end if %> Login


<%If Session("Message") <> "" then%> <%Session("Message") = "" end if%>

Bernard's Landing CPOA Login
<%=Session("Message")%>
Login:
Password: