Per chi ne avrà necessità:

codice:
<%

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 & "
" %>