Salve, ho uno script che dovrebbe prendere i dati da un form e inviarli via mail ma non lo fa. Ho controllato che i dati vengano effettivamente raccolti e lo sono, ma non arriva nessuna email! Non riesco a vedere l'errore, nonostante abbia usato tante volte il CDONTS non capisco perché stavolta non va. Potete aiutarmi?
Copioincollo il codice:
<%
Set objMail = Server.CreateObject("CDONTS.NewMail")
intro=Request.Form("intro") 'prendo i dati che arrivano dal form
nome=Request.Form("nome")
testata=Request.Form("testata")
tessera=Request.Form("tessera")
tel=Request.Form("tel")
fax=Request.Form("fax")
email=Request.Form("email")
cell=Request.Form("cell")
conf=Request.Form("privacy")
'li metto insieme per fare il corpo del messaggio
messaggio=intro & vbcrlf & "Nome e Cognome: " & nome & vbcrlf & "Testata: " & testata & "Num. Tessera: " & tessera & vbcrlf & "Tel: " & tel & "Fax: " & fax & vbcrlf & "Mail: " & email & vbcrlf & "Cell.: " & cell & vbcrlf & "Consenso al trattamento dei dati: " & conf
objMail.From = Request.Form("email")
objMail.To = ""
objMail.Subject = "RICHIESTA ACCREDITO STAMPA"
objMail.Body = messaggio
objMail.importance = 1
objMail.Send
'response.Write "Messaggio: " & messaggio 'controllo che dal form sia arrivato qualcosa
Set objMail = nothing
%>
<%
If Err.number <> 0 Then 'vediamo se va tutto bene
Response.Write "Errore: " & Err.Description
else Response.Write("Il modulo è stato inviato: sarete ricontattati al più presto.")
End If
%>