Sistema de Lista de Correo

[toniveas]

Hola compañeros!

Para automatizar algunas de las tareas que realizo en la web www.tvmataro.com necesito un sistema de lista de correo.
Ahora, los visitantes se pueden registrar a un boletín de noticias, insertando su email en un formulario que me llega por correo electrónico, y yo agrego esa nueva dirección a una lista de contactos para poderles enviar a todos los visitantes registrados el mismo mensaje.

Yo creo que es posible, y quizás ya se ha hecho, un sistema ASP, que recoja el email que introduzca el visitante en el formulario y la agrege a una base de datos. Después otro formulario, este inaccesible desde las páginas del servidor (sin ningun enlace que les relacione con las páginas públicas), donde yo poder introducir el texto que deseo enviar a todas las direcciones de correo electrónico que estén almacenadas en esa base de datos.

¿Alguien tiene o sabe donde podría conseguir este sistema?, ya se que me lo podria hacer yo, y que incluso alguien de ustedes me proporcionaria un enlace a algun tutorial de ASP, pero soy muy gandul y lo quiero todo hecho, soy realista.

Además, si alguien lo necesita, puedo conpartir, a cambio (y solo a cambio) alguno de los sistemas ASP que tengo en esa web (un foro sencillisimo de modificar y muy recomendable, un sistema de votaciones con porcentajes, sistema de enquesta, y un formulario ASP que se envia al correo electrónico deseado.)

Toni Veas.
www.tvmataro.com

Muchissimas gracias por anticipado.

[almaluz]

Como los cromos

[toniveas]

Ya tengo el formulario interno que se encargaria de autoenviarse a todos los correos electrónicos introducidos en una base de datos:

Formulario de envio: form.html

Código:

<form name="form1" method="post" action="proceso.asp">
<p>
<input name="asunto" type="text" id="asunto">
</p>
<p> 
<input name="mensaje" type="text" id="mensaje">
</p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>

ASP que procesa la información y la envia: proceso.asp

Código:

Set registros = conexion.Execute("SELECT * FROM tabla")
Do While Not registros.EOF
Recipient =registros.Fields("EMAIL").Value
Sender = "[email protected]"
titulo = Request.Form("asunto")
Texto =Request.Form("mensaje")
Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.BodyFormat = 0
oMail.MailFormat = 0
Recipient = registros.Fields("EMAIL").Value
oMail.Send Sender, Recipient, titulo, Texto
Set oMail = Nothing
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>

Ahora solo me falta el formulario en HTML que recoje la dirección de correo electrónico del visitante, y la envie a un ASP que compruebe que está bien escrita (osea texto delante y detrás de la arroba, y detrás de ese texto un punto y la extensión "[email protected]ón") en caso de que esté mal redactada se imprime un mensaje de alerta, y si la dirección se escribió correctamente se introduce en la BD. Si la dirección ya existe en la base de datos, se elimina de ella infomando al usuario que ha formalizado su baja de la BD.

¿Alguien sería tan amable de decirme cuales serían los codigos?

Muchas Gracias.