<%
function isInArray(c_value, c_array, c_arrayPos)
	
	dim tempValue
	tempValue = -1
	
	if isArray(c_array) then
		
		for n=0 to ubound(c_array)
			if len(c_array(n, c_arrayPos)) then
								
				if cStr(c_array(n, c_arrayPos)) = cStr(c_value) then
					tempValue = n
				end if
			
			end if
		next
	end if
	
	isInArray = tempValue

end function





function isCorrectPassword(c_value, c_array, c_arrayPos, c_arrayItem) 

	dim retrunValue
	retrunValue = false
	
	if cStr(c_array(c_arrayItem, c_arrayPos)) = cStr(c_value) then
		retrunValue = true
	end if

	isCorrectPassword = retrunValue

end function 
%>