Mailing List verso ICQ

Questo script permette di inviare una ML agli iscritti tramite ICQ. Per l'invio della email 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
%>