Problema con CDONTS

[schizzorl86]

Ciao a tutti,

Non riesco a inviare mail con CDONTS, il browser restituisce:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/mail.asp, line 20

800401f3

ecco il listato:
<%

' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then

Dim objMail

' Crea l'oggetto email
Set objMail = Server.createObject("CDONTS.NewMail")

' Assegna all'oggetto le proprietà necessarie
objMail.From = "mittente@dominio.com" ' Mittente
objMail.To = Request.Form("email") ' Destinatario
objMail.Subject = Request.Form("oggetto") ' Oggetto
objMail.Body = Request.Form("messaggio") ' Messaggio

' Impostiamo la formattazione
objMail.BodyFormat = 1 ' 0 Testo; 1 HTML
objMail.MailFormat = 1 ' 0 Testo; 1 HTML

' Invia l'email
objMail.Send

Set objMail = Nothing

Response.Write("Email inviata correttamente all'indirizzo " & Request.Form("email"))

else

%>
<form name="formail" method="post" action="?invia=true">
<table align="center" cellpadding="3" cellspacing="1">
<tr>
<td>Email</td>
<td><input type="text" name="email" size="20" /></td>
</tr>
<tr>
<td>Oggetto</td>
<td><input type="text" name="oggetto" size="20" /></td>
</tr>
<tr>
<td>Messaggio</td>
<td><textarea name="messaggio" rows="1" cols="20"></textarea></td>
</tr>
<tr>
<td colspan="2"> <input type="submit" value="invia" name="submit" /> </td>
</tr>
</table>
</form>
<% end if %>



Perchè?

Grazie in anticipo

[maximum]

Su che server gira lo script?

[schizzorl86]

Su windows 2003

[maximum]

Allora devi usare non CDONTS ma CDOSYS!
Cerca qui nel forum, roverai come cinfigurare e fare funzionare lo script.