scusa ancora, ma non riesco a ciclare perche con la variabile "Volte" passo ad esempio 5


dim intInizio, intFine, ctCiclo
'Inizializzazione delle variabili
intInizio = 1
intFine = Volte
for ctCiclo = intInizio to intFine

...poi

Codice = Request("Codice")

Dim parti, radice1, radice2, progressivo
parti = Split(Request("Codice"), "_")
radice1 = parti(0)
radice2 = parti(1)
progressivo = parti(2)
'Response.Write "<br>progressivo: " & radice1 &"_" & radice2 &"_"& (progressivo+1)

SQL2 = "INSERT ... (Codice...) VALUES ('" & radice1 &"_" & radice2 &"_"& (progressivo+1) & "',) ... )

next

fino a qui funziona ma per tutte le 5 VOLTE (variabile di cui sopra) ripete sempre lo stesso codice aumentato di 1... e non continua la progressione...