Grazie al seguente script è possibile generare una mailig list tramite il componente VSEmail2.
<%
'Connessione al database
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("mail.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open (strConn)
sql = "SELECT email, nome, cognome FROM partecipanti"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
Set email=server.createObject("VSEmail.SMTPSendMailEx")
email.host="smtp.mio_sito.it"
do while not(rs.eof)
email.BCCList.Add(rs("nome") &" "& rs("cognome"),rs("email"))
rs.movenext
loop
email.Sender.Name="Carratta Andrea"
email.Sender.Address="webmaster@innovatel.it"
email.ReplyTo.Name="Carratta Andrea"
email.ReplyTo.Address="webmaster@innovatel.it"
email.Body = "Testo della mail"
email.Connect
email.Send
email.Disconnect
set email = Nothing
'Chiusura del database
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
Il componente richiesto è scaricabile presso [url=http://www.nevrona.com/indy]http://www.nevrona.com/indy[/url]