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
%>