Ciao a tutti sto facento un form per la prenotazione mi dice che l'email è stata inviata correttamente ma non mi arriva nulla. Dove sbaglio?

codice:
<%
'recuperi i valori della form
strnome = Request.Form ("nome") 
strcognome = Request.Form ("cognome")
strindirizzo = Request.Form ("indirizzo") 
strcitta = Request.Form ("citta")
strprovincia = Request.Form ("provincia")
strnazione = Request.Form ("nazione")
strcap = Request.Form ("cap")
strtelefono = Request.Form ("telefono")
strfax = Request.Form ("fax")
stremail = Request.Form ("email")
strda_giorno = Request.Form ("da_giorno")
strda_mese = Request.Form ("da_mese")
strda_anno = Request.Form ("email")
stral_giorno = Request.Form ("da_anno")
stral_mese = Request.Form ("al_mese")
stral_anno = Request.Form ("al_anno")
strpernottamento1 = Request.Form ("pernottamento1")
strpernottamento2 = Request.Form ("pernottamento2")
strpernottamento3 = Request.Form ("pernottamento3")
strinformativa = Request.Form ("email")
strR1 = Request.Form ("R1")
'variabile per verificare se ci sono anomalie nel codice
on error resume next

'componi il corpo della mail
corpo="

Modulo di richiesta" 
corpo=corpo & "
Nome: " & strnome
corpo=corpo & "
Email: " & strcognome 
corpo=corpo & "
Messaggio: " & strindirizzo
corpo=corpo & "
Messaggio: " & strcitta 
corpo=corpo & "
Messaggio: " & strprovincia 
corpo=corpo & "
Messaggio: " & strnazione 
corpo=corpo & "
Messaggio: " & strcap
corpo=corpo & "
Messaggio: " & strtelefono 
corpo=corpo & "
Messaggio: " & strfax 
corpo=corpo & "
Messaggio: " & stremail 
corpo=corpo & "
Messaggio: " & strda_giorno
corpo=corpo & "
Messaggio: " & strda_mese
corpo=corpo & "
Messaggio: " & strda_anno 
corpo=corpo & "
Messaggio: " & stral_giorno 
corpo=corpo & "
Messaggio: " & stral_mese
corpo=corpo & "
Messaggio: " & stral_anno 
corpo=corpo & "
Messaggio: " & strpernottamento 
corpo=corpo & "
Messaggio: " & strpernottamento1
corpo=corpo & "
Messaggio: " & strpernottamento2
corpo=corpo & "
Messaggio: " & strpernottamento3
corpo=corpo & "
Messaggio: " & strinformativa
corpo=corpo & "
Messaggio: " & strR1 
corpo=corpo & "

</font>"

'istanzio le costanti per invio
DIM iMsg, Flds, iConf
		
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
		
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
 
Set objCDO = Server.CreateObject("CDO.Message") 
With objCDO 
.To = "info@miaemail.com" 
.From = strEmailMitt
.Subject = "Informazioni" 
.HTMLBody = corpo 
.Send() 
End With 

if err.number > 0 then
	strOutput= "Si è verificato un errore nell'invio del codice"
else
	strOutput ="Il tuo messaggio è stato inoltrato correttamente!!!"
end if

Set objCDO = Nothing 

%>