La copia del código es la siguiente:
<%
'El sistema asigna contraseñas aleatorias
FunctionCreatePass ()
Dimran, i, longitudnum
Longitudnum = 6
CreatePass = ""
Fori = 1Tolengthnum
Aleatorizar
Ran = cint (rnd*2)
Aleatorizar
Ufran = 0
Ran = cint (rnd*25) +97
CreatePass = CreatePass & UCase (chr (ran))
Elsefran = 1
Ran = cint (rnd*9)
CreatePass = createPass & Ran
Elsefran = 2
Ran = cint (rnd*25) +97
CreatePass = CreatePass & Chr (Ran)
Endif
Próximo
Función final
Response.writeCreatePass ()
%>