Necesito ocultar los correos de las páginas de anuncios clasificados

Cameron_2006 · #1 (**permalink**) 27/12/2006, 14:04

Hola, me gustaría saber si me pueden ayudar en lo siguiente: Estoy diseñando una página web de anuncios con tecnología ASP, y quiero que el usuario coloque su correo electrónico en el formulario para que los usuarios inetersados le puedan escribir, pero quiero que el código que rescata los datos de la base de datos no coloque en la página web el correo electrónico sino que coloque una imagen que al pinchar el interesado pueda enviarle un correo a ese usuario. Es para protegerlo del spam. Gracias!

Myakire · #2 (**permalink**) 27/12/2006, 14:10

Pues nada, en lugar del correo pones la imagen que llame a un formulario para que sea llenado y tu mandas el correo, el usuario nunca vería el correo del susodicho.

mmmm, pero, ¿cuál es la duda específica?

Cameron_2006 · #3 (**permalink**) 28/12/2006, 09:24

Muchas gracias por tomarte la molestia de responder a mi pregunta, y te comento que eso estaría bien si fuera un sólo mensaje al que responder, pero espero que esta página tenga muchas visitas de usuarios y quiero que cada uno de esos visitantes, de forma independiente, envie al anunciante su correo. No se si me explico bien, mi objetivo es que el visitante pinche en esa imagen y se abra el correo outlook con la dirección de correo del anunciante. Gracias por tu atención.

Myakire · #4 (**permalink**) 28/12/2006, 09:34

Pues lo que quieres es una simple etiqueta <a href="mailto:[email protected]>Enviar correo</a>, pero hay cosillas específicas de esa instrucción, la más evidente es que debes de colocar el correo del anunciante en la página y como tu dices, no quieres hacerlo.

Aca un tutorial.

Pero creo que es mejor la primer opción que te mencioné, la del formulario, con eso no es necesario que el usuario tenga configurado un cliente de correo ¿no crees?

3pies · #5 (**permalink**) 28/12/2006, 09:42

Aparte de lo apuntado por el maestro Myakire, si vas a utilizar la etiqueta <a href="mailto..." ...>, para evitar que los anunciantes reciban spam, puedes utilizar una función en javascript, como esta: función para evitar el spam.

Salu2

Cameron_2006 · #6 (**permalink**) 28/12/2006, 09:52

Gracias a los 2, voy a probarlo. y les cuento.

Cameron_2006 · #7 (**permalink**) 30/12/2006, 14:07

Aquí estoy yo nuevamente, y he de confesarles que soy muy nueva configurando con ASP, por lo que pido mil disculpas anticipadas por los "Horrores que pueda cometer".

Dicho esto, les comento los resultados obtenidos, hice o creo que hice lo que dijo el maestro Myakire, pero tengo un error en el ASPMail que no se como resolver, ya que la idea es que el anunciante reciba el correo de mi parte y no directamente del visitante interesado (esto para proteger su dirección de correo). Ahora bien, me da este error:

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

Error de sintaxis

/ac/mensaje-enviado.asp, línea 48

Mail.AddAddress &rs8("correo")&
(esto es lo que dice en la fila 48 y aquí no se como hacer, ya que lo que hice fue sustraer de la base de datos el correo del anunciante... alguien me puede orientar con esto??)

Cameron_2006 · #8 (**permalink**) 30/12/2006, 14:08

Con tanto código olvidé darles las gracias anticipadas.

Gracias!!

Myakire · #9 (**permalink**) 02/01/2007, 18:44

Hubiera estado bien que pusieras todo el bloque de código para mandar correo, por que si solo pones la linea Mail.AddAddress &rs8("correo")& yo solo puedo decirte que esta demás el último ampersand.

Aca un tutorial de ASPMail

Saludos

Cameron_2006 · #10 (**permalink**) 03/01/2007, 03:41

Hola, gracias por responder, te estoy enviando el bloque completo.

<%
dim distintivo
distintivo=Request.querystring("distintivo")
%>
<head>

</head>

<body>

AQUI ESTA EL FORMULARIO DONDE EL USUARIO COLOCA SUS DATOS PARA ENVIAR AL ANUNCIANTE (nombre,correo,mensaje)

