Invio MAILING LIST in CDONTS codice esatto???????

[adrianaoliveira]

Cari amici siamo ancora noi,

abbiamo un'altro tema da proporvi,

noi abbiamo un database con inserite nella colonna "email"

tutte le e-mail degli iscritti e ogni tanto vorremmo inviare a tutti gli iscritti informazioni relative al sito con CDONTS


abbiamo scritto il codice ma prima di fare casini con i nostri utenti

vorremmo una certificazione di garanzia da voi SUPER eroi e SUPER tecnici.

secondo voi questo codice per inviare il post alla mailing list va bene????




<%


Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dsn_Natal"

SQL="SELECT * FROM email WHERE IDutente>= 1
Set Rec = Conn.Execute(sql)


' creo il ciclo

if rec.eof then

response.write(" Non ci sono e-mail")

else



' ora imposto la mail
set objCDOmail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = arturovilla@tiscali.it
objCDOMail.To = <%=rec("email")%>
objCDOMail.Subject = "NatalMercado.com"

' creo il testo
testo = "ciao bla,bla,bla


objCDOMail.Body = (testo)
objCDOMail.Send

rec.movenext
End if

set objCDOMail = Nothing
set Rec = Nothing
%>



GRAZIE SIN DA ORA.

Come vedete stiamo diventando dipendenti dalle vostre consulenze


arturo juciara

www.brasile-natal.com

[Pius]

<%


Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "dsn_Natal"

SQL="SELECT * FROM email WHERE IDutente>= 1
Set Rec = Conn.Execute(sql)


' creo il ciclo

if rec.eof then

response.write(" Non ci sono e-mail")

else

do while not rec.eof

indirizzo = rec.fields("email").value

' ora imposto la mail
set objCDOmail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "arturovilla@tiscali.it"
objCDOMail.To = indirizzo
objCDOMail.Subject = "NatalMercado.com"

' creo il testo
testo = "ciao bla,bla,bla"


objCDOMail.Body = (testo)
objCDOMail.Send

set objCDOMail = Nothing
rec.movenext
loop

End if
'Qui chiudo il recordset
rec.close
set Rec = Nothing

%>


Così dovrebbe funzionare.
Errori:
1) L'indirizzo e-mail nel campo from deve essere tra virgolette
2) Ti ho creato la variabile indirizzo, meglio così
3) il movenext senza loop non va , da errore nel ciclo
4) Il testo da inviare deve essere tra virgolette
5) Se chiudi il recordset all'interno di ogni ciclo.....crei un loop infinito! E mandi infinite e-mail al primo iscritto della mailing list finchè il server non va in timeout! Quindi circa 400 email...poi dipende dalla banda che ti mette a disposizione il server.
6) Attenzione alla connessione con DNS. La maggior parte dei provider non la supportano. Ti conviene impostarla direttamente DNS-Less
7) Hai la DLL cdonts installata sul ISS vero?
8) Il tuo provider supporta Cdonts? Quelli di ultima generazione vanno solo con CDOSYS

[adrianaoliveira]

Allora vediamo se riesco a capire, perche il senso di questo forum credo sia

quello di aiutare gli altri a capire non a confezzionare applicazioni su misura,

per questo giustamente ci sono i servizi a pagamento.

-----------------------------------------------------------------------------------

punto 1: ok questa é solo una svista il concetto virgolette lo abbiamo assimilato

(in parte, :-) non mettetemi alla prova con uno dei vostri tranelli, siete troppo forti,

lasciateci crescere con calma, un passo alla volta ).

------------------------------------------------------------------------------------

punto 2: perché crei la variabile indirizzo e perché é meglio cosi non l'ho capito

il comando ( rec.fields("email").value ) non lo conosco e non capisco a cosa serva.

perché in

 objCDOMail.From = "arturovilla@tiscali.it"

hai messo le virgolette e in

 objCDOMail.To = indirizzo

non le hai messe??? calcola che "arturovilla@tiscali.it" arriva da un form

quindi sará una variabile grappata con coluicheinvia= Request.QueryString("coluicheinvia")

chiaro!!!! tu non sapevi questo ma adesso che sai ti chiedo:

 objCDOMail.From = "arturovilla@tiscali.it"

va ugualmente in virgolette o posso scrivere

 objCDOMail.From = coluicheinvia

-----------------------------------------------------------------------------------

punto 3: chiaro il loop ci vuole ( l'ho dimenticato perché parlare <%VBScript%> é molto piú

difficile che parlare il PORTOGHESE ...... ho sbagliato ma il concetto lo comprendo.

---------------------------------------------------------------------------------

punto 4: anche qui puoi notare che é una svista ( da non trascurare chiaro!!!!! <%VBScript%> non ti perdona mai

se la vita fosse cosí con tutti gli errori che ho fatto sarei spacciato ;_) )

peró le virgolette le avevo aperte dimenticandomi di chiderle.

--------------------------------------------------------------------------------------

punto 5: scusa ma end if non é la fine del ciclo???

allora non ho capito, secondo la mia ignoranza tu chiudi

set objCDOMail = Nothing

prima del ciclo perché scrivi

set objCDOMail = Nothing

prima di

rec.movenext 
loop 

End if

sia chiaro, non ti metto in discussione solo ti esprimo il mio ignorante ragionamento

dopodiché tu penserai, ( siamo ancora bassi )

si siamo bassi, non di statura perche segno un 1.85 m

-----------------------------------------------------------------------------------

punto 6/7/8 tutto OK gia uso questo invio senza ciclo e tutto funziona.

------------------------------------------------------------------------------------

punto 9: da quando vi frequento sono in AUTOANALISI

ho abbandonato l'italia perche mi sentivo diverso, perché nella vita quotidiana

non incontravo gente come voi e adesso dal mio esilio trovo

quello che credevo da noi impossibile::::::

mi viene da piangere ma non in stringa............

per d'avvero piango lacrime vere, il problema é mio CHIARAMENTE

voi siete solamente il petalo che attizza.

------------------------------------------------------------------------------


arturo juciara

www.brasile-natal.com