database per mailing list

**Marco7303** · 12-07-2004, 17:21

Salve ho questo script per l'invio ad una mailing list... il problema è che l'invio viene effettuato solamente al primo nominativo presente nel database... Vi prego aiutatemi!

codice:

<%
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "DSN=Mailing"
  	set Rsmail = Server.CreateObject("ADODB.Recordset")
  	strsql= "SELECT email FROM utenti"
  	Rsmail.Open strsql,conn,1,1

    Email = RSmail.Fields.Item("Email").Value


		Dim miaMail 
		Set miaMail = CreateObject("CDONTS.NewMail") 
		
		miaMail.From = "mail.it"
		miaMail.To = ""
		miaMail.Bcc = email
 		
		dim strOggMail

**Roby_72** · 12-07-2004, 17:24

codice:

<%
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "DSN=Mailing"
  	set Rsmail = Server.CreateObject("ADODB.Recordset")
  	strsql= "SELECT email FROM utenti"
  	Rsmail.Open strsql,conn,1,1
do while not Rsmail.EOF
    Email = RSmail.Fields.Item("Email").Value


		Dim miaMail 
		Set miaMail = CreateObject("CDONTS.NewMail") 
		
		miaMail.From = "mail.it"
		miaMail.To = ""
		miaMail.Bcc = email
 		
		dim strOggMail 
...
...
...
Rsmail.MoveNext
Loop

Roby

**ZeroCool981** · 12-07-2004, 17:26

Se non ho capito male, tu vorresti mandare una mail e tutti gli utenti presenti nella mailing list.
Quindi devi innanzi tutto farti un ciclo per prendere tutti i destinatari. TI faccio un esempio:

do while not rs.eof
email = rs.fields("email")
destinatari = destinatari & email &";"
rs.movenext
loop

quindi dove specifichi i destinatari utilizzi la variabile appena riempita.

**Marco7303** · 12-07-2004, 17:29

Grazie il loop devo metterlo prima di

miaMail.Subject = strOggMail
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = strBodyMail
miaMail.Send

o dopo?

**Roby_72** · 12-07-2004, 17:31

Originariamente inviato da Marco7303
Grazie il loop devo metterlo prima di

miaMail.Subject = strOggMail
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Body = strBodyMail
miaMail.Send

o dopo?

Te l'ho già scritto sopra come devi fare....

Roby

**Marco7303** · 12-07-2004, 17:48

Così? (scusami!)

codice:

	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "DSN=Mailing"
  	set Rsmail = Server.CreateObject("ADODB.Recordset")
  	strsql= "SELECT email FROM utenti"
  	Rsmail.Open strsql,conn,1,1

	do while not Rsmail.EOF

    Email = RSmail.Fields.Item("Email").Value


		Dim miaMail 
		Set miaMail = CreateObject("CDONTS.NewMail") 
		
		miaMail.From = "mioindirizzo@mail.it"
		miaMail.To = ""
		miaMail.Bcc = email
 		
		dim strOggMail 
		
		strOggMail = "bla bla" 

		strBodyMail = "" 
        
strBodyMail = "<html><head><title>bla bla</title></head>"
		
strBodyMail = strBodyMail & "<body bgcolor=#FFFFCC background=http://www.blabla.jpg>"

...
...
...						
		strBodyMail = strBodyMail & "</body></html>"			

Rsmail.MoveNext
Loop

		miaMail.Subject = strOggMail 
		miaMail.BodyFormat = 0 
		miaMail.MailFormat = 0 
		miaMail.Body = strBodyMail 
		miaMail.Send 		

		Set miaMail = Nothing 

		Rsmail.close
		set Rsmail=Nothing

		Conn.close
		set Conn=Nothing

**Roby_72** · 12-07-2004, 18:00

Questo

Rsmail.MoveNext
Loop

va subito dopo

Set miaMail = Nothing

Roby

**Marco7303** · 12-07-2004, 18:19

Continua a non andare... ho sbagliato qualche altra cosa nello script???

**Marco7303** · 13-07-2004, 09:44

Ecco adesso funziona però avendo più di 2000 indirizzi dopo un po' di tempo va in blocco la pagina scrivendomi:

Active Server Pages error 'ASP 0113'

Script timed out

/newsletter/invia.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

Come si può ovviare? Avevo letto sempre nel forum (ma non riesco a trovare più la pagina) che c'erà un sistema per splittare l'invio a pacchetti

Qualcuno saprebbe o per il TimeOut o per lo split?

GRAZIE

**Roby_72** · 13-07-2004, 09:47

Aumenta lo script time out. Ad inizio pagina metti:

<%
server.scripttimeout = 300 'numero di secondi = 5 minuti
%>

Ti conviene comunque paginarle e mandarle a blocchi.

Roby

Discussione: database per mailing list

Strumenti discussione

Ricerca discussione

Visualizza

database per mailing list

Permessi di invio