<% strStyleCorrect = "formLabel" strStyleError = "formLabelError" Set dicErrorFields = Server.CreateObject("Scripting.Dictionary") If Request.Querystring("A0")="Send" Then If Trim(Request.Form("txtNome")) = "" Then dicErrorFields.Add "txtNome", "" End If If Trim(Request.Form("txtCognome")) = "" Then dicErrorFields.Add "txtCognome", "" End If If Trim(Request.Form("txtIndirizzo")) = "" Then dicErrorFields.Add "txtIndirizzo", "" End If If Trim(Request.Form("txtCAP")) = "" Then dicErrorFields.Add "txtCAP", "" End If If Trim(Request.Form("txtCitta")) = "" Then dicErrorFields.Add "txtCitta", "" End If If Trim(Request.Form("txtTelefono")) = "" Then dicErrorFields.Add "txtTelefono", "" End If 'If Trim(Request.Form("txtCellulare")) = "" Then ' dicErrorFields.Add "txtCellulare", "" 'End If If Trim(Request.Form("txtEmail")) = "" Then dicErrorFields.Add "txtEmail", "" End If If Trim(Request.Form("txtCittaLocalita")) = "" Then dicErrorFields.Add "txtCittaLocalita", "" End If If Request.Form("txtPeriodo") = "" Then dicErrorFields.Add "txtPeriodo", "" End If If Request.Form("txtPersone") = "" Then dicErrorFields.Add "txtPersone", "" End If If Request.Form("cmbTipologia1") = "--------- tipologia ----------" Then dicErrorFields.Add "cmbTipologia1", "" End If If Request.Form("cmbDurata1") = "--- durata ---" Then dicErrorFields.Add "cmbDurata1", "" End If 'If Request.Form("txtComunicazioni") = "" Then ' dicErrorFields.Add "txtComunicazioni", "" 'End If If Request.Form("chkPrivacy") <> "SI" Then dicErrorFields.Add "chkPrivacy", "" End If If dicErrorFields.Count > 0 Then %>


I campi evidenziati in rosso non sono stati correttamente compilati!

<% Else strMailBody = strMailBody & "RICHIESTA PRENOTAZIONE
" strMailBody = strMailBody & "---------------------------------------------------------------------" & "
" strMailBody = strMailBody & "NOME: " strMailBody = strMailBody & Request.Form("txtNome") & "
" strMailBody = strMailBody & "COGNOME: " strMailBody = strMailBody & Request.Form("txtCognome") & "
" strMailBody = strMailBody & "INDIRIZZO: " strMailBody = strMailBody & Request.Form("txtIndirizzo") & "
" strMailBody = strMailBody & "CAP: " strMailBody = strMailBody & Request.Form("txtCAP") & "
" strMailBody = strMailBody & "CITTA': " strMailBody = strMailBody & Request.Form("txtCitta") & "
" strMailBody = strMailBody & "TELEFONO: " strMailBody = strMailBody & Request.Form("txtTelefono") & "
" strMailBody = strMailBody & "CELLULARE: " strMailBody = strMailBody & Request.Form("txtCellulare") & "
" strMailBody = strMailBody & "EMAIL: " strMailBody = strMailBody & Request.Form("txtEmail") & "
" strMailBody = strMailBody & "CITTA'/LOCALITA': " strMailBody = strMailBody & Request.Form("txtCittaLocalita") & "
" strMailBody = strMailBody & "PERIODO: " strMailBody = strMailBody & Request.Form("txtPeriodo") & "
" strMailBody = strMailBody & "NUMERO PERSONE: " strMailBody = strMailBody & Request.Form("txtPersone") & "
" strMailBody = strMailBody & "TIPOLOGIA SELEZIONATA 1: " strMailBody = strMailBody & Request.Form("cmbTipologia1") & "
" strMailBody = strMailBody & "DURATA SELEZIONATA 1: " strMailBody = strMailBody & Request.Form("cmbDurata1") & "
" strMailBody = strMailBody & "TIPOLOGIA SELEZIONATA 2: " strMailBody = strMailBody & Request.Form("cmbTipologia2") & "
" strMailBody = strMailBody & "DURATA SELEZIONATA 2: " strMailBody = strMailBody & Request.Form("cmbDurata2") & "
" strMailBody = strMailBody & "TIPOLOGIA SELEZIONATA 3: " strMailBody = strMailBody & Request.Form("cmbTipologia3") & "
" strMailBody = strMailBody & "DURATA SELEZIONATA 3: " strMailBody = strMailBody & Request.Form("cmbDurata3") & "
" strMailBody = strMailBody & "COMUNICAZIONI: " strMailBody = strMailBody & Request.Form("txtComunicazioni") & "
" strMailBody = strMailBody & "ACCETTAZIONE TRATTAMENTO DATI PERSONALI: " strMailBody = strMailBody & Request.Form("chkPrivacy") & "
" strMailBody = strMailBody & "---------------------------------------------------------------------" SendEmail "reservations@bbitalia.com", Request.Form("txtEmail") & " (" & Request.Form("txtCognome") & " " & Request.Form("txtNome") & ") FORM Prenotazione (IT) www.bbitalia.com", strMailBody %>


