Ho fatto uno script per l'invio di email tramite CDOnts...
Nelle prove apparentemente funzionava...
MI arrivava l'avviso da postmaster per il failure d'invio di alcuni
,su 500, circa 30...
Percentuale accettabile visto il numero di indirizzi vecchi o sbagliati alcuni infatti con due puntini ecc ecc...
quando si è trattato di rispedirlo da un' altra casella non più la mia che usavo per le prove...linda_oldrati@hotmail.com
Ma redazione@eziosuardi.com il mancato invio non è arrivato.. non è arrivato nessun messaggio da postmaster come se l'invio fosse avvenuto per tutti e 500....cosa impossibile perchè non avevo corretto niente dal DB e alcuni erano sbagliati
L'invio è avvenuto Venerdì, io so che il server prova a rispedirli per 2 giorni(se non è una minchiata)
Sabato e Domenica il pc è rimasto spento Lunedì non c'era niente????
Questo è lo script :
<body>
<%
'1)RECUPERO L'INCLUDE DELLA CONNESSIONE
'-1a Creo L'oggetto connessione
Set oconn=Server.CreateObject("ADODB.Connection")
oconn.ConnectionString=conn
'2)recupero i testi dal database
' - 2a seleziono tabella dal db e creo recordset
oconn.open
'visualizzo il numero di record della tebella
sql2="Select * from news where Id_mensile = 1 "
sql3="SELECT COUNT(Codice) AS totaleRecord FROM anagrafica"
Set rs3=Server.CreateObject("ADODB.Recordset")
rs3.open sql3, oconn ,3,3
b= rs3("totaleRecord")
rs3.close
set rs3= nothing
Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open sql2, oconn ,3,3
' - 2b recupero tutti i campi testo del mensile
titolo=rs2("titolo")
testo=rs2("testo")
introduzione=rs2("introduzione")
sottotitolo= rs2("sottotitolo")
mese= rs2("mese")
publicita= rs2("publicita")
spamming= rs2("spamming")
rs2.close
set rs2 = nothing
oconn.close
'3)CREO RECORSET PER RECUPERARE GLI INDIRIZZI EMAIL dalla tab anagrafica
sql="Select * from anagrafica "
Set rs=Server.CreateObject("ADODB.Recordset")
oconn.open
rs.open sql, oconn ,3,3
'recupero tutte le e-mail fino alla fine del recorset
a=1
Do until rs.eof
x = x + 1
if trim(rs("email")) <> "-" or trim(rs("email"))<> " " then
ml = ml & rs("email")& "; "
response.write x&"
"
response.write b&"
"
response.write a&"
"
if (x/50= a) or (x + 1 =b) then
Dim HTML
Set myMail = CreateObject("CDONTS.NewMail")
HTML ="<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' "
HTML = HTML & "'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
HTML = HTML & "<body><table cellspacing='0' cellpadding='0' border='0' width='75%' align='center'><tr>"
HTML = HTML & "<td width='100%' style='background- myMail.From="redazione@eziosuardi.com"
myMail.bcc = ml
response.write ml
myMail.Subject=""
'0 sta per il formato html
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body= HTML
' myMail.Send
set myMail=nothing
ml= " "
a=a+1
end if
rs.moveNext
else
rs.movenext
end if
loop
Rispondi quotando
