Spostare records tra tabelle diverse

[manubox98]

SCUSA!!!!!

Mi sono dimenticato di impostare a FALSE il valore di ERROR!!!!!

Eccoti il codice giusto!

Dim Error, ErrorField
Do Until strRec.Eof
	Error = false
	if strRec("campo_txt") > "" Then
		if IsNumeric(strRec("campo_nmr")) Then
			Error = true
		else
			ErrorFiled = "campo_nmr"		
		end if
	else
		ErrorFiled = "campo_txt"
	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

Scusa ancora!

Lele