Amigo, no me sale, estube probando pero no me sale, podrías posterme el script que tu usas, así veo como quedaría armado y lo adapto con mis datos. Aquí te paso lo que yo estube probando si puedes agregarle lo que tu dices de que caduque despues de las 0:00 o modificarme el codigo que te paso a continuación te lo voy a agradecer. Si no, si puedes y no es molestia, envíame el script que tu usas y yo lo adapto a lo que necesito.
<%
Randomize
Variable = int((9999 - 0 + 1) * rnd + 0)
then
set mailer = server.createobject("SoftArtisans.SMTPMail")
Mailer.FromName = "Nombre"
Mailer.FromAddress = "de la direccion que viene"
Mailer.RemoteHost = "ruta del server"
Mailer.AddRecipient "Titulo", Request.Form("email")
Mailer.Subject = "Subjet"
Mailer.BodyText = "Utilise este numero de activación para activar su cuenta en nuestros sistema. Este número caducara a las 0:00, luego de este horario tendrá que completar
nuevamente el formulario de registro " variable <% Response.write(Variable) %>
if Mailer.SendMail then
' Message sent Ok, redirect to a confirmation page
Response.Redirect ("pagina de activacion")
else
' Message send failure
Response.Write ("An error has occurred.<BR>")
' Send error message
Response.Write ("The error was " & Mailer.Response)
end if
then
Dim ObjDB
Dim ObjRS
Dim Sql
strConnection = "driver={Microsoft Access Driver (*.mdb)}; server=ruta de la base de datos"
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open strConnection
Sql = "Insert Into Nombre Tabla (STATUS) values ("'"& Variable &"'")
Set ObjRS = ObjDB.Execute(Sql)
//response.Write(Sql)
%>
Gracias por adelantado.
