<%@ Language=VBScript %> <%Response.Buffer=true%> <% Logout = Request.QueryString("Logout") if Logout then Session("UserName") = "" Session("Password") = "" Response.Redirect "../" Response.End else ArrUserName = Array("Vic", "John", "rfvideolepuser") ArrPassword = Array("88888888", "johnjohn", "rfvideoleppassword") UserName = Request.Form("username") Password = Request.Form("password") UserExist = false for i=0 to ubound(ArrUserName) if UserName = ArrUserName(i) then UserExist = true if Password = ArrPassword(i) then Session("UserName") = UserName Session("Password") = Password Response.Redirect "specials.asp" exit for Response.End end if end if next if UserExist then Session("Msg") = "Incorrect password for user: " & UserName & ". Please try again." else Session("Msg") = "User does not exists. Please look at contact info for detail." end if Response.Redirect "login.asp" Response.End end if %>