<%
' Controlla che il pulsante submit abbia come nome "invia"
If Request("invia") <> "" Then
Set Mail = Server.CreateObject("Persits.MailSender")'Crea l'oggetto
' Qui va inserito il server SMTP. Sostituite con il vostro.
Mail.Host = "mail.nome_server.it"
Mail.From = Request("emailmittente") ' Indirizzo email del
mittente ricavato dal campo nascosto
Mail.FromName = Request("mittente") ' Nome del mittente ricavato dal
campo nascosto - opzionale
Mail.AddAddress Request("emaildestinatario") ' L'indirizzo del destinatario
ricavato dal campo nascosto
' Oggetto del messaggio
Mail.Subject = "Una cartolina per te"
' Corpo del messaggio. Attenzione alla formattazione!
Mail.Body = "Ciao " & Request("destinatario") &
"," & _
Chr(13) & Chr(10) & _
"hai ricevuto una bella cartolina! " & _
Chr(13) & Chr(10) & _
"Per leggerla clicca su questo link!" & Chr(13) & Chr(10)
& _
"http://www.zeromedia.it/cartolina.asp?id=" & Request("id")
& _
Chr(13) & Chr(10) & Chr(13) & Chr(10) & _
"Saluti dal webmaster del sito "
strErr = ""
bSuccess = False
On Error Resume Next ' catch errors
Mail.Send ' send message
If Err <> 0 Then ' error occurred
strErr = Err.Description
else
bSuccess = True
End If
End If
%>