Spostare records tra tabelle diverse

[Enrique_Rojas]

Modifico così, ma non cambia nulla :

Dim Error, ErrorField

Do Until strRec.Eof 

If strRec("campo_txt") > "" then
If IsNumeric(strRec("campo_nmr")) Then

Error = true

else

ErrorField = "campo_nmr"
end if
else

ErrorField = "campo_txt"
end if

If Error = true then
   
'esegue la query insert into
SQL = ........

'altrimenti
else

Error = false
  
end if 

strRec.MoveNext
Loop 

if Error = false then  
response.write "la query non è stata eseguita" & ErrorField
end if