22/10/2003, 01:37
|
 | | | Fecha de Ingreso: junio-2003 Ubicación: Madrid
Mensajes: 289
Antigüedad: 21 años, 10 meses Puntos: 1 | |
| Si es que es de lo mas sencillo...
Nick = trim(Request("Nick"))
Pw1 = trim(Request("Password"))
Pw2 = trim(Request("Password2"))
Email = trim(Request("email"))
randomize
clave = int(rnd() * 10000)
'compruebo que el nick y el email no estan en la base de datos. Si ya estan los rechazo. Compruebo que las dos pw son iguales. Compruebo que tanto la pw, como el email, como el nick tienen la longitud correcta y no contienen caracteres que no quiero.
'Si todo va bien...
Dim cmd
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open ("Provider=SQLOLEDB.1;Password=xx;Persist Security Info=True;User ID=xx;Initial Catalog=xxx;Data Source=xxx")
Set cmd = Server.CreateObject("ADODB.COMMAND")
cmd.ActiveConnection = oConn
cmd.CommandText = "INSERT INTO USUARIOS VALUES ('" & nick & "', '" & pw1 & "', '" & email & "', " & clave & ", 0, 0, 0, 0, GETDATE(), '" & comunidad & "')"
'Uno de los 0 del insert es el campo CONFIRMADO
cmd.Execute
oconn.close
set cmd = nothing
set oconn=nothing
' Compongo el email y lo envio con la clave a la direccion que me han dado.
FIN====================
En el formulario de confirmacion tendras que comprobar que el usuario pone la misma clave que la que tienes en la bd.
Si ya han pasado las 0.00 se habra borrado, por lo que le dices que ha caducado el alta y que lo repita. Si la confirma bien, pones el campo CONFIRMADO=1 y ya esta.
Para que se borren a las 0.00, como te decia en el post anterior, creas una tarea programada en el sqlserver que se active a las 0.00 y haga un DELETE FROM USUARIOS WHERE CONFIRMADO=0
Un saludo. |