<%if Request.Form("submit")<>"" Then Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.city3000.it" Mail.From = "postino@city3000.it" Mail.FromName = "Postino di City3000.it" Mail.Subject = "Compilazione modulo sul sito" Mail.AddAddress "tiboleghe@city3000.it" Mail.Body ="" For Each campo in Request.Form if campo <> "submit" AND campo <> "reset" Then Mail.Body = Mail.Body & campo & ": " & Request(campo) & chr(10) & chr(13) End If Next Mail.Body = Mail.Body & chr(10) & chr(13) Mail.Body = Mail.Body & "Data e ora: " & Now() strErr = "" bSuccess = False On Error Resume Next Mail.Send If Err <> 0 Then strErr = Err.Description Else bSuccess = True End If Set Mail=Nothing %>


<%If strErr="" Then %>
Modulo inviato correttamente!
<%Else%>
Errore!
<%=strErr%>
<%End If%> <%Else%> Se si desidera essere contattati è sufficiente compilare il modulo sottostante in tutte le sue parti:
Nome e Cognome
Società
CAP Città (PR)
Indirizzo
Telefono
Telefax
e-mail
Richiesta
 
<%End If%>