<%
errori = 0
mm_form = Request.form("MM_send")
email = Request.form("email")
nome = Request.form("nome")
cognome = Request.form("cognome")
indirizzo = Request.form("indirizzo")
cellulare = Request.form("cellulare")
telefono = Request.form("abitazione")
ufficio = Request.form("ufficio")
referrer = Request.form("referrer")
messaggio = Request.form("messaggio")
cantiere = Request.form("cantiere")
If mm_form = "form1" and Request.form("nome") = "" then
errori = 1
%>
Non Hai compilato il campo nome
<%
End if
If mm_form = "form1" and Request.form("cognome") = "" then
errori = 1
%>
Non Hai compilato il campo cognome
<%
End if
If mm_form = "form1" and Request.form("cellulare") = "" and Request.form("abitazione") = "" and Request.form("ufficio") = "" then
errori = 1
%>
Non Hai compilato almeno un campo telefono
<%
End if
If mm_form = "form1" and Request.form("email") = "" then
errori = 1
%>
Non Hai compilato il campo email
<%
End if
If mm_form = "form1" and Request.form("consenso") <> "s" then
errori = 1
%>
Non hai acconsentito al trattamento dei dati personali
<%
End if
If mm_form = "form1" and errori = 0 then
messaggio = " Nome: " & nome & VbCrLf & " Cognome: " & cognome & VbCrLf & " Cellulare: " & cellulare & VbCrLf & " Telefono Abitazione: " & abitazione & VbCrLf & " Telefono Ufficio: " & ufficio & VbCrLf &" Email: " & email & VbCrLf & " Indirizzo: " & indirizzo & VbCrLf & " Messaggio: " & messaggio & VbCrLf & " Cantiere di interesse: " & cantiere & VbCrLf & " Conosciuti tramite: " & referrer
host=Request.ServerVariables("REMOTE_HOST")
titolo = "Richiesta info su cantiere dal sito GruppoDallaBona"
to_name = "GruppoDallaBona"
to_email = "info@gruppodallabona.it"
'to_email = "info@restello.com"
smtp = "mail.pol.it"
url_risposta = "ok.htm"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.QMessage = true
Mailer.FromName = nome
Mailer.FromAddress= email
Mailer.RemoteHost = smtp
Mailer.AddRecipient to_name , to_email
Mailer.Subject = titolo
Mailer.BodyText= messaggio
if not Mailer.SendMail then
'Response.Write "Mailing Failed... Error is: "
'Response.Write Mailer.Response
%>
La tua richiesta non ha potuto essere evasa.
Prego riprova pił tardi.
<%
else
'response.redirect url_risposta
%>
La tua richiesta è stata inviata.
Ti contatteremo quanto prima.
<%
end if
else
%>
Sono interessato/a a ricevere maggiori informazioni riguardo questo cantiere e desidero essere contattato/a a questo recapito:
">
Nome *
Cognome *
Indirizzo
Telefono *
(indicare almeno un recapito)
Abitazione
Ufficio
Cellulare
E-mail*
Veicolo pubblicitario
(dove ha conosciuto il nostro marchio)
Richiesta
Il sottoscritto autorizza Gruppo Dalla Bona al trattamento dei dati personali sopra indicati ai sensi del D. Lgs. n° 196/03 e successive modifiche e integrazioni. Potrà essere richiesta la rettifica, l'aggiornamento e/o la cancellazione di tali dati.
I campi contrassegnati da * sono obbligatori.
<% end if %>
