<% Response.Buffer=true %> <% Dim myname Dim mypassword myname=request.form("username") mypassword=request.form("userpassword") if len(myname)<1 then response.redirect("default.asp?username=" & myname & "&errorMsg=noUser") else userArrayItem = isInArray(myname, epUsers, 0) if userArrayItem = -1 then response.redirect("default.asp?username=" & myname & "&errorMsg=userNotRecognised") else if len(mypassword)< 1 then response.redirect("default.asp?username=" & myname & "&errorMsg=noPassword") else if not isCorrectPassword(mypassword, epUsers, 2, userArrayItem) then response.redirect("default.asp?username=" & myname & "&errorMsg=passwordIncorrect") else session("epUserName") = myname session("securitylevel") = 3 Response.Redirect("../default.asp") end if end if end if end if %>