ciao raga, uso il seguente codice per inviare una newsletter, funziona ma la mail nn arriva a tutti, provando sui miei indirizzi, su Hotmail arriva all'istante, su domini a pagamento subito ma su Libero o su Tiscali nn arriv nulla!!!!

devo usare qualche accorgimento??? la sintassi è corretta?? se arrivano su certi indirizzi xkè su alttri no????

codice:
<% cod_newsletter	=	request.querystring("cod_newsletter") %>

<%
response.buffer =true
min = request("min")
max = request("max")
id  = request("idnewsletter")

dim em(2000)
'db="dsn=euromed"
SET cn = Server.CreateObject("ADODB.Connection")
'cn.Open db
	cn.open "Provider=Microsoft.jet.OLEDB.4.0; Data source="& server.mappath("/mdb-database/newsletter.mdb")	
	
	sql = "SELECT email FROM utenti WHERE conferma='s' AND cod_newsletter='"&cod_newsletter&"'"
		Set rs = cn.Execute(SQL)
			DO WHILE NOT rs.EOF
				i = i + 1
					redim preserv(em(i))
						em(i) = rs("email")
			RS.MOVENEXT
			LOOP
			
	sql = "SELECT * FROM newsletter where idnewsletter="&id
		Set rs = cn.Execute(sql)
			img_gruppo 		= rs("img_gruppo")
			titolo 			= rs("titolo")
			corpo 			= rs("corpo")
			allegato 		= rs("allegato")
		set rs = nothing
		
			
	sql = "SELECT normativa FROM gruppi where cod_gruppo="&cod_newsletter
		Set rs = cn.Execute(sql)
			normativa 		= 	rs("normativa")
			normativa	 	= 	Replace(normativa, "’", "'")
		set rs = nothing

	 for j = min to max
		Set Objmail = Server.CreateObject("CDO.Message")
			Objmail.From = "www.ppppp.it"
			Objmail.To = em(j)
			Objmail.Subject =titolo
			corpo = Replace(corpo, "’", "'")
			all_mail = corpo
			
all_mail2 = "[img][/img]
<hr><div style=""font-family: Verdana; font-size: 8pt;"">" & all_mail & "</div>
<hr><div style=""font-family: Verdana; font-size: 7pt;"">" & normativa & "</div>"

Objmail.HTMLBody = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN""><html><head><title>www.ppppp.it</title><meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1""></head><body>[img][/img]
<hr>" & all_mail & "
<hr><div style=""font-family: Verdana; font-size: 7pt;"">" & normativa & "</div></body></html>"



			 	if allegato <> "" then
				Objmail.AddAttachment ("D:\Inetpub\webs\pppppit\public\"&allegato&"")
				end if
				Objmail.Fields("urn:schemas:httpmail:importance").Value = 2
				Objmail.Fields.Update()
				Objmail.Send()
				Set Objmail = Nothing
			response.write em(j) & "
"
			
	next 

response.write("

Anteprima EMAIL
<hr>")
response.write(all_mail2)
response.write("
<hr>
")
%>