<% ' Función para generar passwords aleatorios Function GenerarPassword(largo) Dim Resultado, Caracter, Password 'Cargamos la matriz con números y letras 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 %>

<% f_nom_usuario_entra = limpia(request.form("nom_usuario_entra")) if f_nom_usuario_entra <> "" then f_clave_alumno = limpia(request.form("clave_alumno")) f_nombre_alumno = limpia(request.form("nombre_alumno")) f_apelli_alumno = limpia(request.form("apelli_alumno")) f_dni_alumno = limpia(request.form("dni_alumno")) f_fecha_nacimiento = cdate(limpia(request.form("fecha_nacimiento"))) f_telefono = limpia(request.form("telefono")) f_direccion = limpia(request.form("direccion")) f_poblacion = limpia(request.form("poblacion")) f_provincia = limpia(request.form("provincia")) f_e_mail = limpia(request.form("e_mail")) f_carnet = cint(limpia(request.form("carnet"))) f_fecha_alta = now 'crea la clave password= GenerarPassword(8) password_ale= GenerarPassword(8) if password = password_ale then password_ale= GenerarPassword(8) end if thesql = "insert into alumnos (nom_usuario, clave_alumno, nombre_alumno, apelli_alumno, direccion, telefono, poblacion, provincia, e_mail, fecha_alta, clave_ale, tipo_carnet, clave_ale_temp, dni, fecha_nacimiento) values ('"&f_nom_usuario_entra&"', '"&f_clave_alumno&"', '"&f_nombre_alumno&"', '"&f_apelli_alumno&"', '"&f_direccion&"', '"&f_telefono&"', '"&f_poblacion&"', '"&f_provincia&"', '"&f_e_mail&"', '"&f_fecha_alta&"', '"&password_ale&"', '"&f_carnet&"', '"&password&"', '"&f_dni_alumno&"', '"&f_fecha_nacimiento&"')" on error resume next basedb.execute(thesql) 'AQUI EMPIEZA TODO LO RELACIONADO A SI EL NOMBRE DE USUARIO ESTA REPE. If err.number <> 0 then if err.number = -2147217900 then %>

NOMBRE DE USUARIO OCUPADO

<% thesql = "select id_tipo_carnet, letra_carnet from tipo_carnet order by letra_carnet" set los_carnet = basedb.execute(thesql) %>
<% else %>

HA OCURRIDO UN ERROR. <%=err.description%>

<% thesql = "select id_tipo_carnet, letra_carnet from tipo_carnet order by letra_carnet" set los_carnet = basedb.execute(thesql) %>
<% end if %> <% else %>

USUARIO AGREGADO CON EXITO, INICIE SESION.

<% Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "192.168.1.198" ' Specify a valid SMTP server Mail.From = "info@autoescuelanerja.com" ' Specify sender's address Mail.FromName = "Autoescuela Nerja" ' Specify sender's name Mail.username = "coco" Mail.password = "03101980Anul0818" Mail.AddAddress ""&f_e_mail&"" Mail.Addbcc "info@autoescuelanerja.com" mail.addreplyto "info@autoescuelanerja.com" Mail.Subject = "Bienvenido a Autoescuela Nerja "&f_nombre_alumno&"" Mail.Body = "
Bienvenido "&f_nombre_alumno&"


Le recordamos los siguientes datos:

nombre de usuario:"&f_nom_usuario&"
Clave:"&f_clave_alumno&"
Email:"&f_e_mail&"

Agradecemos su interes por nuestra web y esperamos servirle de ayuda



fdo: Jose Cadiz Garcia
Director de Autoescuelas Nerja S.L.



Si no desea volver a recibir ningun otro Email de Autoescuela Nerja puede hacerlo pinchando en la siguiente direccion http://www.autoescuelanerja.com/abaja_mail.asp" Mail.IsHTML = true On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error Mandando Email" & Err.Description end if %>
  • Usuario
  • Clave
<% END IF %> <% else %>

REGISTRO

<% thesql = "select id_tipo_carnet, letra_carnet from tipo_carnet order by letra_carnet" set los_carnet = basedb.execute(thesql) %>
<% end if %>