% Response.AddHeader "Pragma", "No-Cache" %> <% strPasswordUsed = Session("pwfield") strPasswordForm = "login.asp" If strPasswordUsed = "" Then strPasswordEntered = Request.Form("pwfield") If strPasswordEntered <> "" Then intNumberOfPasswords = UBound( arrayPasswordList) logGoodPassword = False For intCounter = 1 to intNumberOfPasswords IF arrayPasswordList( intCounter) = strPasswordEntered Then logGoodPassword = True Exit For End If Next If logGoodPassword Then Session("pwfield")= arrayPasswordList( intCounter) Else Response.Redirect( strPasswordForm) End If Else Response.Redirect( strPasswordForm) End If End If %>
|
NORTHINGTON C o n s u l t i n g Risk-Advisor.com |
|
Your Partner in Success© |
|
|
|