<% strHost = "localhost" If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("From") ' From address Mail.FromName = Request("FromName") ' optional Mail.AddAddress Request("To") ' message subject Mail.Subject = Request("Subject") ' message body ' LEGGO LE VARIABILI DELLA FORM Cognome = Request("cognome") Nome = Request("nome") Azienda = Request("azienda") Telefono = Request("telefono") Fax = Request("Fax") Privacy = Request("privacy") Body = Request("body") Corpo = "Da: " & nome & " " & cognome & chr(13) & chr(10) & _ "Azienda: " & azienda & chr(13) & chr(10) & _ "Telefono: " & telefono & " " & _ "Fax: " & fax & chr(13) & chr(10) & _ "________________> Messaggio <________________" & chr(13) & chr(10) & _ Body & chr(13) & chr(10) & _ "________________> Messaggio <________________" & chr(13) & chr(10) & _ "Privacy: " & privacy & chr(13) & chr(10) Mail.Body = corpo Mail.FromName = Cognome & " " & nome 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 %> Marva Srl - Contattaci

<% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Messaggio inviato correttamente, Grazie per averci Contattato

<% End If %>

Nome
Cognome
E-Mail
Azienda
Telefono (comprensivo di prefisso)
Fax (comprensivo di prefisso)
Note o Commenti
Autorizzo al trattamento dei dati secondo la legge 675
Home Page