---codice-----

do while not rsuno.eof

primocarunione = Mid(unione, 1, 1)
primocardefinita = Mid(rsuno.fields("definita"), 1, 1)

response.write(primocarunione)
response.write(primocardefinita)
response.write("
")

cn.execute("insert into tabres select unione, occo, definita, ID, carte1, carte2, giocodipr, giocodipra, prese, prob, prese1, prob1, giocodisic, giocodisica, presesic, probsic, giocodisic1, giocodisic1a, presesic1, probsic1 from TABtot where Mid(unione, 1, 1) = '"& primocardefinita &"' ")

rsuno.movenext

loop

---fine codice ------

---codice-----

do while not rsuno.eof

primocarunione = Mid(unione, 1, 1)
primocardefinita = Mid(rsuno.fields("definita"), 1, 1)

response.write(primocarunione)
response.write(primocardefinita)
response.write("
")

cn.execute("insert into tabres select unione, occo, definita, ID, carte1, carte2, giocodipr, giocodipra, prese, prob, prese1, prob1, giocodisic, giocodisica, presesic, probsic, giocodisic1, giocodisic1a, presesic1, probsic1 from TABtot where Mid(unione, 1, 1) = '"& primocardefinita &"' ")

rsuno.movenext

loop

---fine codice ------

Io dovrei inserire in tabres solo le righe di tabtot in cui la parola inserita nella colonna definita inizia con la lettera che dico io. Ossia primocarunione.