
23/01/2002, 00:12
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 23 años, 4 meses Puntos: 1 | |
Re: Autoresponders, Como se hace? aqui sigo,
mira supongo que tienes algo asi
1. una portada en donde tienes tu formulario con tu campo de texto para que el usuario mande su correo para inscribirse a tu boletin
2. una vez que tu usuario manda su e-mail tu debes recogerlo y meterlo a la base de datos cierto?
3. el codigo que te mande debe ir despues de que hayas ingresado el correo del usuario dentro de la base de datos, en esa misma pagina, solo que un poco mas abajo. Yo por ejemplo en el codigo que te mande isnerto los datos del usuario a mi base de datos por medio del recordset
.....
oRs("Password")=Request.Form("Passw ord")
oRs("Fecha")=Date
oRs.Update
oRs.Close
set oRs= nothing
oConn.Close
set oConn=nothing
y si te fijas despues de que ya meti los datos jalo los datos que me ingreso el usuario en este caso nombre de usuario y password
Usuario=Request.Form("Email")
Username=Request.Form("Id")
Password=Request.Form("Password")
despues establezco el cuerpo del e-mail
texto1="Bienvenido a Autocar.com.mx. A continuación le mencionamos los datos de su nueva cuenta en nuestro portal... Su nombre de usuario es: "&Username&" y su contraseña es: "&Password&"."
texto2="Gracias por confiar en nostros y esperamos que quede satisfecho con nuestro servicio. Para dudas o comentarios sobre Autocar.com.mx por favor envíe un correo a ...."
texto3=""
texto4=""
y al final de todo esto mando el correo
Set oMail1 = Server.CreateObject("SMTPsvg.Mailer")
oMail1.FromName = "Nombre del que envia"
oMail1.FromAddress= "Direccion por la cual envias"
oMail1.AddRecipient "", ""&Usuario&""
oMail1.RemoteHost = "servidor de correo por el cual envias"
oMail1.Subject = "Tu subject"
oMail1.BodyText = texto1 & " " & texto2 & " " & texto3 & " " & texto4
If oMail1.SendMail Then
Response.Write ""
Else
Response.Write "Mail not sent, send failure. Error was " & oMail1.Response & "<br>"
End If
oMail1.ClearAllRecipients
oMail1.ClearBodyText
Set oMail1 = Nothing
salu2 ;) :)
<embed src="http://www.autocar.com.mx/images/logo.swf" type="application/x-shockwave-flash" width="468" height="60" play="true" wmode="transparent" menu="false" loop="true"> |