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>