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)
%>

[sjam7]

por lo general estos servicios como lo hace hotmail lo que hacen es agregar algo de texto comund despues del nombre original como si pones:

nombre: jose lopez usuario: jlopez
si jlopez ya esta entonces poner por ejemplo
usuarios posibles:
jlopezmexico
jlopez2005
jlopezonline

etc...

[trasgukabi]

y que problemas tienes. funciona bien.