Grazie per aver compilato il modulo di richiesta.

La ringraziamo per Sua richiesta che verrà vagliata dal personale addetto
che La contatterà al più presto via e-mail. Per prenotazioni urgenti
La preghiamo di chiamarci allo dalle 09.30 alle 13.30 e
dalle 14.30 alle 19.30 dal lunedì al venerdì.

<% End If End If If (Request.Querystring("A0")="Send" AND dicErrorFields.Count > 0) OR Request.Querystring("A0")="" Then %>

Per proporVi soluzioni ottimali, Vi preghiamo di essere quanto più specifici possibile.

Ulteriori informazioni, in aggiunta a quanto già visibile su www.bbitalia.com
verrano fornite telefonicamente.

Tel./Ph. +(39) 0817141533 +(39) 3346230140

(I campi contrassegnati con l'asterisco sono obbligatori)

Modulo per la richiesta di prenotazione

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Cognome

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Nome

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Indirizzo

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) CAP

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Città

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Telefono
(rete fissa ed eventuale cell. in aggiunta)

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> Cellulare

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) E-mail
(attenzione all'esattezza)

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Città o località richieste
(Bed & Breakfast in Italy è presente in tutta Italia)

  ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Periodo
(indicare la data di arrivo e partenza per ogni città)

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Numero delle persone
(eventuale età dei bambini)

 ">

<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> (*) Preventivo di spesa
(Effettuare almeno una scelta
dopo aver verificato le tariffe)


<%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> Richieste varie

 ">

Per inoltrare la Vostra prenotazione, cliccate qui, stampate il modulo ed inviatelo al fax . Riceverete immeditamante il voucher di conferma al Vostro indirizzo mail.

D.lgs. n. 196 del 30 giugno 2003 tutela delle persone e di altri soggetti rispetto al trattamento dei dati personali. Tale trattamento sarà improntato ai principi di correttezza, liceità e trasparenza e di tutela della Sua riservatezza e dei Suoi diritti. Ai sensi dell'articolo 13 del D.lgs. n.196/2003, pertanto, Le forniamo le seguenti informazioni. I dati da Lei forniti verranno trattati con la finalità di fornirLe le informazioni richieste. I dati verranno anche utilizzati per inviarLe messaggi di carattere informativo e/o commerciale. (es: Newsletters) Il trattamento sarà effettuato con modalità informatizzate e cartacee. In ogni caso Lei può scegliere se ricevere o meno messaggi di carattere informativo e/o commerciale dandocene comunicazione  via e-mail. Tale scelta potrà essere modificata in qualunque momento. Responsabile del trattamento dati è Bed & Breakfast in Italy Via Mario Musco, 16 - Roma

checked<%End If%>><%=strStyleError%><%Else%><%=strStyleCorrect%><%End If%>"> Autorizzo 


<% End If %>