222222222Ciao a tutti inquesto script non riesco a capire il perché mi da errore:

codice:
<%
Dim iMsg, iConf, Flds

'Crea l'oggetto email 
Set iMsg = CreateObject("CDO.Message")
'Crea l'oggetto configurazione 
Set iConf = CreateObject("CDO.Configuration")
'Impostazione delle configurazioni per l'invio remoto
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True

'Spedizione: mittente, destinatario, oggetto, messaggio
mittente = "reny77@lycos.it"
destinatario = "giuseppe_m_85@yahoo.it"
oggetto = "Prova email"
messaggio = "Invio con CDOSYS"

With iMsg

'Assegnazione delle configurazioni
Set .Configuration = iConf

.From = mittente
.To = destinatario
.Subject = oggetto

'Formato HTML
.HTMLBody = messaggio
'Formato testo (scegliere)
.TextBody = messaggio

'Invio di una pagina web
.CreateMHTMLBody "http://www.novacomitalia.com/home/"



'Invia l'email 
.Send 

end with

set Flds = Nothing
set iConf = Nothing
set iMsg = Nothing
%>
L'errore è:
codice:
CDO.Message.1 error '80040220' 

The "SendUsing" configuration value is invalid. 

/dardan/cdosysmail.asp, line 39
La riga 39 è: .Send

Grazie ciao