Per completezza metto il codice intero.

---codice---

Set tabres12 = Server.CreateObject("ADODB.Recordset")

tabres12.Open "select unione, occo, definita, ID, carte1, carte2, occo, Prob, prese, giocodipr, giocodiprA, difesa, prob1, prese1, giocodisic, presesic, probsic, giocodisic1, presesic1, probsic1 from tabres12", cn, 3, 3

a = Mid(unione, 1, 12)

sql12 = ("insert into tabres12 (unione, occo, definita, ID, carte1, carte2, Prob, prese, giocodipr, giocodiprA, difesa, prob1, prese1, giocodisic, presesic, probsic, giocodisic1, presesic1, probsic1) SELECT unione, occo, definita, ID, carte1, carte2, Prob, prese, giocodipr, giocodiprA, difesa, prob1, prese1, giocodisic, presesic, probsic, giocodisic1, presesic1, probsic1 FROM tabres11 where definita like '%" & a & "%' ")

cn.execute sql12

end if

--- fine codice ---

Adesso dovrei stampare le righe di tabres12 in cui ora c'è il puntatore che punta l'ultimo record.