te lo riporto cosi' come dovrebbe essere se e' giusto quella che ha scritto aruba.... (sinceramente non ho mai visto questo codice).

==================

Dim MyMail, Flds, iConf
Set MyMail = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

testo=Request.Form("Messaggio")
testo= Replace(testo, vbCrLf, "<br>")

Set MyMail.Configuration = iConf
MyMail.From = Request.Form("Email")
MyMail.To = mailto
MyMail.Subject = Request.Form("Oggetto")
MyMail.TextBody = "<b>Da: </b>" & Request.Form("NomeCognome") & "<br>" & testo & "<br><br><b>Indirizzo IP: </b>" & Request.ServerVariables("Remote_ADDR")

'Invia il messaggio
MyMail.Send

Set Flds = Nothing
Set iConf = Nothing
Set MyMail = Nothing

===============================

tieni presente che...
1) mailto e' una variabile che devi avere precedentemente popolato tu
2) non so quali siano le proprieta' per dire a CDO di usare formato HTML o TESTO...fai una ricerca in rete
3) cdoSendUsingPort e cdoAnonymous sono delle costanti che presuppongono l'inclusione di qualche file/libreria...se dovessero darti errore prova a sostituirli rispettivamente con 0 e 1
4) ho tralasciato MyMail.Sender perche' non mi e' chiara la diff. tra questo e MyMail.From. Al limite, se da' errore, prova a mettere il nome del mittente in From e la sua email in Sender (se non hai il nome del mittente metti l'email in entrambi i campi).

Ciao
Filippo

ma da' errore (e si quale) o semplicemente non invia?

prova a postare il codice per intero, e anche l'url della pagina su aruba

questo pero' e' il vecchio codice (infatti ti dice che non puo' creare l'oggetto)... prova a fare una pagina a parte con il nuovo codice (non so, la chiami modulo_test.asp).

e poi...mi sembra tutto un po' poco chiaro:
- a cosa server la riga sql="SELECT * FROM indirizzi WHERE ID" ?
- rs.Open "SELECT * FROM indirizzi WHERE ID LIKE "& Dest -> userei ID = request.querystring("modulo")
- l'email che mandi e' per una sola persona, quindi non farei il loop quando vuoi popolare mailto

Tutto questo lo dico senza conoscere bene il tuo codice, quindi prendilo per quello che e'...
Metto dei dubbi...poi sta a te verificare.

Ad ogni modo, al di la' di quello che ti ho scritto sopra, finche' non cambi CDONTS con CDO non funzionera' mai. Prendi il codice che ti ho postato nell'altro messggio e mettilo in una pag. di prova.

Ciao
Filippo