% 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") Via = Request("via") CAP = Request("cap") Citta = Request("citta") nazione = Request("nazione") Telefono = Request("telefono") Fax = Request("Fax") Messaggio = Request("Messaggio") Corpo = messaggio & chr(13) & chr(10) & chr(13) & chr(10) & "Via: " & via & chr(13) & chr(10) & "CAP: " & cap & chr(13) & chr(10) & "Città: " & citta & chr(13) & chr(10) & "Nazione: " & nazione & chr(13) & chr(10) & "Telefono: " & telefono & chr(13) & chr(10) & "Fax: " & fax Mail.Body = corpo cono = cognome & " " & nome Mail.FromName = cono 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 %>
E-mail: zoe@zoe.it