Ya que el te lo ha puesto con CDONTS yo te paso uno con ASPEMAIL.
registro.htm
<form method="POST" action="alta.asp">
<input type="text" name="email" size="20">
<input type="submit" value="Enviar">
<input type="reset" value="Restablecer">
</form>
alta.asp
<%
email=request("email")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.tusitio.com"
Mail.From = "
[email protected]"
Mail.FromName = "Departamento de Altas"
Mail.AddAddress email
Mail.Subject = " Tu registro en
www.tusitio.com"
Mail.body = "Gracias por registrarte, etc etc etc"
On Error Resume Next
Mail.Send ' ó Mail.SendToQueue
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
%>