Invio a blocchi di email

[cms9651]

Ciao a tutti.
Spero in un vostro aiuto.

Questo script funziona correttamente l'unica cosa che non va è il conteggio delle email inviate agli iscritti ad una mailing list.

Il conteggio segnala sempre 625 ad ogni cambio di pagina di invio a blocchi che avviene ogni 30 secondi tramite la funzione JSRedirect.

Sapete dirmi dove sbaglio?
Perchè il contatore di invio mail non si incrementa e rimane sempre fisso?

Grazie

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 * 1500) & "');" & vbCrLf) 
		.Write("-->" & vbCrLf) 
		.Write("</script>" & vbCrLf) 
	End With
End Function

SQL = " SELECT * FROM tbl_ml "
SQL = SQL & " WHERE InvioEmail = 0 "
SQL = SQL & " ORDER BY ID DESC "
SQL = SQL & " LIMIT 25 "

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

if objRS.eof then
   response.redirect("azzera.asp")
   
else

Cont = 0

while not objRS.eof 

//script per invio messaggi mailing list.....

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

Cont = Cont + 25

objRS.movenext
wend

response.write (JSRedirect(30))
response.write "Email inviate: " & Cont & " "
 
end if

objRS.Close
Set objRS = Nothing

[cavicchiandrea]

Secondo me devi decurtarli -25 ad ogni ciclo fino a che non arrivi a zero, poi io non userei js per ricaricare la pagina ma asp mettendo ad inizio pagina Response.AddHeader "Refresh", "30" //30 sono i secondi// e toglierei la funzione JSRedirect

[cms9651]

Grazie, ma:

Cont = Cont -25

Risultato:
Email inviate: -625

[cavicchiandrea]

Response.AddHeader "Refresh", "30"

SQL = " SELECT *, COUNT(Id) AS contaID FROM tbl_ml "
SQL = SQL & " WHERE InvioEmail = 0 "
SQL = SQL & " ORDER BY ID DESC "
SQL = SQL & " LIMIT 25 "

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

if objRS.eof then
   response.redirect("azzera.asp")
   
else

Cont = objRS("contaID")

while not objRS.eof 

//script per invio messaggi mailing list.....

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

Cont = (Cont - 25)

objRS.movenext
wend

response.write "Email restanti: " & Cont & " "
 
end if

objRS.Close
Set objRS = Nothing 

[cms9651]

Grazie, ma con la tua ultima versione mi invia un email ogni 30 secondi e non più a blocchi da 25...

[Massimo61]

Ciao,

devi contare il numero dei campi InvioEmail che hanno valore 1

dopo objconn.execute (str_update)

sql1 = "SELECT COUNT(*) AS inviate FROM tbl_ml WHERE InvioEmail = 1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql1, objconn, 3, 3
On Error Resume Next
rs.MoveFirst
Cont=rs.Fields("inviate")
rs.Close

Email inviate 25

Email inviate 50

Email inviate 75 ecc...



Massimo.

[cms9651]

Originariamente inviato da Massimo61
Ciao,

devi contare il numero dei campi InvioEmail che hanno valore 1

dopo objconn.execute (str_update)

sql1 = "SELECT COUNT(*) AS inviate FROM tbl_ml WHERE InvioEmail = 1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql1, objconn, 3, 3
On Error Resume Next
rs.MoveFirst
Cont=rs.Fields("inviate")
rs.Close

Email inviate 25

Email inviate 50

Email inviate 75 ecc...



Massimo.

Grazie, adesso funziona correttamente.