Allora...sono riuscito a capire il problema (non la soluzione ovviamente ma un passo avanti CREDO di averlo fatto).

---codice---

............
loop

response.write(perlastampa) 'qui il valore è visto ed è stampato giusto.

dim rsuno
Set rsuno = Server.CreateObject("ADODB.Recordset")

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

do while not rsuno.eof

response.write(perlastampa) 'qui il valore non lo vede

rs.movenext

loop

--- fine codice

Il valore perlastampa viene stampato corretto la prima volta, ma la seconda volta non riesce a vederlo. Non mi dà errore però non mi stampa il valore quindi non lo vede.