Ahora recogo los datos del formulario
<%
dim visitante, correo, mensaje
usuario=request.form("nombre")
correo=request.form("correo")
mensaje=request.form("mensaje")

Set conn8=Server.CreateObject("ADODB.Connection") 'creo objeto connection
conn8.open "miservidor.base de datos" 'identifico mi conexión al servidor"
Set rs8=Server.CreateObject("ADODB.RecordSet")
Ssql8="select * from anuncios where id="&distintivo
rs8.open Ssql8,conn8,1,2
%>

<%
if not rs8.eof then

'correo=correo"&Rse("correo")
cuerpo=" <p><font face='Arial' size='2'>Estimado(a) Anunciante<br><br>"
cuerpo=cuerpo & " El "&usuario&"<BR><BR>"
cuerpo=cuerpo & " esta interesado en tu anuncio "&rs8("titulo")&"<BR><BR>"
cuerpo=cuerpo & " mensaje de "&usuario&":<br><BR>"
cuerpo=cuerpo & "<b>"&mensaje&"</b><br>"
cuerpo=cuerpo & " puedes contactar con "&usuario&" por medio del correo electrónico "&correo&"<br><br>"

Dim Mail

set Mail=Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.mi servidor"
Mail.From = [email protected]
Mail.FromName = "Avisos Clasificados"
Mail.AddAddress &rs8("correo")&
Mail.Subject = "Solicitud de información"
Mail.Body = cuerpo
Mail.IsHTML = true
On Error Resume Next
Mail.Send
%>

<%
if Err <> 0 Then
Response.Write ( "Error: " & Err.Description )
else
Response.Write ( "<font face='Arial' size='2'><center><b> Su mensaje ha sido enviado correctamente</b><br><br><A href='f.htm'>Cerrar esta ventana</a></center></font>" )
end if

Rs8.close
Set Rs8=Nothing
Conn8.close
Set Conn8=Nothing

'else
'response.write("<br><br><br><br><font face='Arial' size='3'><center><b>La dirección introducida no pertenece a ningún usuario.</b><br><br><a href='accesousuario.asp'>Vuelva a intentarlo</a></b><br><br>Gracias</center></font>")
end if

%>
</td>

</tr>

</div>
</body>
</html>

Myakire · #11 (**permalink**) 03/01/2007, 08:24

Cita:

Mail.Host = "smtp.mi servidor"
Mail.From = [email protected]
Mail.FromName = "Avisos Clasificados"
Mail.AddAddress &rs8("correo")&
Mail.Subject = "Solicitud de información"
Mail.Body = cuerpo
Mail.IsHTML = true
On Error Resume Next
Mail.Send

Bueno, ahora se confirma

, estan demás los ampersands, jeje

Saludos

Cameron_2006 · #12 (**permalink**) 03/01/2007, 09:09

Gracias, lo voy a probar a ver si ahora me sale...

Cameron_2006 · #13 (**permalink**) 03/01/2007, 09:39

Hola otra vez... mil gracias de verdad por tu gran ayuda, ahora me está llegando el correo vacio (que eso es bastante), así que voy colocarle una condición para que valide antes el formulario de que todos los campos esté llenos... a ver si eso resuelve el problema. Un saludo (aunque no creo que te de tiempo a hecharme de menos...

)

fcastro · #14 (**permalink**) 04/01/2007, 10:30

Ojo con ese código, estaba ahora viendolo y me ha veido un caso a la cabeza... asegúrate que te funciona en el servidor remoto y no sólo en tu ordenador... La razón es que cada día más servidores tienen SMTP que requieren autentificación y necesitan que les envíes los datos de acceso (correo y clave) para procesar el envío...

No sé si es tu caso, pero por lo que he visto si no estás probando en el servidor de producción asegúrate de hacerlo... si no funciona lo más seguro es que sea por eso.

Saludos a tod@s.

Cameron_2006 · #15 (**permalink**) 04/01/2007, 13:07

Hola Gracias, si estoy probando directamente en mi servidor externo donde tengo la web, es eso lo que me preguntas?

fcastro · #16 (**permalink**) 06/01/2007, 00:28

Si, sólo era una observación fruto de trabajar con varios servidores distintos durante años

.

Si algún día te falla (¿"inexplicablemente"?) acuérdate que un posible problema puede ser ese.

Un saludo.

