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>