HOME HOW TO REACH US TO SEE FOTO GALLERY ACCOMODATION CONTACT

<% ' Controlla invio if Request.Form("submit") = "invia" then Dim objMail ' Crea l'oggetto email Set objMail = Server.createObject("CDONTS.NewMail") ' Assegna all'oggetto le proprietÓ necessarie objMail.To = "info@pbconsult.it" ' Destinatario objMail.From = Request.Form("email") ' Mittente objMail.Subject = Request.Form("oggetto") ' Oggetto objMail.Body = Request.Form("messaggio") ' Messaggio ' Impostiamo la formattazione objMail.BodyFormat = 1 ' 0 Testo; 1 HTML objMail.MailFormat = 1 ' 0 Testo; 1 HTML ' Invia l'email objMail.Send Set objMail = Nothing Response.Write("Email inviata correttamente all'indirizzo " & Request.Form("email")) else %>

Name
Last Name
Address 1
Address 2
Zip
City
Country
Tel.
Mobile
Email
Object
Message
<% end if %>