Cameron_2006 · #17 (**permalink**) 06/01/2007, 05:33

Gracias Fran, lo tendré muy en cuenta.

El problema de ocultar el correo ya está resuelto, el problema que me queda es que al pinchar en el vínculo donde supuestamente me debe llevar al formulario que debo rellenar para enviar por correo al visitante, pues el proceso sigue sin más, no para en el formulario sino que sigue y envia el correo, y por supuesto llega al anunciante sin datos del visitante...

lo he puesto de mil y una manera la condición pero nada, alguien me podría ayudar? darme una lucecita con esto? este es el bloque del código donde además está el formulario.

<body>

<form name="form1" method="post" action="enviar-mensaje.asp">
<table width="500" border="1"><tr><td>nombre</td>
<td><label><input name="visitante" type="text" id="visitante" onBlur="MM_validateForm('visitante','','R');return document.MM_returnValue" size="50"></label></td></tr>
<tr><td>correo</td><td><label><input name="email" type="text" id="email" size="50"></label></td></tr>
<tr><td>mensaje</td><td><label><textarea name="mensaje" cols="50" rows="5" id="mensaje"></textarea></label></td></tr>
<tr><td><label><input name="enviar" type="submit" id="enviar" value="Enviar"></label></td>
<td><label><input name="cancelar" type="reset" id="cancelar" value="Restablecer"></label></td></tr>
</table>
</form>
<%

if request.form("nombre")="" or request.form("correo")="" or request.form("mensaje")="" then
response.write "Debe rellenar todos los campos"

ELSE

dim visitante, email, mensaje
visitante=request.form("nombre")
email=request.form("correo")
mensaje=request.form("mensaje")

dim usuario
distintivo=Request.querystring("distintivo")

Set conn8=Server.CreateObject("ADODB.Connection")
conn8.open "miservidor.mbd"
Set rs8=Server.CreateObject("ADODB.RecordSet")
Ssql8="select * from anuncios where id="&distintivo
rs8.open Ssql8,conn8,1,2
%>
<%
if not rs8.eof then

'correo=correo"&Rse("correo")
cuerpo=" <p><font face='Arial' size='2'>Estimado(a) Anunciante<br><br>"
cuerpo=cuerpo & " "&visitante&"<BR><BR>"
cuerpo=cuerpo & " esta interesado en tu anuncio "&rs8("titulo")&"<BR><BR>"
cuerpo=cuerpo & " mensaje de "&visitante&":<br><BR>"
cuerpo=cuerpo & "<b>"&mensaje&"</b><br>"
cuerpo=cuerpo & " puedes contactar con "&visitante&" por medio del correo electrónico "&email&"<br><br>"

Dim Mail

set Mail=Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.miservidor"
Mail.From = "anuncios_publicados@miservidor"
Mail.FromName = "Avisos Clasificados"
Mail.AddAddress rs8("correo")
Mail.Subject = "Solicitud de información"
Mail.Body = cuerpo
Mail.IsHTML = true
On Error Resume Next
Mail.Send
%>

<%
if Err <> 0 Then
Response.Write ( "Error: " & Err.Description )
else
Response.Write ( "<font face='Arial' size='2'><center><b> Su mensaje ha sido enviado correctamente</b><br><br><A href='f.htm'>Cerrar esta ventana</a></center></font>" )
end if

Rs8.close
Set Rs8=Nothing
Conn8.close
Set Conn8=Nothing

'else
'response.write("<br><br><br><br><font face='Arial' size='3'><center><b>La dirección introducida no pertenece a ningún usuario.</b><br><br><a href='accesousuario.asp'>Vuelva a intentarlo</a></b><br><br>Gracias</center></font>")
end if
END IF

%>
</td></tr>

</div>
</body>
</html>

fcastro · #18 (**permalink**) 06/01/2007, 11:28

Hola Cameron,

Echando un ojo rápido veo una cosilla... si te fijas en el IF tienes...

Código:

if request.form("nombre")="" or request.form("correo")="" or request.form("mensaje")="" then

Pero sin embargo, los campos se llaman visitante, email y mensaje...

Código:

<input name="visitante" type="text" id="visitante" onBlur="MM_validateForm('visitante','','R');return document.MM_returnValue" size="50">
<input name="email" type="text" id="email" size="50">
<textarea name="mensaje" cols="50" rows="5" id="mensaje"></textarea>

