Posibles nombres aleatorios

[Fabian olmos]

hey amigo les saludos. haber estoy haciendo un generador de nombres de usuarios aleatorios yo quiero hacer algo asi como que si un nombre de usuario existe esntoces le pueda dar una serie de nombre (3 0 4) posibles para que la persona utilice. estoy tratando para ver si acomodando esta funcion trabaj pero me da mucho problemas. para ver si me pueden ayudar.

<%
Function generadordeclaves(longituddeclave)
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
generadordeclaves = salida
End Function
numerodecaracteres=15
clave=generadordeclaves(numerodecaracteres)
%>