sto creando una mailing list ma mi da errore !
SET dbprimo=server.createobject("adodb.connection")
set rs_newsl = server.createobject("adodb.recordset")
dbprimo.OPEN sConnessUNO
sSql = "SELECT * FROM mailing WHERE categoria = '" & che_categoria & "' AND regione = '" & che_regione & "'"
rs_newsl.OPEN sSql, dbPrimo
DO WHILE NOT rs_newsl.EOF
objCDOMail.BCc = rs_newsl.form("email") ' Cc
'objCDOMail.BCc = "gianniserena@virgilio.it" ' Cc
objCDOMail.Subject = "Newsletter" ' Subject
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
' Invia il messaggio
objCDOMail.Send
' ----------------------------------------------------------------
rs_newsl.MOVENEXT
LOOP
Set objCDOMail = Nothing ' Setta l'oggetto a nothing
%>

Rispondi quotando