Newsgroup: it.lavoro.professioni.webmaster
Titolo: Newsletter in asp che non ha inviato la news...

Ciao a tutti. Mi è successa una cosa strana.
Per il mio sito uso una newsletter in asp, che se non ricordo male ho
scaricato da 
webmasterpoint.org
.
Fino ad oggi avevo usato questa news per mandare 3 news per un'associazione
a circa 15 indirizzi, con la news in formato HTML e dal peso di 5Kb.
Ieri l'ho usata (o meglio ho cercato di usarla) per inviare la prima news
del sito, 94 indirizzi, HTML, 22Kb.
Ebbene è stata inviata un'email vuota. (in realtà ho fatto 2/3 tentativi,
sempre e-mail vuote... che figura di ....... :( )
Nessun messaggio di errore, (però spedendo la news con outlook mi sono
accorto che c'erano un paio di indirizzi inesistenti). Ho il sito Hostato su
Aruba.
Sono troppo vago per riuscire a capire il problema???
Grazie cmq a tutti quelli che mi aiuteranno. :)
Ciao ciao!!!
--
--------------------------------------------------------
Webmaster di 
http://www.targatona.it
Il Portale della Provincia di Napoli
Forum: 
http://www.targatona.it/forum
--------------------------------------------------------

 ha scritto nel messaggio
news:1ySg8.2442$5z3....@twister2.libero.it...


 applicativi: cgi, perl, oggetti per pagine ASP....?
Tengo a precisare che in altre occasioni la news ha funzionato senza
problemi.
Aruba mi consente applicativi cgi, cmq la news è in asp e sfrutta CDONTS (se
non sbaglio).
Questo è il codice del file che effettua l'invio delle e-mail (send.asp).
======================================================================
<html>
<head>
<title>Spedizione E-mail</title>
<head>
<body bgcolor="black" link="#ffcc00" vlink="#ffcc00" alink="#ffcc00">
<%
   Set cn = Server.CreateObject("ADODB.Connection")
%><!--#include file="OpenConn.asp"--><%
   Set rs = Server.CreateObject("ADODB.Recordset")
   strSQL="SELECT Email FROM Mailing ORDER BY Email"
   rs.Open strSQL,cn
   tipo=request("Tipo")
   email=request("Email")
   mittente=request("Mittente")
   oggetto=request("Oggetto")
   if tipo="html" then
      do while not rs.eof
         Set objMail = Server.CreateObject("CDONTS.NewMail")
         objMail.BodyFormat = 0
         objMail.MailFormat = 0
         objMail.From=mittente
         objMail.To=rs("Email")
         objMail.Subject=oggetto
         objMail.Body=email
         objMail.Send
         Set objMail = nothing
         rs.movenext
      loop
   else
       do while not rs.eof
         Set objMail = Server.CreateObject("CDONTS.NewMail")
         objMail.BodyFormat = 1
         objMail.MailFormat = 1
         objMail.From=mittente
         objMail.To=rs("Email")
         objMail.Subject=oggetto
         objMail.Body=email
         objMail.Send
         Set objMail = nothing
         rs.movenext
      loop
   end if
   set cn = nothing
   set rs = nothing
%>
<center><font face="Verdana" color=#ffcc00 size=4>I messaggi sono stati
spediti correttamente<br><br>
<font size=3><a href="gestmail.asp">Torna alla lista delle
email</a></font></center>
</body>
</html>
============================================================================
=======
Grazie! :)


applicativi: cgi, perl, oggetti per pagine ASP....?
Visto la loro affidabilita' ti risponderei "permette di lanciare
piccioni viaggiatori"...
Ad ogni modo:
supporta ASP, PHP, perl e cgi.
Per ASP ha il CDONTS.
Saluti.
-- 
Teldon il Neutrale
http://www.secondafondazione.it