MI programa es:
<%@ language="VBScript" %>
<OBJECT RUNAT=SERVER PROGID="Persits.MailSender" ID="Mail">
</OBJECT>
<%
'recogemos los datos del formulario
de = Request.Form("obt_email")
para= "
[email protected]", "lidia"
sujeto = Request.Form("asunto")
mensaje = Request.Form("message")
Set Mail= Server.CreateObject("Persits.MailSender" )
Mail.Host = "pop3.ts.es"
Mail.From= de
Mail.AddAddress para
Mail.Subject= sujeto
'el mensaje en formato html
Mail.IsHTML= True
Mail.Body = "<HTML><BODY><p><font face=verdana size=2>De: "&de&"<br>Mensaje: "&mensaje&"<br><br>& lt;/p><br>Enviado el "& Now() &"</font></BODY></HTML>"
On Error Resume Next
Mail.Send
If Err<>0 then
Response.Write "error:"
&Err.Description
End if
%>
Para utilizar el componente CDONTS, de donde lo saco y donde lo descargo?