Iowa River crests at record high