Scrivi la tua opinione
<%
' Controlla invio
if Request.QueryString("invia") = "true" AND Request.Form("submit") = "invia" then
'inzio
' Dichiaro e creo l'oggetto Persits.MailSender
Dim strDestinatario
strDestinatario = "giornateeuropee@beniculturali.it"
Set objMail = Server.CreateObject("Persits.MailSender")
' Specifico il server SMTP da utilizzare
objMail.Host = "151.12.58.92"
' Specifico l'indirizzo email del mittente
objMail.From = "giornateeuropee@beniculturali.it"
' Specifico l'alias del mittente, ovvero il nome
' che viene visualizzato dal destinatario
' (opzione che CDO non mette a disposizione)
objMail.FromName = "Giornate Europee del Patrimonio"
' Specifico l'indirizzo email del destinatario
' (opzionalmente anche il nome)
objMail.AddAddress strDestinatario
' Specifico l'oggetto della mail
objMail.Subject = "Giornate Europee del Patrimonio"
' Specifico il corpo della mail
' objMail.Body = Request.Form ("nome")
objMail.Body = Request.Form("testo")
' Invio la mail
objMail.Send
' Un po di pulizia...
Set objMail = Nothing
'fine
'*** CDONTS ***
'Dim objMail
' Set objMail = createObject("CDONTS.NewMail")
'
' objMail.From = Request.Form("email")
' objMail.To = "giornateeuropee@beniculturali.it"
'
' objMail.Subject = "Giornate Europee del Patrimonio: La mia opinione"
'
' objMail.BodyFormat = 1 ' formattazione: 1=Testo 0=HTML
' objMail.MailFormat = 1 ' idem
'
' corpo = "Nome: " & Request.Form("nome") & VbCrLf
' corpo = corpo & "Cognome: " & Request.Form("cognome") & VbCrLf
' corpo = corpo & "E-mail: " & Request.Form("email") & VbCrLf
' corpo = corpo & "Testo: " & Request.Form("testo")
'
' objMail.Body = corpo
'
' objMail.Send
' Set objMail = Nothing
' Messaggio di OK
Response.Write("
Grazie per aver scritto alla redazione delle Giornate Europee del Patrimonio!
")
Response.Write("
La tua e-mail è stata inviata correttamente al nostro indirizzo!
")
Response.Write("
Sarai contattato al più presto!
")
else
%>
<%
end if
%>
Oppure scrivi direttamente a: giornateeuropee@beniculturali.it
