email inviata 2 volte

[tizyjayd]

salve, ho questo codice

%>

<%
sql="select * from directory where email='" & user & "'"
	objrs.open sql, conn, 3, 3
	if objrs.eof then
		response.write "Your email is not into our database"
	else
		Dim miaMail
		Set miamail = Server.CreateObject("SMTPsvg.Mailer")
		miamail.RemoteHost = "mail2.fluidhosting.com" 
		miaMail.FromAddress = "email@email-email.com"
		miaMail.AddRecipient "io", "info@email.com"
		miaMail.ContentType = "text/html"
		miaMail.Subject = "Password Reminder"
		miaMail.BodyText = HTML & "To unsubscribe from this newsletter please click here</body></html>"
		miaMail.SendMail
		Response.write "Mail sent to (" & objrs("email") & ")"
		 if miaMail.SendMail then
        ' Message sent sucessfully
        response.write ("Your message was sent")      
    else
        ' Message send failure
        response.write ("Your message was not sent. ")
        response.write ("The error was: " & Mailer.Response)
    end if

il problema è che la email a info@email.com me la invia 2 volte, a distanza di pochi secondi (controllando fra le email ricevute) (ad esempio la prima alle 10:00:06, la seconda alle 10:06:08)

come mai ?

[mexican]

hai controllato quante info@email.com ci sono nel tuo database???

[tizyjayd]

si ho controllato, ma comunque non c'è un ciclo in quello script li (perchè stavo appunto provando se funzionava e come era il risultato) e non prende gli indirizzi dal database (Sempre perchè stavo facendo una prova) e comunque dovrebbe eseguire quello script li una volta soltanto indipendentemente da quel che c'è nel database...

ma il problema resta..

[tizyjayd]

Salve, ho provato ad inserire un ciclo nel codice

%>

<%
sql="select * from directory where email='" & user & "'"
	objrs.open sql, conn, 3, 3
	if objrs.eof then
		response.write "Your email is not into our database"
	else
		while not objrs.eof
		Set miamail = Server.CreateObject("SMTPsvg.Mailer")
		miamail.RemoteHost = "mail2.fluidhosting.com" 
		miaMail.FromAddress = "email@email-email.com"
		miaMail.AddRecipient "io", "info@email.com"
		miaMail.ContentType = "text/html"
		miaMail.Subject = "Password Reminder"
		miaMail.BodyText = HTML & "To unsubscribe from this newsletter please click here</body></html>"
		miaMail.SendMail
                          objrs.movenext
                         wend
		Response.write "Mail sent to (" & objrs("email") & ")"
		 if miaMail.SendMail then
        ' Message sent sucessfully
        response.write ("Your message was sent")      
    else
        ' Message send failure
        response.write ("Your message was not sent. ")
        response.write ("The error was: " & Mailer.Response)
    end if

questo codice si comporta nel seguente modo.

mettiamo che nel db ci sono 4 indirizzi email

l'email viene inviata per 4 volte a tutti e 4 gli indirizzi, cioè viene inviata
la prima email a 4 destinatari
poi un altra email agli stessi 4 destinatari e così via per il numero di email presenti nel db.

non dovrebbe eseguire il ciclo inserendo la prima email che trova e così via con la seconda etc ?