Tal como lo tienes, debes escribir exactamente lo mismo en el formulario a como está grabado en la base de datos. Prueba a cambiar esta línea a ver...
If (UCase(Trim(Request.Form("TxtPassword")))) = UCase(Trim(tabla("Password"))) Then
saludos = saludos + 1
