Non è necessario scusarsi... anzi... scrivo così ed adesso anche per i records coerenti mi blocca lo spostamento e mi stampa il response wrtie per quante volte sono i records della tbl da spostare...
codice:
Do Until Rs.Eof 

If Rs("campo_nmr") <> "" then 
If ISNUMERIC(Rs("campo_txt")) Then

Error = true

else
			ErrorField = "campo_nmr"
			Error = false
			end if
	else
		ErrorField = "campo_txt"
		Error = false
		end if

If Error = true then
		'esegue la query insert into
		SQL = ........
	'altrimenti
	else
		response.write "la query non è stata eseguita per un errore nel campo: " & ErrorField
		break
	end if
	strRec.MoveNext
Loop