%
if request ("consenso") = "accetto" then
msg = "I seguenti campi non sono compilati correttamente: "
err = 0
if request("nome")="" then
msg = msg & "Nome "
err = 1
end if
if request("cognome")="" then
msg = msg & "Cognome "
err = 1
end if
if request("email")="" then
msg = msg & "E-mail "
err = 1
end if
if request("msg")="" then
msg = msg & "Messaggio "
err = 1
end if
if err = 0 then
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="info@mediaetna.it"
CorpoMessaggio="Risultati dal form informazioni." & VbCRLf & "Nome:" & request("nome") & VbCRLf & "Cognome:" & request("cognome") & VbCrLf & "E-mail: " & request("email") & VbCRLf & "Telefono:" & request("tel") & VbCRLf & "Messaggio:" & request("msg")
objMail.Body=CorpoMessaggio
objMail.To="info@mediaetna.it"
objMail.Subject="Risultati dal form informazioni."
objMail.Send
set objMail = nothing
msg="Grazie il Vostro messaggio è stato spedito con successo."
end if
else
msg = "Senza il consenso non è possibile inviare la richiesta di informazioni"
end if
%>