<%
if request.form <> "" then
on error resume next
if request.form("E-Mail")<> "" then
Set objMail = Server.CreateObject("Persits.MailSender")
objMail.Host = "mail.e2net.pvt"
objMail.Port = 25
objMail.AddAddress "capitanbasilico@buiopesto.it"
objMail.From=request.form("E-Mail")
objMail.Subject="CapitanBasilico.it MAIL"
objMail.Body="Nome: " & request.form("Mittente") & "
E-Mail: " & request.form("E-Mail") & "
" & request.form("Messaggio") & "
"
objMail.IsHTML = True
objMail.Send()
Set objMail = nothing
if err.number=0 then
%>
Il
messaggio è stato inviato correttamente.
Grazie.
<%
end if
else
myErr = true
end if
if err.number<>0 or myErr then
%>
MESSAGGIO
NON INVIATO CORRETTAMENTE Errore:[<%= err.Description%>]