<% ' Funcin para generar passwords aleatorios Function GenerarPassword(largo) Dim Resultado, Caracter, Password 'Cargamos la matriz con nmeros y letras 'caracter = 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") caracter = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9") Randomize() Do While Len(Resultado) < largo Resultado = Resultado & Caracter(Int(10 * Rnd())) Loop GenerarPassword = Resultado End Function ' Obtener un password de 8 caracteres Pass= GenerarPassword(8) ' Imprimir clave 'Response.Write "
"& Password & "
" %> PROPERCA -Productora de perfiles


Registro de Usuarios
Los campos con * son obligatorios

Login: *
Password : Es asignado automaticamente y enviado a su correo
Nombre: *
Apellido: *
Empresa:
Sector: *
Direccion:
Cargo:
Email: *
Teléfono: *
Celular:
 
© Copyright 2005, PROPERCA
Todos los Derechos Reservados