Bueno, gracias por la explicación de los componentes, no lo sabía.
Mira, he seguido tu consejo y va bien,
este es el código ya retocado. Como verás he suprimido el campo del formulario PARA y lo he puesto para que se envía automaticamente hacía mi, pa que el visitante no tenga que escribir mi email. Este es el código.
<%
' change to address of your own SMTP server
strHost = "www.misitio.com"
If Request("Send") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender" )
' enter valid SMTP host
Mail.Host = strHost
Mail.From = Request("From") ' From address
Mail.FromName = Request("FromName") ' optional
Mail.AddAddress "
[email protected]"
' message subject
Mail.Subject = Request("Subject")
' message body
Mail.Body = Request("Body")
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>
<HTML>
<HEAD>
<TITLE>Sugencias</TITLE>
<base target="_self">
<style>
<!--//A:link {text-decoration: none;}A:visited {text-decoration: none;}//-->
</style>
</HEAD>
<style>
<!--//A:link {text-decoration: none;}A:visited {text-decoration: none;}//-->
</style>
<BODY BGCOLOR="#FFFFFF" bgproperties="fixed" vlink="#0000FF" background="images/FONDO.jpg">
<p align="center">
<img src="images/ICONOS/sugerencias.gif"> &nbsp;<img src="images/Letras/sugerencias.gif"></p>
<BODY BGCOLOR="#FFFFFF" bgproperties="fixed" vlink="#0000FF" background="images/FONDO.jpg">
</BODY></p>
<% If strErr <> "" Then %>
<h3 align="center"><FONT COLOR="#FF0000">¡ERROR! asegurate de rellenar el campo
<u>Tu dirección de correo</u>.</FONT></h3>
<% End If %>
<% If bSuccess Then %>
<p align="center">
<font size="4">&nbsp;</font><FONT COLOR="#00A000"><font size="4">Tu mensaje se ha enviado con éxito</font>&nbsp;&nbsp;&nbsp;&nbsp;&a mp;nbsp;&nbsp;
</FONT><img src="images/edu.gif"><% End If %> </p>
<FORM METHOD="POST" ACTION="Sugerencias.asp" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
<div align="center">
<center>
<TABLE CELLSPACING=0 CELLPADDING=2 BGCOLOR="#E0E0E0" style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD align="center">Este mensaje se enviará por:</TD>
<TD><B><% = strHost %></B></TD>
</TR>
<TR>
<TD align="center">Tu dirección de correo:</TD>
<TD><INPUT NAME="From" size="25"></TD>
</TR>
<TR>
<TD align="center">Nombre y apellidos:</TD>
<TD><INPUT NAME="FromName" size="25"></TD>
</TR>
<TR>
<TD align="center">Asunto:</TD>
<TD><INPUT NAME="Subject" size="25"></TD>
</TR>
<TR>
<TD align="center">Mensaje:</TD>
<TD>
<!--webbot bot="Validation" s-display-name="ERROR NO HAS ESCRITO NINGUN MENSAJE" b-value-required="TRUE" --><TEXTAREA NAME="Body" rows="3" cols="25"></TEXTAREA></TD>
</TR>
<TR>
<TD COLSPAN=2>
<p align="center">
<INPUT TYPE="submit" NAME="Send" VALUE="Enviar mensaje"></TD>
</TR>
</TABLE>
</center>
</div>
</FORM>
</BODY></HTML>