Sincroniza esos nombres si no no funcionará en la vida

Venga, suerte.

Cameron_2006 · #19 (**permalink**) 06/01/2007, 11:42

Gracias... es verdad... voy a probar a ver que pasa... un millosote!

Cameron_2006 · #20 (**permalink**) 06/01/2007, 12:02

Ya lo corregí, muchas gracias pero ahora se ejecuta todo (supuestamente) y el correo de aviso al anunciante no le llega....

fcastro · #21 (**permalink**) 06/01/2007, 12:24

Saca el on error resume next a ver que pasa...

Cameron_2006 · #22 (**permalink**) 06/01/2007, 12:33

Nada... sigue igual...

fcastro · #23 (**permalink**) 06/01/2007, 12:42

Unas cosillas...

El Mail.From = "anuncios_publicados@miservidor" asegúrate que sea un correo válido y mejor si es un correo local (del mismo servidor), puede haber algún problema con el relay del SMTP.

En Mail.AddAddress rs8("correo") asegúrate que existe esa variable, haz un response.write antes para comprobarlo... si no funciona, prueba a poner el correo con el que envías a ver si llega (significaría que posiblemente sólo esté enviando a los dominios locales)

Prueba a añadir los campos de autentificación por si hubiese problemas con el relay a un correo externo...

Mail.Username = "tu@correo"
Mail.Password = "tuclve"

Si sigue sin funcionar vuelve a pegar el código que tienes a ver que puede pasar...

pzin · #24 (**permalink**) 06/01/2007, 12:46

Email coder anti-spam

Cifra el html del correo electrónico.

Cameron_2006 · #25 (**permalink**) 07/01/2007, 07:12

Hola ...

bueno sigo con mi historia, la variable rs8("correo") es correcta, el Mail.From = "anuncios_publicados@miservidor" está correcto porque es un correo válido. Ahora bien, lo que hice también fue colocar un correo hacia mi servidor para verificar si era enviado o no, y efectivamente es enviado pero no al anunciante que vengo enlazando sino al primer "id", osea que no selecciona el "id" sino que lo envia al primero que consigue... alguien me podría decir como puedo hacer el código que condicione para que seleccione el "id" correcto del anunciante, y en que posición debo colocarlo. Gracias, y perdonen por favor a esta novata en el asunto.

Myakire · #26 (**permalink**) 07/01/2007, 07:59

Cita:

...y efectivamente es enviado pero no al anunciante que vengo enlazando sino al primer "id", osea que no selecciona el "id" sino que lo envia al primero que consigue...

¿quéee?, ¿podrias volver a explicar eso?, please

Cameron_2006 · #27 (**permalink**) 07/01/2007, 10:21

Gracias por responder. Ejemplo de lo que pasa en mi telenovela. Que es lo que tengo? pues tengo una base de datos con los campos: Id (autonumerico), titulo (titulo del anuncio), correo (email del anunciante).

Que es lo que quiero?
Quiero que en la página de resultados se muestre el titulo del anuncio, el mensaje, una imagen (que indique contacto), y el id.

Que hice en esa página?
rescaté todos los datos del anuncio pero coloqué este código en el enlace de la imagen: <a href=enviar-mensaje.asp?distintivo=<%=rs8("id")%> class="Estilo1"><img src="../../imagenes/contacto/correo.jpg" width="58" height="23"></a>

y en la página enviar-mensaje.asp, supuestamente recupero el "id" del anunciante y los datos del visitante y se los envio a su correo con el bloque del código que envio completo y que es lo que hace? pues envia el correo del visitante al primer anuncio que tengo en la base de datos :

<form name="form1" method="post" action="enviar-mensaje.asp">
<table width="500" border="1"><tr><td>nombre</td>
<td><label><input name="nombre" type="text" id="nombre" size="50"> </label></td></tr>
<tr><td>correo</td><td><label><input name="correo" type="text" id="correo" onBlur="MM_validateForm('correo','','RisEmail');re turn document.MM_returnValue" size="50"></label></td></tr>
<tr><td>mensaje</td><td><label><textarea name="mensaje" cols="50" rows="5" id="mensaje"></textarea></label></td></tr>
<tr><td><label><input name="enviar" type="submit" id="enviar" value="Enviar">
</label></td><td><label<input name="cancelar" type="reset" id="cancelar" value="Restablecer">
</label></td>
</tr>
</table>
</form>
<%

