<% if Request.Form("Invia") = "INVIA" then Dim Mail 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("richiesta") + chr(10) + chr(10) + Request.Form("Nome") + " " + Request.Form("Cognome") + chr(10) + Request.Form("Indirizzo") + ", " + Request.Form("Cap") + " - " + Request.Form("Citta") + chr(10) + "Tel. " + Request.Form("Tel") + " - Cell. " + Request.Form("Cell") Mail.Importance = 1 Mail.Send 'invia la e-mail Set Mail = nothing Response.Write "
E-mail inviata.
Grazie per Averci Contattato!
" else %>
Consigli di viaggio
chiedi ai tuoi consulenti
Nome
Cognome
Indirizzo
Cap
Citta
Tel
Cell
E-mail
La tua richiesta
<% end if %>