 |
|
<%
inviacancella = request.querystring("ic")
if inviacancella=1 then
Dim accettaprivacy
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
accettaprivacy=Request.Form("radioa")
Mailer.FromName = Request.Form("textfield")
Mailer.FromAddress= Request.Form("email")
If accettaprivacy="true" Then
Mailer.RemoteHost = "whost3.alicomitalia.it"
Mailer.AddRecipient "Blondett s.r.l.", "info@blondett.it"
Mailer.Subject = "Richiesta informazioni da sito web"
Mailer.BodyText = "*****RICHIESTA INFORMAZIONI DA SITO WEB******" & VbCrLf & VbCrLf &"Nome e Cognome:" & VbCrLf & Request.Form("textfield") & VbCrLf & VbCrLf &"Testo del Messaggio:" & VbCrLf & Request.Form("textfield2")
if Mailer.SendMail then
Response.Write "L'operazione è stata eseguita con successo!"
inviacancella=0
nomecognome=""
mail=""
messaggio= ""
else
Response.Write "ERRORE! Controllare che il campo e-mail sia corretto!"
inviacancella=0
nomecognome=Request.Form("textfield")
mail=Request.Form("email")
messaggio= Request.Form("textfield2")
end if
else
Response.Write "Impossibile spedire il messaggio se non si accetta l'informativa sulla Privacy."
inviacancella=0
nomecognome=Request.Form("textfield")
mail=Request.Form("email")
messaggio= Request.Form("textfield2")
end if
else
Response.Write " "
end if
%>
|
|
|
|
| |
Blondett s.r.l.
Via Chiaravagna, 70R
16153 Genova
Tel. 010.6519735
Fax 010.6590602 |
| E-mail |
 |
| |
 |
| |
|
Showroom Genova Sestri P.
Via Chiaravagna, 86R
16153 Genova
|
| |
|
| |
| il campo (*) è obbligatorio |
| |
|