Con esta puedes calcular claves aleatorias
Código:
Dim Codigo
Randomize
For i=1 to 6
codigo = codigo & Cstr(Intr((9-1+1) * Rnd + 1))
Next i
Response.write codigo
El ciclo está puesto hasta el 6 e indica la longitud de la clave, para hacer claves mas largas o cortas debes cambiar este número.
Hay que hacer notar que la clave se compone de numero aletorios entre el 1 y el 9 haciendo uso de la función RND.
esta funciòn se puede mejorar para que te de cualquier caracter utilizando la función CHR
Espero les sirva.
