<%
' add passwords with quotes and separated by commas.
arrayPasswordList = Array( "letmein","snow","open")
%>
<%
strPasswordUsed = Session("pwfield")
strPasswordForm = "password.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
%>
gallery
