Newsletter ASP e hosting Aruba

[tommy84]

Salve a tutti, ho da poco tempo implementato una newsletter in ASP con DB Access, funzionante è tutto ok.

Ho una domanda idiota da fare, siccome attualmente il mio DB delle mail è a quota 500 in continua crescita ci sono problemi nell'invio da parte dell'hosting aruba che uso????

Vi spiego io preparo la mail e avvio il processo di invio, parte un ciclo che scorre ad una ad una tutte le mail dal DB e invia, quindi in pratica in pochi attimi dovrebbe inviare 500 mail circa, l'ultima volta che ho inviato la newsletter erano 100 utenti ed è andato tutto bene, adesso con 500 posso incappare in problemi???

Grazie a tutti coloro che mi daranno info.

[agenti]

usa una paginazione durante il ciclo di invio...

invia "n" email poi, passi alla pagina successiva...

[tommy84]

Quindi potrei fare una modifica anche al ciclo di scorrimento, tipo imposto step di 100 alla volta???'

Però se qualcuno lo sa vorrei sapere quali sono i limiti massimi a cui ci si può spingere, più per informazione per una futura newsletter.

Sono curioso.

[tommy84]

Ho provato ad inviare la newletter con 400 mail, giusto per capire come e che cosa succedeva, ma la cosa non è andata troppo a buon termine.

Vi posto il codice della sezione di invio della newsleter:

a
'Send email (CDOSYS version).
    
    if mailComp = "CDOSYS" then
      arrayemail = split(strEmail, ",")

indice = 0
max = UBOUND(arrayemail)


WHILE NOT i> MAX 


      set cdoMessage = Server.CreateObject("CDO.Message") 
      set cdoConfig = Server.CreateObject("CDO.Configuration") 
      cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
      cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer 
      cdoConfig.Fields.Update 
      set cdoMessage.Configuration = cdoConfig 
      cdoMessage.From =  fromAddr 
      cdoMessage.To = arrayemail(i)
      cdoMessage.Subject = subject 
      If Request.Form("version") = "html" Then 
        cdoMessage.HtmlBody = strEmailMsg 
      Else 
        cdoMessage.TextBody = strEmailMsg 
      End If 
      on error resume next 
      cdoMessage.Send 
      if Err.Number <> 0 then 
        SendMail = "Email send failed: " & Err.Description & "." 
      end if 
      set cdoMessage = Nothing 
      set cdoConfig = Nothing 

i = i + 1
WEND

END IF 

Stavo pensado è possibile tipo inserire un rwait di x secondi prima che venga incrementato l'indice e ricominci daccapo?????

Che ne dite?? Si può fare è utile alla mia causa??

Grazie a tutti

[agenti]

http://www.aspitalia.com/script/399/...ginazione.aspx

[tommy84]

Grazie della segnalazione, scusami se sono troppo copme dire invadende ma puoi darmi una mano ad integrarlo nel mio codice???

Non sono ferratissimo di programmazione e soprattutto di quella in ASP.

Grazie