Ragazzi sto realizzando una newsletter prelevando dal db nome, cognome, ed email che inserisco in un ciclo per invio multiplo.
Il problema è che non mi invia singole email ad ogni iscritto, ma all' ultimo iscritto invia una mail contenente tutte le email(il testo della email), al penultimo tutte le email tranne quella dell' ultimo e così via...
Questo il codice, che mi potete dire?
codice:<% Dim newslt Set newslt = Server.CreateObject("ADODB.Recordset") Dim SQLnewslt SQLnewslt="Select Nome, Cognome, Email FROM utenti order by id" newslt.Open SQLnewslt,conn If newslt.EOF then Response.Write("") else while not newslt.EOF With Response nome = ""&newslt("nome")&"" cognome = ""&newslt("cognome")&"" email = ""&newslt("email")&"" strHTML = strHTML & "<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN'>" strHTML = strHTML & "<html>" strHTML = strHTML & "<head>" strHTML = strHTML & "<title>Documento senza titolo</title>" strHTML = strHTML & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>" strHTML = strHTML & "<link href='http://css' rel='stylesheet' type='text/css'>" strHTML = strHTML & "</head>" strHTML = strHTML & "<body bgcolor='#D2D2D2'>" strHTML = strHTML & "<div align='center'>" strHTML = strHTML & "<table width='600' border='0' cellspacing='0' cellpadding='0'>" strHTML = strHTML & " <tr>" strHTML = strHTML & "<td height='46' style='background-image:url(http://);background-repeat:no-repeat; background-position:right bottom;'></td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "<tr>" strHTML = strHTML & "<td bgcolor='#FFFFFF' style='background-image:url(http://); background-position:right bottom;'><div align='center'>" strHTML = strHTML & "<table width='96%' border='0' cellspacing='0' cellpadding='0'>" strHTML = strHTML & "<tr>" strHTML = strHTML & "<td></td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "<tr>" strHTML = strHTML & "<td><p align='justify' class='testo'><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>Gentile "&nome&""&cognome&", " strHTML = strHTML & " " strHTML = strHTML & "la registrazione ad Shop è stata eseguita con " strHTML = strHTML & "successo. " strHTML = strHTML & " " strHTML = strHTML & "Da questo momento potrai accedere all' " strHTML = strHTML & "area riservata del negozio IG Pro Shop ed effettuare i tuoi " strHTML = strHTML & "acquisti in massima libertà. " strHTML = strHTML & " " strHTML = strHTML & "Non è tutto! Potrai seguire lo stato dei tuoi ordini " strHTML = strHTML & "direttamente on line, vendere la tua attrezzatura usata ed usufruire " strHTML = strHTML & "di importanti promozioni. " strHTML = strHTML & " " strHTML = strHTML & "Per accedere all' area riservata di Shop dovrai attivare " strHTML = strHTML & "il tuo account attraverso il link di seguito: " strHTML = strHTML & "http:// " strHTML = strHTML & " " strHTML = strHTML & "Questi i dati di accesso indicati al momento della registrazione: " strHTML = strHTML & " " strHTML = strHTML & "username: "&Request.Querystring("username")&" " strHTML = strHTML & "password: "&Request.Querystring("password")&" " strHTML = strHTML & " " strHTML = strHTML & "Ti ricordiamo che attivata la registrazione potrai accedere " strHTML = strHTML & "anche ai servizi on line di Infogolf.it. " strHTML = strHTML & " " strHTML = strHTML & "Buona navigazione. " strHTML = strHTML & " " strHTML = strHTML & "Shop</font></p>" strHTML = strHTML & "</td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "<tr>" strHTML = strHTML & "<td></td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "</table>" strHTML = strHTML & "</div></td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "<tr>" strHTML = strHTML & "<td height='43' style='background-image:url(http://);background-repeat:no-repeat; background-position:right bottom;'></td>" strHTML = strHTML & "</tr>" strHTML = strHTML & "</table>" strHTML = strHTML & "</div>" strHTML = strHTML & "</body>" strHTML = strHTML & "</html>" ' istanza di CDO.Message set CDOmail = CreateObject("CDO.Message") CDOmail.To = email CDOmail.From = "newsletter@prova.info" CDOmail.Subject = "Newsletter" ' testo da inviare CDOmail.HTMLBody = strHTML ' invio del messaggio CDOmail.Send() End With newslt.MoveNext Wend end if conn.close %>
Rispondi quotando
