Ho semplicemente copiato i file del libro ASP 3 di Bocchioli e cioè "feedback.asp" e "mail.asp" e credo di aver configurato in maniera giusta il tutto tant'è che le mail vengono spedite e anche ricevute regolarmente.
L'unico problema è che quando sbaglio (anche apposta per prova) gli indirizzi di mail, la risposta che mi viene data è sempre "E-mail inviata con successo!" e non "Invio non riuscito!" nonostante che aprendo outlook il messaggio di errore da parte di mail admin mi arriva regolarmente.
Sono un novello nonostante i miei 45 anni ma chi mi aiuta per favore?
scrivo di seguito i due file come li ho pubblicati...

Feedback.asp
<form action="mail.asp" method="POST">

<P>Compila questo form per mandare un messaggio:
<BR>Nome: <input type="text" name="From">
<BR>E-mail: <input type="text" name="FromMail">
<BR>Destinatario: <input type="text" name="To">
<BR>E-mail del destinatario: <input type="text" name="ToMail">
<BR>Oggetto: <input type="text" name="subject">
<BR>Testo del messaggio: <textarea name="body" cols=30 rows=10></textarea>
<BR>Commenti aggiuntivi: <textarea name="commenti" cols=30 rows=10></textarea>
<BR>Sistema operativo: <input type="text" name="OS">
<BR>Utente registrato? <select name=registered><option>SI<option>NO</select>

<BR><input type="submit" value="Invia commenti">

</form>


mail.asp<%

Dim strFrom, strFormMail, strTo, strToMail, strBody
strFrom = Request.Form("From")
strFromMail = Request.Form("FromMail")
strTo = Request.Form("To")
strToMail = Request.Form("ToMail")

'INVIO TUTTI I DATI VIA E-MAIL

for each x in Request.Form
strBody = strBody & " - " & x & ": " &_
Request.Form(x) & VbCrLf
next

On error resume next

Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = strFrom & "<" & strFromMail & ">"
objMail.To = strTo & "<" & strToMail & ">"
objMail.Subject = Request.Form("Subject")
objMail.Body = strBody
objMail.importance=0
objMail.Send ()

If err.number <>0 then
Response.write "<P>Invio non riuscito: " & Err.Description
Else
Response.write "<P>E-mail inviata con successo!"
Response.write "<PRE>" & strBody & "</PRE>"
End if

Set objMail = nothing

%>