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>