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")