chiaro poi che l'email non mi arriva ....
non credo di avere capito.........per verificare che il codice sia corretto dovrai pure provare l'invio di una mail ad un indirizzo esistente, no?

In ogni caso, se la mail non viene inviata per qualche motivo che non sia un destinatario inesistente, dovresti avere un messaggio di errore ........ nel tuo caso, inoltre:

if err.number>0 then
strOutput= "Si è verificato un errore nell'invio dei dati tramite posta elettronica. I dati sono stati comunque salvati regolarmente."
else
strOutput ="Richiesta inoltrata correttamente, sarà nostra cura inviarLe una conferma della richiesta"
end if
Questa parte di codice non serve visto che poi non utilizzi la variabile strOutput contenente il messaggio di errore.

Idem per
n =Request.Form("nome")
r =Request.Form("messaggio")
le variabili n ed r non vengono poi utilizzate.

Del form, il tuo codice acquisisce solo i campi nome e messaggio, questo script evidentemente è stato modificato senza dargli una sistemata, per esempio eliminando le variabili (come numeroCampi) non più utilizzate........