problema con mail cdo

[asva]

in una pagina che mi invia un messaggio di posta elettronica..e che fino a questa mattina funzionava regolarmente ora ottengo:

CDO.Message.1 error '8004020c' 

At least one recipient is required, but none were found. 

/area_riservata/includes_DB/invia_segnalazione.asp, line 88

la e-mail viene inviata ....

possibile che dipenda dal server(aruba)?


il codice che utilizzo è:

<%
idsegnalazione=request.querystring("cod")
percorso="/mdb-database/web.mdb"
%>

<%
set rs=server.CreateObject("ADODB.recordset")
strSql="Select * FROM segnalazione WHERE idsegnalazione =" &idsegnalazione 
set rs=cn.Execute(strSql)
codiceCli=rs("CodiceCli")

%>



<%percorso="/mdb-database/web.mdb"%>

<%

set rs=server.CreateObject("ADODB.recordset")
strSql="Select * FROM Anagrafica WHERE CodiceCLI = '"&CodiceCli&"'" 
set rs=cn.Execute(strSql)
Ragione=rs("Ragione")
Mail_cli=rs("Mail")

%>



<%
set rs=server.CreateObject("ADODB.recordset")
strSql="Select * FROM interventi WHERE idsegnalazione = '"&idsegnalazione &"'"
set rs=cn.Execute(strSql)



%>










<%
mittente=Mail_cli
percorso="/mdb-database/web.mdb"
%>

<%
set rs=server.CreateObject("ADODB.recordset")
strSql="Select * FROM operatori"
set rs=cn.Execute(strSql)
DO while not rs.EOF
destinatario=rs("mail")
%>
<%oggetto="Segnalazione inviata dal cliente: "&Ragione%>
<%


'Impostiamo le nostre preferenze




'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.HTMLBody = strbody 

'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

'Inviamo la mail!
eMail.Send()

'Eliminiamo l'oggetto...
Set eMail = Nothing




rs.Movenext
loop


%>

<%
'Impostiamo le nostre preferenze
Dim Destinatario, Mittente, Oggetto




'Creiamo l'oggetto mail con CDOSYS
Dim reMail
Set reMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
reMail.From = Destinatario
reMail.To = mittente
reMail.Subject = "www.webtecnologies.it conferma ricevimento segnalazione "

'Se il testo è in Html useremo HTMLBody al posto di TextBody
reMail.HTMLBody = restrbody 

'Stabiliamo il livello di importanza (1 o 2)
reMail.Fields("urn:schemas:httpmail:importance").Value = 2
reMail.Fields.Update()

'Inviamo la mail!
reMail.Send()

'Eliminiamo l'oggetto...
Set reMail = Nothing
%>





</p>


</p>


</p>


</p>
<table width="300" border="1" align="center" bordercolor="#0000FF">
  <tr> 
    <td bgcolor="#0000FF"><div align="center"><font color="#00FFFF" size="2" face="Arial, Helvetica, sans-serif">Segnalazione 
        INVIATA </font></div></td>
  </tr>
  <%session("formpass_cli")=true%>
  <tr>
    <td bgcolor="#FFFFFF">
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><a href="../html/pannello_cliente.asp?cod=<%=codiceCli%>"">Torna 
        al Pannello cliente</a></font></div></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">
<div align="center"><font color="#0000FF" size="2" face="Arial, Helvetica, sans-serif">Esci</font></div></td>
  </tr>
</table>

[Mems]

L'errore dice che almeno un destinatario è richesto, ma nessuno di essi è stato trovato.

[asva]

risolto

in effetti nelle prove avevo inserito un destinatario vuoto

....che pirla....ma almeno ho scoperto un controllo che avevo dimenticato

grazie

[Mems]

Originariamente inviato da asva
risolto

in effetti nelle prove avevo inserito un destinatario vuoto

....che pirla....ma almeno ho scoperto un controllo che avevo dimenticato

grazie