if request.form("nombre")="" or request.form("correo")="" or request.form("mensaje")="" then
response.write "Debe rellenar todos los campos"

ELSE

dim visitante, email, mensaje
visitante=request.form("nombre")
email=request.form("correo")
mensaje=request.form("mensaje")

dim distintivo
distintivo=Request.querystring("distintivo")

Set conn8=Server.CreateObject("ADODB.Connection")
conn8.open "miservidos.mbd"
Set rs8=Server.CreateObject("ADODB.RecordSet")
Ssql8="select correo, titulo from anuncios where 'id='"&distintivo
rs8.open Ssql8,conn8,1,2

%>
<%

if not rs8.eof then

cuerpo=" <p><font face='Arial' size='2'>Estimado(a) Anunciante<br><br>"
cuerpo=cuerpo & " "&visitante&"<BR><BR>"
cuerpo=cuerpo & " esta interesado en tu anuncio "&rs8("titulo")&"<BR><BR>"
cuerpo=cuerpo & " mensaje de "&visitante&":<br><BR>"
cuerpo=cuerpo & "<b>"&mensaje&"</b><br>"
cuerpo=cuerpo & " puedes contactar con "&visitante&" por medio del correo electrónico "&email&"<br><br>"

Dim Mail

set Mail=Server.CreateObject("Persits.MailSender")

Mail.Host = "smtp.miservidor"
Mail.From = "anuncios_publicados@miservidor"
Mail.FromName = "Avisos Clasificados"
Mail.AddAddress rs8("correo")
Mail.AddBCC "anuncios_publicados@miservidor"
Mail.Subject = "Solicitud de información"
Mail.Body = cuerpo
Mail.IsHTML = true
On Error Resume Next
Mail.Send
%>

<%
if Err <> 0 Then
Response.Write ( "Error: " & Err.Description )
else
Response.Write ( "<font face='Arial' size='2'><center><b> Su mensaje ha sido enviado correctamente</b><br><br><A href='f.htm'>Cerrar esta ventana</a></center></font>" )
end if

Rs8.close
Set Rs8=Nothing
Conn8.close
Set Conn8=Nothing

'else
'response.write("<br><br><br><br><font face='Arial' size='3'><center><b>La dirección introducida no pertenece a ningún usuario.</b><br><br><a href='accesousuario.asp'>Vuelva a intentarlo</a></b><br><br>Gracias</center></font>")
end if
END IF

%>
</div>
</body>
</html>

Cameron_2006 · #28 (**permalink**) 07/01/2007, 10:29

corrección: en la página se muestra la descripción del anuncio que es otro campo que tengo en mi base de datos y la fecha

Myakire · #29 (**permalink**) 07/01/2007, 14:29

a ver, dudo que ese código te mande un correo a ti, ya que a "golpe de vista" tienes un error de sintaxis en esta linea:

Ssql8="select correo, titulo from anuncios where 'id='"&distintivo

Supongo que en realidad querias algo como esto:

Ssql8="select correo, titulo from anuncios where id='"&distintivo &"'"

Pero no tiene caso ya que mencionas que ID es autonumérico, así que solo debería estar como :

Ssql8="select correo, titulo from anuncios where id='" & distintivo

Pero, por otro lado mandas el parámetro "distitivo" a la página del formulario (que no mencionas como se llama, pero supongo que no es enviar-mensaje.asp (¿o si?), si no lo es, pues debes "acarrear" el valor de "distintivo" con un campo oculto:

<input name="distintivo" type="hidden" value="<%=Request.QueryString("distintivo")%>">

Luego, en el la página que mandas el correo, lo recuperas pero ya no como QueryString sino como Form:

dim distintivo
distintivo=Request.Form("distintivo")

Ve corriguiendo esos detalles, y nos cuentas.

Saludos

distintivo=Request.querystring("distintivo")

Cameron_2006 · #30 (**permalink**) 10/01/2007, 11:40

Myakire, un millón de gracias de verdad! con tu gran ayuda (sin menospreciar a los demás compañeros del foro que también me han enviado sus ideas y sugerencias) he podido resolver este problema. Un saludo y hasta pronto!