invio e-mail con cdonts

[Georges]

ciao a tutti,
vorrei inserire nel mio sito web un form per segnalare il sito ad un amico via e-mail.
Come server per free hosting uso domaindlx.com:il software server usato è IIS 5.0.

Di seguito riporto i codici del form e del file invia.asp che si dovrebbe occupare dell'invio e-mail:



<font face="verdana" size=3>

<a name="Segnala"></a>Segnala il sito</p></font>
<form method="post" action="invia.asp">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="20%" bgcolor="#d3dfe4"><font face="verdana" size="2">Tua e-mail:</font></td>
<td width="80%" bgcolor="#d3dfe4"><input type="text" name="mittente" size="20"></td>
</tr>
<tr>
<td width="20%" bgcolor="#d3dfe4"><font face="verdana" size="2">E-mail amico:</font></td>
<td width="80%" bgcolor="#d3dfe4"><input type="text" name="destinatario" size="20"></td>
</tr>
<tr>
<td width="20%" bgcolor="#d3dfe4"><font face="verdana" size="2">Testo:</font></td>
<td width="80%" bgcolor="#d3dfe4"><textarea rows="7" cols="40" name="testo"

size="20"></textarea></td>
</tr>
<tr>
<td width="20%" bgcolor="#d3dfe4"></td>
<td width="80%" bgcolor="#d3dfe4"><input type="submit" value="Invia"></td>
</tr>
</table>
</form>


file invia.asp
<%oggetto = "Segnalazione sito"
Set Email=Server.CreateObject("CDONTS.NewMail")
Email.From = Request.Form("mittente")
Email.To = Request.Form("destinatario")
Email.Subject =oggetto
Email.Body = Request.Form("testo")
Email.Send
Set Email = Nothing
%>

Mi viene dato il seguente errore:
Microsoft VBScript runtime error '800a0046'
Permission denied

cosa significa?

[grifone]

http://support.microsoft.com/default...b;EN-US;197619

[lukeonweb]

Perchè non usi CDOSYS?

[Georges]

Ho provato con cdosys,ma non ottengo alcun cambiamento.
Mi viene dato il seguente errore:

CDO.Message.1 error '80070005'
Access is denied.


ho modificato il codice di invia.asp così:
<%Dim Mail
Set Mail = Server.CreateObject("CDO.Message")
With Mail
.To = Request.Form("destinatario")
.From = Request.Form("mittente")
.Subject = "Segnalazione sito"
.TextBody = Request.Form("testo")
.Send
End With
Set Mail = Nothing
Response.Write "Email inviata con successo!"
%>