Il presente sito é nel rispetto del D.L.196/03 Codice in materia di protezione dei dati personali
<%@ Language=VBScript %>
<%
on error resume next
Set myMail=CreateObject("CDO.Message")
'Response.Write request.Form("subject")
'Response.Write Request.Form("from")
'Response.Write Request.Form("to")
'Response.Write Request.Form("text")
myMail.Subject=Request.Form("subject")
myMail.From=Request.Form("from")
myMail.To=Request.Form("to")
myMail.TextBody=Request.Form("text")
myMail.Send
set myMail=nothing
%>
MESSAGGIO INVIATO CORRETTAMENTE
<%
if err.number <> 0 then
Response.Write "ERRORE: " & err.Description
end if
%>
<%@ Language=VBScript %>