ho risolto così:

codice HTML:
    Dim parti, radice1, radice2, progressivo
    parti = Split(Request("Codice"), "_")
    radice1 = parti(0)
    radice2 = parti(1)
    progressivo = parti(2)

    dim intInizio, intFine, ctCiclo
    intInizio = 1
    intFine = Request("Volte")
    for ctCiclo = intInizio to intFine

    progressivo=(progressivo+1)
    codiceprogressivo = radice1 &"_" & radice2 &"_"& (progressivo)
grazie ancora