Baja en newsletter

[Laika]

Hola,

he hecho una página .asp que conecta con una base de datos y envia 1 mail a cada dirección de cada registro.

Al final quiero poner un enlace que sea "si quieres darte de baja pulsa aqui" y que al pulsar automaticamente se me borre de la base de datos.

¿Cómo puedo hacer esto?Quiero que se me borren todos los datos de esa persona.

Saludos

[AlZuwaga]

poné un enlace del tipo... http://tu-sitio.com/[email protected]

luego en la página baja.asp recogés el id de usuario y eliminás el registro..

sql = "delete from tabla where email = '" & Request.QueryString("email") & "' AND userID = " & Request.QueryString("UserID")

agregué el email tambien para que sea más dificil que algún malvado se dedique a eliminarte suscriptores con sólo poner números de usuarios en la URL

otra cosita... yo no los eliminaría, sino que los marcaría como "no suscriptos" y así mantengo sus datos

[Laika]

Muchas gracias dazuaga,

Voy a ver que tal lo hago, me lo has explocadop muy bien así que no creo que tenga problemas.

Un saludo

Laika.

[maestro]

Opino como dazuaga, añade a tu tabla un campo llamado suscrito de tipo TRUE/FALSE y asi no pierdes los datos del usuario aunque se de de daja en la newsletter.

En vez de hacer una consulta de eliminacion haz un consulta de actualizacion y varia ese valor.

[Laika]

Hola de nuevo,

1 cosilla,

Si una persona decide darse de baja, legalmente no se debe de borrar de la base de datos y perder yo elcontrol de sus datos?

Saludoss

[bakanzipp]

jajaja...legalmente si...

pero...bueno...eso se supone que es criterio de las empresas de internet

[Laika]

Si el link que tengo que poner es este:

http://tu-sitio.com/[email protected]

El supuesto UserID (232332) y el supuesto mail ([email protected]) los tengo que coger de la base de datos.

Si en mi base de datos los UserID estan en el campo id y el mail en el campo mail que seria asi?:

http://tu-sitio.com/baja.asp?UserID=id&email=mail

Saludos

[Laika]

es que o me funciona asi.

¿Que esta mal?

Saludoss

[Laika]

Lo tengo puesto dentro del cuerpo del mensaje que voy a mandar a traves de aspemail:

.
.
.
mensaje=mensaje & "<p align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Si no desea recibir nuestros boletines de informaci&oacute;n, haga click <a href='http://www.xxx.com/baja.asp?id=id&email=email>aqui.</a></font></p>
.
.
.

Me llega el mail y en el enlace la id y el mail no me aparecen, me aparece:

http://www.xxx.com/baja.asp?id=id&email=email
_________________________________________________

y en baja.asp tengo este código .asp:

<%
Set Conn = Server.Createobject("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Conn.Open "basedatos"

Set Ob_RS=Ob_Conn.Execute ("DELETE FROM tabla where email = '" & Request.QueryString("email") & "' AND id = " & Request.QueryString("id")") (Aqui da error de sintaxis creo, ver abajo)

Ob_RS.Update
Ob_RS.Close
Conn.Close()
%>

ESTE ES EL ERROR DE BAJA.ASP

Error de compilación de Microsoft VBScript error '800a0409'

Constante de cadena sin terminar

/plantilla_mail/baja.asp, line 5

Set Ob_RS=Ob_Conn.Execute ("DELETE FROM tabla where email = '" & Request.QueryString("email") & "' AND id = " & Request.QueryString("id")")
---------------------------------------------------------------------------------------------------------------------------------------------------^

¿Por favor mepodeis ayudar con todo esto? Me estoy volviendo un poco loco de probar tantas cosas.

Gracias y un saludo

[deprabado]

Esta ma en la parte que envias el mail, estas asignando los valores asi:

id=id
mail=mail

y debes asignarle el valor de la base de datos asi:
id="& registros.Fields("ID").Value&"'
mail="& registros.Fields("ID").Value&"'

claro con tu conexion a la bd y eso...
una pregunta si tu campo id es autonumerico y sin duplicados por que no solo envias el id en ve sde ambos campos? yo lo hago asi.

[Laika]

Me ha quedado asi:

<a href='http://www.xxx.com/baja.asp?id="& Rs.Fields("id").Value&"' & email="& Rs.Fields("email").Value&"' >aqui.</a>

Me llega elmail y en el enlace me lega perfectamente la id pero no el email.

Quiero también el email para hacerlo más seguro.

¿Me está fallando algo al concatenar id con email?, ¿en baja.asp cuál es el error de sintaxis?

Muchas gracias y un saludo

[AlZuwaga]

una pregunta si tu campo id es autonumerico y sin duplicados por que no solo envias el id en ve sde ambos campos? yo lo hago asi

porque así es menos facil que alguien se ponga a eliminar registros probando números de usuarios aleatorios.

[Laika]

<a href='http://www.glassinter.com/plantilla_mail/baja.asp?id="& Rs.Fields("id").Value&"' & email="& Rs.Fields("email").Value&"' >aqui.</a>

Recibo sólo la id en el mail falta el email. Esta malla sintaxis o las comas??

Ayuda porfiss

[Laika]

Bueno,

Parece que probando y probando esta parte ya esta,me llegan la id y el mail pero al pulsar en el link y ir a baja.asp me vuelve a dar eror de sintaxis.:

ESTE ES EL ERROR DE BAJA.ASP

Error de compilación de Microsoft VBScript error '800a0409'

Constante de cadena sin terminar

/plantilla_mail/baja.asp, line 5

Set Ob_RS=Ob_Conn.Execute ("DELETE FROM tabla where email = '" & Request.QueryString("email") & "' AND id = " & Request.QueryString("id")")

Veis vosotros el error?

[Laika]

La sintaxis me ha quedado así:

Set Ob_RS=Ob_Conn.Execute ("DELETE FROM form_aoficial2 where email = '" & Request.QueryString("email") & "' AND id = '"&Request.QueryString("id") & "' ")

Ya nome da error de sintaxis pero me da:

HTTP 500 - Error interno del servidor
Internet Explorer y me aparece que nose puede mostrar lapágina.

Lo que veo en la barra de direcciones de baja.asp es esto:

http://www.xxx.com/baja.asp?id=2%20&%[email protected]

¿Cuál es el error?

Saludos

[Laika]

Este es el codigo .asp de mi página baja .asp

<%
Set Conn = Server.Createobject("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
Conn.Open "basedatos.com"
Set Ob_RS=Ob_Conn.Execute ("DELETE FROM tabla where email = '" & Request.QueryString("email") & "' AND id = '"&Request.QueryString("id") & "' ")

Ob_RS.Update
Ob_RS.Close
Conn.Close()

If Err <> 0 Then
Response.Write "Se ha producido un error: " & Err.Description
End If

%>

Me aparece error interno del servidor (error 500)

Ayudaaa

[bakanzipp]

Set Conn = Server.Createobject("ADODB.Connection")
Set Ob_RS = Server.CreateObject ("ADODB.RecordSet")
sql="DELETE FROM tabla where email = '" & Request.QueryString("email") & "' AND id = '"&Request.QueryString("id") & "' "

ON ERROR RESUME NEXT
Set Ob_RS=Ob_Conn.Execute(sql)
'Conn.Open "basedatos.com" NO ENTIENDO ESTO, ESA ES LA CONEXION A TU BASE DE DATOS????

If Err.number<>0 then
Response.Write "Se ha producido un error: " & Err.Description
response.end
End If

si Request.QueryString("id") es numerico...quitale la comilla simple de la asignacion en el sql.