problema con newsletter

[massi71]

ho questo problema:
sto ultimando un sistema d invio mail ad utenti ch s isino registrati;

chi gestirà questo sistema dovrà selzionare da una lista di news cosa inviare agli utenti;

questa persona seleziona spuntando check box da questa lista di news, dopodichè, cliccando su pubblica partirà questa email agli utenti;

prelevando con request.form gli id delle news, li devo splittare con split...da questi id separati posso costruire una tabella con un cliclo dove possono essere visualizzate le news, titolo, descrizione, ect;

come posso inserire in miaMail.Body = ""&messaggio&"" usando cdonts
il risultato di questo recordset?

in praticam i trovo sempre e solo il primo record!

posto unm pò di codice:
news = split((news),",")

for i=0 to ubound(news)
newsnl = news(i)
dim rs_mod
set rs_mod=Server.CreateObject("ADODB.Recordset")

sql3="select * from comunicati where id_com="&newsnl

rs_mod.open sql3, conn

record=0
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
loop

next



Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mail"
miaMail.To = "mail"








miaMail.Subject = "Newsletter"
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 1


miaMail.Body = ""&messaggio&""



miaMail.Send
Set miaMail = Nothing

[albis]

<%

dim rs_mod 
set rs_mod=Server.CreateObject("ADODB.Recordset") 

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

rs_mod.open sql3, conn 

record=0 
Dim miaMail 
Set miaMail = CreateObject("CDONTS.NewMail") 
miaMail.From = "mail" 
miaMail.To = "mail" 
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



%>

[massi71]

dim rs_mod
set rs_mod=Server.CreateObject("ADODB.Recordset")

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

rs_mod.open sql3, conn

grazie ma..

come splitto gli id?

[massi71]

infatto ho questo errore

ORA-00920: operatore relazionale non valido


nb. il db è oracle 8.1

[albis]

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



ORACLE !!!!!

c'havete li sordi è !!!!!!!!!

[massi71]

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

[albis]

prova così

<%

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 



do while not rs_mod.EOF 

Set miaMail = CreateObject("CDONTS.NewMail") 
miaMail.From = "mail" 
miaMail.To = "mail" 
miaMail.Subject = "Newsletter" 
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0 
miaMail.Importance = 1 

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 

Set miaMail = Nothing

loop 







%>

[massi71]

grazie per la pazienza e l'ostinazione (come me..)..però c'è l'errore:
Necessario oggetto
su questa riga: miaMail.Body = ""&messaggio&""


strano, visto che l'oggetto esiste!

inotlre la email parte ma si vede solo il primo record...

[albis]

hai fatto copia incolla del codice che ti ho indicato ?

[massi71]

Originariamente inviato da albis
hai fatto copia incolla del codice che ti ho indicato ?

in parte...ma mi sembra strano che il loop prenda solo il primo record..

se faccio un response.write messaggio mi ritrovo la tabella formattata con tutti i record selezionati...