salve a tutti,

dunque premesso che io non conosco su che sistema si basi il server dell'hosting ho fatto le prove sia per l'oggetto cdonts che per l'oggetto cdosys.

con cdonts metodo per l'invio di server basati su win 2000 ottengo quest'errore:

codice:
Errore di run-time di Microsoft VBScript error '800a01ad' 

Il componente ActiveX non può creare l'oggetto: 'CDONTS.NewMail' 

/inviomail.asp, line 34
mentre usando il codice valido per cdosys e quindi per un server win 2003 ottengo invece quest'altro errore:

codice:
ADODB.Fields error '800a0bb9' 

Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto. 

/inviomail.asp, line 71
ora questo è il mio codice:
codice:
<%@LANGUAGE="VBSCRIPT"%>

<html>
<head><title>Invio delle mail a tutti gli iscritti</title></head>

<%
Mittente=Request("Nome")
Mail= Request("Mail")
Localita= Request("citta")
Prov = Request("Provincia")
Telefono= Request("telefono")
Cellulare = Request("Cell")
Esp = Request("suono")
ogg= Request("oggetto")
Message= Request("Messaggio")

Flag=0
if (Mittente = "") or (Mail = "") or (Localita = "") or (Prov = "") or (Telefono = "") or (Ogg = "") or (message = "") Then
  Flag=1
else
end if

If (Esp = "") Then
  Esperienza = "Nessuna Esperienza"
else
  Esperienza = Esp
end if    


Dim miaMail, strOggMail,strBodyMail
DIM iMsg, Flds, iConf

'Invio l'email codice x cdonts win 2000
linea34 errore cdonts'Set miaMail = CreateObject("CDONTS.NewMail") 
'miaMail.From = Mail 
'miaMail.To = "xxxxxxxxx@tin.it" 

strOggMail = "Nuovo Contatto da Lezionidisax.it" 

'Corpo del messaggio 
strBodyMail = "" 
strBodyMail = "<html><head><title>Lezionidisax.it - Nuovo Contatto</title></head><body bgcolor=#24201F><Table width=800 cellpadding=0 cellspacing=0><tr>"
strBodyMail = strBodyMail & "<td valign=top><center><Table width=800 height=80 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>"
strBodyMail = strBodyMail & "<td width=400 valign=middle><img src=titolo.jpg border=0></td><td width=390 valign=top></td></tr></table>"
strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top>"
strBodyMail = strBodyMail & "<font size=2 color=#FFFFFF face=Verdana>" & Mittente & "
" & Localita & "-" & Prov & "
"
strBodyMail = strBodyMail & "Tel." & telefono & "/Cell." & Cell & "
E-Mail" & Mail & "
</font></td><td width=10 valign=top></td></tr></table>"
strBodyMail = strBodyMail & "<Table width=800 height=15 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0>"
strBodyMail = strBodyMail & "<tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>Esperienze Musicali:" & Esperienza & "</font></td>"
strBodyMail = strBodyMail & "<td width=10 valign=top></td></tr></table><Table width=800 height=30 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=800 valign=top></td></tr></table>"
strBodyMail = strBodyMail & "<Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td><td width=780 valign=top><font size=2 color=#FFFFFF face=Verdana>"
strBodyMail = strBodyMail & "Oggetto:" & Oggetto & "</font></td><td width=10 valign=top></td></tr></table><Table width=800 height=5 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF>"
strBodyMail = strBodyMail & "<tr><td width=800 valign=top></td></tr></table><Table width=800 cellpadding=0 cellspacing=0 border=0 bordercolor=#FFFFFF><tr><td width=10 valign=top></td>"
strBodyMail = strBodyMail & "<td width=780 valign=top><p align=justify><font size=2 color=#FFFFFF face=Verdana>" & Messaggio & "</font></p></td><td width=10 valign=top></td></tr></table></center>"
strBodyMail = strBodyMail & "</td></tr></Table></body></html>"

'windows 2000 cdonts code di fine invio
'miaMail.Subject = strOggMail 
'miaMail.BodyFormat = 0 
'miaMail.MailFormat = 0 
'miaMail.Body = strBodyMail 
'miaMail.Send 
'Set miaMail = Nothing 


'windows 2003 cdosys code
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

linea 71 errore cdosysFlds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "roma4.websolutions.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = "xxxxxxx@tin.it" 
   .From = EMail 
   .Sender = "servizio...quello che vuoi"
   .Subject = strOggMail 
   .HtmlBody = strBodyMail
   .Send
End With

'controllo del flag e condizione
If (Flag=0) Then
  Response.Redirect("invioavvenuto.asp")
else
  Response.redirect("contatti.asp?Errore=" & flag) 
end if  
  

%>

<body>

</body> 
</html>
in base agli errori secondo voi da cosa dipendono e quele accidenti di sistema avrà quel server che per altro andando sul loro sito non indicano ad ogni server quale os corrisponde...


Grazie