Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = Request.Form("mittente")
Mail.To = ("ciccio@libero.it")
Mail.Subject = ("Iscrizione news letter")

testo="Mail inviata da: "&Request.Form("Nome")&" "&Request.Form("Cognome")
testo=testo&"
email: "&Request.Form("email")
testo=testo&"
Testo: "&Request.Form("messaggio")

Mail.Body = testo
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>"