Cambiare password

[[trodat]]

Cosa c'è di sbagliato in questa condizione che non dovrebbe permettere di cambiare la propria password quando è uguale alla penultima ed alla terzultima? Cambia sempre la password anche se è uguale...

<%

if(strUser<>"")AND(strCode1<>"")AND(strCode2<>"")AND(strCode2=strCode3)AND(strMail<>"") then

'Apertura del database
'Eseguo la query

		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strSql, conn , 3, 3	
		
		pass = rs("pass")
		pass2 = rs("pass2")
		pass3 = rs("pass3")
		passNew = cripta(strCode2,Key)
		

		if not(rs.eof) then

			'Utente in elenco. Modifico il dato.
			
if passNew = rs("pass") and passNew = rs("pass2") and passNew = rs("pass3") then

		response.write "blablabla"
else
				rs(1)=strUser
				rs(2)=cripta(strCode2,Key)
				rs(3)=strMail
		rs.update
end if

'invio email

	else	
		

response.write "KO"


		end if
		end if

		'chiudo il database
		rs.Close
		set rs = Nothing
		conn.Close 
		set conn = Nothing
		
%>

[Vitacillina]

Prova così.

<%

if(strUser<>"")AND(strCode1<>"")AND(strCode2<>"")AND(strCode2=strCode3)AND(strMail<>"") then

'Apertura del database
'Eseguo la query

		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open strSql, conn , 3, 3	
		
		pass = rs("pass")
		pass2 = rs("pass2")
		pass3 = rs("pass3")
		passNew = cripta(strCode2,Key)
		

		if not(rs.eof) then

			'Utente in elenco. Modifico il dato.
			
if passNew = rs("pass") and passNew = rs("pass2") and passNew = rs("pass3") then

		response.write "blablabla"
else
				rs(1)=strUser
				rs(2)=cripta(strCode2,Key)
				rs(3)=strMail
		rs.update
end if

'invio email

	else	
		

response.write "KO"


	'chiudo il database
		rs.Close
		set rs = Nothing
		conn.Close 
		set conn = Nothing

		end if
		end if
		
%>