Invio newsletter massiva

[ubbicom]

Ciao a tutti.

Prendendo spunto da alcune discussioni trovate su questo forum, mi sono costruito una pagina ASP che invia, tramite il server, una newsletter agli utenti registrati alla pagina.

Prima eseguo la query SELECT sulla tabella, in questo modo:

SQL = "SELECT * FROM tab_Utenti "
SQL = SQL & " WHERE ( esitoEmail =  0 ) "
SQL = SQL & " LIMIT 75 "

Poi, all'interno di un while not... wend, aggiorno la tabella in questo modo:

str_update = "UPDATE tab_Utenti SET "
str_update = str_update & " EsitoEmail = 1 "
str_update = str_update & " WHERE ID = " & objRS("Id")
objconn.execute (str_update)

L'unica cosa che non riesco a fare è riportare, alla fine dell'invio della newsletter, al valore 0 il campo esitoEmail di tutti gli utenti per riutilizzare successivamente lo stesso codice, ma devo invertire manualmente nelle due query il valore di esitoEmail.

Come posso risolvere?
Grazie

[Roby_72]

str_update = "UPDATE tab_Utenti SET EsitoEmail = 0"
objconn.execute (str_update)

Puoi farlo alla fine dell'invio oppure prima dell'invio della newsletter successiva. Non cambia.

Roby

[ubbicom]

Originariamente inviato da Roby_72

str_update = "UPDATE tab_Utenti SET EsitoEmail = 0"
objconn.execute (str_update)

Puoi farlo alla fine dell'invio oppure prima dell'invio della newsletter successiva. Non cambia.

Roby

Grazie x aver risposto, ma credo di non aver capito... la pagina non si ferma più di mandare email...

Function JSRedirect(Byval secondi)
	With Response
		.Write("<script language=""JavaScript"">" & vbCrLf) 
		.Write("<!--" & vbCrLf) 
		.Write("function redirect() {" & vbCrLf) 
		.Write("window.location = '" & url & "';" & vbCrLf) 
		.Write("}" & vbCrLf) 
		.Write("timer = setTimeout('redirect()', '" & (secondi * 1000) & "');" & vbCrLf) 
		.Write("-->" & vbCrLf) 
		.Write("</script>" & vbCrLf) 
	End With
End Function


SQL = "SELECT * FROM tab_Utenti "
SQL = SQL & " WHERE ( esitoEmail =  0 ) "
SQL = SQL & " LIMIT 75 "

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, objconn

if objRS.eof then
   response.write "invio terminato!

"
   
else


while not objRS.eof 

'CODICE INVIO EMAIL...

str_update = "UPDATE tab_Utenti SET "
str_update = str_update & " EsitoEmail = 1 "
str_update = str_update & " WHERE id = " & objRS("Id")
objconn.execute (str_update)

objRS.movenext
wend

response.write (JSRedirect(15))

end if

str_update_1 = "UPDATE tab_Utenti SET EsitoEmail = 0"
objconn.execute (str_update_1)

[Roby_72]

Fai una ricerca nel forum per "invio a blocchi"

Roby

[ubbicom]

Originariamente inviato da Roby_72
Fai una ricerca nel forum per "invio a blocchi"

Roby

L'ho fatto prima di postare:

http://forum.html.it/forum/search.ph...by=&sortorder=

ma non c'è niente che mi aiuta...