<% strHost = "mail.be-online.net" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = "info@bottega-arte.it" ' email del mittente Mail.FromName = Request("FromName") ' optional Mail.AddAddress "info@bottega-arte.it" ' email del destinatario ' message subject Mail.Subject = Request("Subject") ' message body Mail.Body = Request("Body") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Bottega d'arte
<% If strErr <> "" Then %>

Error occurred: <% = strErr %> <% End If %> <% If bSuccess Then %> Grazie! Messaggio inviato correttamente. <% End If %>
Nome :
Oggetto:
Testo:
Manifestazione di consenso al trattamento dei dati personali

Acquisite le informazioni fornite dal titolare del trattamento ai sensi dell'articolo 13 del D.Lgs. 196/2003, l'interessato: presta il suo consenso al trattamento dei dati personali per i fini indicati nella suddetta informativa.