Ese error es clásico de un intento de lectura más allá del límite del recordset, con ello ví con un poco de cuidado tu código y detecto que haces dos ciclos anidados dónde estas creando varias veces el mismo objeto, pero no lo destruyes. Además estas recorriendo el primer RecordSet en el ciclo del segundo.
Código:
While not rs250.EOF
Set rs251 = Server.CreateObject ("ADODB.RecordSet")
...
While not rs251.EOF
...
rs250.MoveNext
rs251.MoveNext
Wend
Wend
rs250.close
rs251.close
Set rs250 = Nothing
Set rs251 = Nothing
cn250.Close
Set cn250 = Nothing
Arregla lo del objeto y corrige la lectura de los recorSet:
Código:
While not rs250.EOF
While not rs251.EOF
....
rs251.MoveNext
Wend
rs250.MoveNext
Wend
Saludos