numero aleatoreos

[Gurrutello]

hola
a ver si te sirve este
<%



Function generadordeclaves(longituddeclave)

Dim salida
Dim char_array
dim clave_creada
dim numerodecaracteres_codigo
char_array = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")


Randomize()

Do While Len(salida) < longituddeclave
salida = salida & char_array(Int(10 * Rnd()))

Loop

generadordeclaves = salida
End Function

dim numerodecaracteres_codigo
numerodecaracteres=2 ' Cambialo para mas numeros

dim clave_c,numerodecaracteres,clave_codigo
clave_c="" & generadordeclaves(numerodecaracteres) & ""

%>

<%=clave_c%>
saludos