mail non le manda più

[victor8872]

si record vuoti ce ne sono tanti
ma faccio in modo che non vengano selezionati

[Roby_72]

Evidentemente questo controllo non funziona.
Fatti stampare l'elenco delle email che risultano dal controllo.

roby

[victor8872]

ho scritto ad aruba
e mi hanno risposto cosi:


Gentile cliente,
in merito al problema riscontrato, la invito a modificare lo script per l'invio di mail impostando il server smtp del dominio con autenticazione come indicato di seguito:
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.miodominio.ext"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoBasic
Flds(cdoSendUserName) = "postmaster@miodominio.ext"
Flds(cdoSendPassword) = "miaPassword"
Flds.Update


mi potresti dire come inserisco quello che loro mi consigliano?

questo è il mio codice

<%
Server.ScriptTimeout = 3000
%>
<%

dim stringa_conn
stringa_conn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("rizzoli.mdb")
dim conn
set conn = server.createobject("adodb.connection")
conn.open stringa_conn

count=0


if request.form("mail")="invia mail" then

oggetto=request.form("oggetto")
testo=request.form ("testo_messaggio")

val1=split(request.form("id"),",")

for each val1 in val1



count=count+1



Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "info@thomasart.it"
MiaMail.To = val1
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aruba.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aruba.it"
MiaMail.Subject = oggetto
MiaMail.htmlBody =testo
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
'MiaMail.Fields("urn:schemas:httpmail:importance") .Value = 2
'MiaMail.Fields.Update()


MiaMail.Send()
Set MiaMail = Nothing



next



response.write count & " E-mail inviati"

else

val=split(request.form("id"),",")

for each val in val

count=count+1

sql="delete * from corsisti where LINK='"&val&"'"

conn.execute(sql)


next
response.write count & " eliminati"
end if
%>

[victor8872]

si mi stampa solo i recod che non sono vuoti
esiste un sistema per indivduare le mail errate?