ayuda con randomize

[maestro]

Randomize
minimo = 100000000
maximo = 999999999
numrnd = Int(((maximo-minimo+1) * Rnd) + minimo)*2

Por ejemplo.......

<%
' Generador de claves aleatorias

Function generadordeclaves(longituddeclave)
' Nota para los principientes : el simpolo "_" es el de continuación de linea
' Definicion del array
Dim numerodecaracteres
Dim salida
Dim char_array
char_array = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
"K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", _
"U", "V", "W", "X", "Y", "Z")


Randomize()

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

' establecemos el valor del resultado a devolver
generadordeclaves = salida
End Function


numerodecaracteres=10
' escribe los resultados de la clave con tantos caracteres como el parametro pasado

Response.Write "<b>" & generadordeclaves(numerodecaracteres) & "</b>" & vbCrLf
%>