Originariamente inviato da albis
ORACLE !!!!!
c'havete li sordi è !!!!!!!!!

ce li avessi io...ehehehe


cmq ti posto di nuovo il codice perchè c'è uno strano errore:
<%
dim rs_mod
set rs_mod=Server.CreateObject("ADODB.Recordset")

sql3="select * from comunicati where id_com in (" & news & ")"


rs_mod.open sql3, conn

record=0
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "miamail@XXXXX.it"
miaMail.To = "miamail@XXXXX.it"


dim rs
set rs=Server.CreateObject("ADODB.Recordset")
sql= "select mail from urp_nl_iscritti where iscritto = 1"
rs.Open sql, conn

record=0
do while not rs.EOF
record=record+1
mail = rs("mail")

miaMail.BCC = ""&mail&""

rs.movenext
loop
if record=0 then
response.write "nessun iscritto!!!"
end if
miaMail.Subject = "Newsletter"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 1


do while not rs_mod.EOF
record=record+1
titolo=rs_mod("TITOLO")
occhiello=rs_mod("occhiello")
argomento=rs_mod("argomento")


messaggio = "<table width=98% border=0 align=center cellpadding=2 cellspacing=1>"
messaggio = messaggio + "<tr>"
messaggio = messaggio + "<td>"&titolo&"</td>"
messaggio = messaggio + "</tr>"
messaggio = messaggio + "<tr>"
messaggio = messaggio + " <td>"&occhiello&"</td>"
messaggio = messaggio + "</tr>"
messaggio = messaggio + "<tr>"
messaggio = messaggio + " <td>"&argomento&"</td>"
messaggio = messaggio + "</tr>"
messaggio = messaggio + "</table>"

rs_mod.movenext

miaMail.Body = ""&messaggio&""

miaMail.Send

loop



Set miaMail = Nothing
%>

errore:
Tipo di errore:
(0x80040108)
/admin/nl/ins_newsletter.asp, line 83

cioè su miaMail.Body = ""&messaggio&"" ,
forse c'è qualche conflitto col ciclo sulla tabella degli utenti per prelevare le email...

stò fuso abbastanza oggi...