<%
Dim nome_form
Dim miaMail
Dim mioBody
Dim mailNome
Dim mailCognome
Dim mailEmail
Dim mailOrario
Dim mailNumero_persone
Dim mailGiorno
Dim mailTelefono
Dim mailTesto
Set miaMail = CreateObject("CDONTS.NewMail")
'Set miaMail = CreateObject("CDOSYS.NewMail")
mailNome = request.form("Nome")
mailCognome = request.form("Cognome")
mailEmail = request.form("Email")
mailTelefono = request.form("Telefono")
mailCitta = request.form("Citta")
mailMessaggio = request.form("Messaggio")
mailnome_form = request.form("nome_form")
mioBody = "Nome: <b>"&mailNome&"</b><br>"
mioBody = mioBody & "Cognome: <b>"&mailCognome&"</b><br>"
mioBody = mioBody & "Email: <b>"&mailEmail&"</b><br>"
mioBody = mioBody & "Telefono: <b>"&mailTelefono&"</b><br>"
mioBody = mioBody & "Città: <b>"&mailCitta&"</b><br>"
mioBody = mioBody & "Messaggio: <b>"&mailMessaggio&"</b><br>"
miaMail.To = "
andy_s@libero.it"
miaMail.From = request.form("email")
'miaMail.From = "Email dal sito"
miaMail.Subject = "Invio modulo " & mailnome_form & " - dal sito "
miaMail.Body = mioBody
miaMail.BodyFormat = 0
miaMail.MailFormat = 0
miaMail.Importance = 1
miaMail.Send
set miaMail = nothing
response.redirect ("
contatti_ok.html")
%>