Mailing List verso Icq con CDONTS

Grazie al seguente script è possibile inviare una ML agli iscritti tramite ICQ. Per la spedizione della mail, viene usato il CDONTS.

<%

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 uin FROM partecipanti”

Set rs = Server.CreateObject(“ADODB.Recordset”)

rs.Open sql, conn ,3,3

rs.movefirst

do while not(rs.eof)

if trim(strDesti)<>”” then

strDesti= strDesti &”, “& rs(“uin”)

else

strDesti = rs(“uin”)

end if

strDesti = strDesti & “@pager.icq.com”

rs.movenext

loop

rs.Close

set rs = Nothing

conn.Close

set conn = Nothing

Set mail = Server.CreateObject(“CDONTS.NewMail”)

strFrom = request(“nome_mittente”) & “<” & request(“mail_mittente”) &”>”

mail.From = strFrom

mail.bcc = strDesti

mail.Body = request.form(“messaggio”) &” – messaggio inviato dal web www.innovatel.it ”

mail.To = Request(“UIN_destinatario”) &

mail.Subject = request.form(“titolo_messaggio”)

mail.Send

set mail = nothing

%>

I Video di HTML.it

Lorenzo Barbieri

Cosa fare e cosa non fare quando pubblichiamo una app nei marketplace