SMTP Server e IIS 7 su vista

[Pinnuzzu]

Salve ragazzi,
Sto cercando di imparare l'ASP tramite la guida base di ASP che sta su questo portale.
La lezione numero 9 del manuale "Guida ASP di base" ti spiega come inviare un e-mail tramite l'utilizzo dei form mediante l'oggetto Server.CreateObject("CDONTS.NewMail").

Quando invio la pagine contente questa parte di codice il browser rileva il seguente errore:

Oggetto server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/prove/manda_feedback.asp, riga 82

800401f3

Il mio sistema operativo è Vista Home Premium e di conseguenza come server locale ho IIS7 e all'interno di questo server (diversamente dalla precedente versione) non c'è SMTP Server per l'invio dell'e-mail. Intanto vi faccio vedere la parte di codice che mi genera questo errore:

Sub manda_posta(form)
'--------------------------------------------------------
'Purpose: manda la email
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
Dim email, commenti
Dim objMail, mandamiquesto

nome = Request.Form("nome")
email = Request.Form("email")
commenti = Request.Form("commenti")

mandamiquesto = nome & "VBcrlf" & email & "Vbcrlf" & commenti

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.From = nome
objMail.To = "MIAEMAIL" 'non scrivo qui la mia e-mail per una questione di privacy
objMail.Subject = "Feedback dal sito"
objMail.Body = mandamiquesto

objMail.importance = 0
objMail.Send

Set objMail = Nothing

Potete dirmi cortesamente come risolvere il problema? Come faccio a sopporire a SMTP Server visto che manca in ISS7? Vi ringrazio per il vostro aiuto... Non vedo l'ora di risolvere questo problema!

[Roby_72]

L'errore dice che la dll CDONTS non è installata sul server.
Devi recuperarla ed installarla.

Roby

[Pinnuzzu]

Ciao roby, ti ringrazio tanto per avermi risposto. Giacchè sei qui ne approfitto nei chiederti da dove posso recuperare la dll di CDONTS?

[Pinnuzzu]

Ho installato CDONTS ed ho eseguito il seguente codice:

%
Dim MyBody
Dim MyCDONTSMail
%>

<%
Set MyCDONTSMail = CreateObject("CDONTS.NewMail")
MyCDONTSMail.From= "somebody@nowhere.com"
MyCDONTSMail.To= "mio indirizzo e-mail"
MyCDONTSMail.Subject="This is a Test"
MyBody = "Thank you for ordering that stuff" & vbCrLf
MyBody = MyBody & "We appreciate your business" & vbCrLf
MyBody = MyBody & "Your stuff will arrive within 7 business days"
MyCDONTSMail.Body= MyBody
MyCDONTSMail.Send
set MyCDONTSMail=nothing
%>
il risultato ottenuto è stato il seguente:

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

Il componente ActiveX non può creare l'oggetto

/prove/email1.asp, riga 24

La riga 24 sarebbe precisamente MyCDONTSMail.Send