Problema con generazione password random

[Mizushi]

Ciao.

Perchè nelle password casuali generate da questa funzione non vengono mai inserite le lettere?

Dove sbaglio?

function randomKey()
    dim numeri, lettere
    numeri = "1234567890!@$%&?*+#-_.:{[]}<>" 
    lettere = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Do Until len( cupon1 ) = 12
            Randomize 
            lettere = Int( ( 27 * Rnd ) + 1 )
            cupon1 = cupon1 & Mid( numeri, lettere, 1 ) 
        Loop
    randomKey = cupon1
end function

[Roby_72]

La variabile "lettere" la ricrei ad ogni ciclo dentro al loop e vale tutt'altro rispetto all'assegnazione iniziale.

Roby

[Mizushi]

Originariamente inviato da Roby_72
La variabile "lettere" la ricrei ad ogni ciclo dentro al loop e vale tutt'altro rispetto all'assegnazione iniziale.

Roby

Ok, modifico così:

function randomKey()
    dim numeri, lettere
    numeri = "1234567890!@$%&?*+#-_.:{[]}<>" 
    lettere = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        Do Until len( cupon1 ) = 12
            Randomize 
            cupon1 = cupon1 & Mid( numeri, lettere, 1 ) 
        Loop

    randomKey = cupon1
end function

ma ottengo:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'lettere'

[Mizushi]

Provo così, ma la seconda password a volte è incompleta:

function randomKey()
    dim num, wor
    num = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@$%&?*+#-_.:{[]}<>"
        Do Until len( cupon1 ) = 12
            Randomize
            wor = Int( ( 53 * Rnd ) + 1 )
            cupon1 = cupon1 & Mid( num, wor, 1 )
        Loop
    randomKey = cupon1
end function

        for i = 1 to 2 
           r_1 = randomKey
           r_2 = randomKey
        next

[Mizushi]

Per chi ne avrà necessità:

<%

function randomKey()

    dim num, wor
    num = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!@$%&?*+#-_.:{[]}<>"
        Do Until len( cupon1 ) = 12
            Randomize
            wor = Int( ( 53 * Rnd ) + 1 )
            cupon1 = cupon1 & Mid( num, wor, 1 )
        Loop
    randomKey = cupon1

end function

r_1 = randomKey
r_2 = randomKey

%>

<%= r_1 & "
" %>
<%= r_2 & "
" %>