<%
Function GenerarPassword(largo)
Dim Resultado, Caracteres, Pass
'números y letras
caracteres = 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(Resultado) < largo
Resultado = Resultado & Caracteres(Int(36 * Rnd()))
Loop
GenerarPass = Resultado
End Function
' aqui se especifica cuantos caracteres se usaran. en este caso 5
Pass= GenerarPass(5)
' mostrar la clave
Response.Write ""& Pass & ""
%>pagina de prueba