Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = Request.Form("mittente")
Mail.To = Request.Form("destinatario")
Mail.Subject = Request.Form("oggetto")
Mail.Body = Request.Form("messaggio")
Mail.Importance = 1
Mail.Send 'invia la e-mail
Set Mail = nothing
Response.Write "<CENTER><font face=verdana size=3 color=red>E-mail inviata correttamente!</font></CENTER>
"
Response.Write "<center><font face=verdana size=1 color=green>Fai click qui per inviare un'altra e-mail </font></center>"

Rispondi quotando
