%
azione = TRIM( Request( "azione" ) )
If azione="send" Then
strTemp = ""
For Each Item In Request.Form
If Item<>"invia" AND Item<>"azione" Then
strTemp = strTemp & Item & " = " & Request.Form(Item) & " "
End If
Next
'response.write( strtemp )
Dim GetSmtp, GetSiteURL, GetSiteName, GetNewsLetterEmail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "rindt.interac.it" ' Specify a valid SMTP server
Mail.From = "info@idee-parole.it" ' Specify senders address
Mail.FromName = GetSiteName + " , Invio messaggio da Idee-Parole.it " ' Specify senders name
Mail.AddAddress "info@idee-parole.it"
Mail.Subject = "Contatti da sito web"
Mail.Body = strtemp
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Error encountered: " & Err.Description
End If
response.write ""
End If
%>
IDEE & PAROLE - Media Relations | Marketing | Comunicazione d’impresa
IDEE & PAROLE |
Via Ambrogio Spinola 8e – 20149 Milano (MI) tel +39 02 903.908.71 -
fax +39 02 903.946.21 |
info@idee-parole.it | Partita IVA:
11772960156