' 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", "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 & Caracter(Int(36 * Rnd()))
Loop
GenerarPassword = Resultado
End Function
' Obtener un password de 8 caracteres
Password= GenerarPassword(8)
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webspace\resadmin\elsitio\elsitio.com\db \datos.mdb;"
SQL="SELECT * FROM usuarios WHERE (Email='"&email&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)
'si no nos devuelve vacío es que el mail ya está en uso
if not rs.EOF then
Response.Write("<B>La dirección de E-mail ya está registrada. </B>")
Response.Write("<BR><B>Por favor, escoja otra.</B>")
else
' es vacio, así que le insertamos en la bd
SQL="INSERT INTO usuarios " & _
"(Nombre, Apellido, FechaNac, Direccion, Ciudad, CP, Provincia, Pais, Telefono, Email, Actividad, Usuario, Password, Promociones, Fecha)"
SQL=SQL & " VALUES ('"&nombre&"','"&apellido&"','"&fecha_nac&"','"&di reccion&"','"&ciudad&"','"&cod_post&"','"&provinci a&"','"&pais&"','"&telefono&"','"&email&"','"&acti vidad&"','"&nom_usuario&"','"& Password & "','"&promo&"', #" & Month(Date) & "/" & Day(Date) & "/" & Year(Date) & "#);"
oConn.Execute(SQL)