<%@LANGUAGE="VBSCRIPT"%> <% if cstr(request("action"))="inviaPrenotazione" then 'ho premuto invia del form 'recupero i dati dal form Dati strNominativo=cStr(Request("txtNominativo")) strEmail=cStr(Request("txtEmail")) strMessaggio=cStr(Request("txtMessaggio")) strPrivacy=cstr(Request.Form("txtPrivacy")) strDataArrivo=cStr(Request("txtDataArrivo")) strDataPartenza=cStr(Request("txtDataPartenza")) strTipoRichiesta=cStr(Request("txtTipoRichiesta")) strAdultiSuite=cStr(Request("txtAdultiSuite")) strBambiniSuite=cStr(Request("txtBambiniSuite")) strAdultiTulipano=cStr(Request("txtAdultiTulipano")) strBambiniTulipano=cStr(Request("txtBambiniTulipano")) strAdultiLilium=cStr(Request("txtAdultiLilium")) strBambiniLilium=cStr(Request("txtBambiniLilium")) strAdultiMargherita=cStr(Request("txtAdultiMargherita")) strBambiniMargherita=cStr(Request("txtBambiniMargherita")) strAdultiVioletta=cStr(Request("txtAdultiVioletta")) strBambiniVioletta=cStr(Request("txtBambiniVioletta")) strAdultiDalia=cStr(Request("txtAdultiDalia")) strBambiniDalia=cStr(Request("txtBambiniDalia")) 'controllo vari if strNominativo="" then msgErrore=msgErrore & "Inserire un nominativo.
" if strEmail="" then msgErrore=msgErrore & "Inserire una E-mail
" if strEmail<>"" then risp=CBool(controllaEmail(strEmail)) if risp=False then msgErrore=msgErrore & "Il campo E-mail non è formattato nel modo giusto.
(esempio: nomecasella@dominio.it)
" end if if strDataArrivo="" then msgErrore=msgErrore & "Inserire una data nel campo data Arrivo.
" if strDataArrivo<>"" then if Not isDate(strDataArrivo) then msgErrore=msgErrore & "Inserire una data valida di Arrivo.
" end if if strDataPartenza="" then msgErrore=msgErrore & "Inserire una data nel campo data Partenza.
" if strDataPartenza<>"" then if Not isDate(strDataPartenza) then msgErrore=msgErrore & "Inserire una data valida di Partenza.
" end if if strDataArrivo<>"" and strDataPartenza<>"" then diffDate=DateDiff("d", strDataPartenza,strDataArrivo) if diffDate>=0 then msgErrore=msgErrore & "La data Partenza deve essere maggiore della data Arrivo
" end if end if if strPrivacy<>"Privacy" then msgErrore=msgErrore & "E' necessario accettare l'informativa per poter inviare la richiesta di informazione.
" end if if strAdultiSuite="" then strAdultiSuite=0 if Not isNumeric(strAdultiSuite) then msgErrore=msgErrore & "Inserire un numero valido (0-6) in N° adulti Suite.
" if strBambiniSuite="" then strBambiniSuite=0 if Not isNumeric(strBambiniSuite) then msgErrore=msgErrore & "Inserire un numero valido (0-6) in N° bambini Suite.
" if strAdultiTulipano="" then strAdultiTulipano=0 if Not isNumeric(strAdultiTulipano) then msgErrore=msgErrore & "Inserire un numero valido (0-2) in N° adulti Tulipano.
" if strBambiniTulipano="" then strBambiniTulipano=0 if Not isNumeric(strBambiniTulipano) then msgErrore=msgErrore & "Inserire un numero valido (0-3) in N° bambini Tulipano.
" if strAdultiLilium="" then strAdultiLilium=0 if Not isNumeric(strAdultiLilium) then msgErrore=msgErrore & "Inserire un numero valido (0-6) in N° adulti Lilium.
" if strBambiniLilium="" then strBambiniLilium=0 if Not isNumeric(strBambiniLilium) then msgErrore=msgErrore & "Inserire un numero valido (0-6) in N° bambini Lilium.
" if strAdultiMargherita="" then strAdultiMargherita=0 if Not isNumeric(strAdultiMargherita) then msgErrore=msgErrore & "Inserire un numero valido (0-2) in N° adulti Margherita.
" if strBambiniMargherita="" then strBambiniMargherita=0 if Not isNumeric(strBambiniMargherita) then msgErrore=msgErrore & "Inserire un numero valido (0-3) in N° bambini Margherita.
" if strAdultiVioletta="" then strAdultiVioletta=0 if Not isNumeric(strAdultiVioletta) then msgErrore=msgErrore & "Inserire un numero valido (0-4) in N° adulti Violetta.
" if strBambiniVioletta="" then strBambiniVioletta=0 if Not isNumeric(strBambiniVioletta) then msgErrore=msgErrore & "Inserire un numero valido (0-4) in N° bambini Violetta.
" if strAdultiDalia="" then strAdultiDalia=0 if Not isNumeric(strAdultiDalia) then msgErrore=msgErrore & "Inserire un numero valido (0-4) in N° adulti Dalia.
" if strBambiniDalia="" then strBambiniDalia=0 if Not isNumeric(strBambiniDalia) then msgErrore=msgErrore & "Inserire un numero valido (0-4) in N° bambini Dalia.
" if msgErrore="" then 'crea una e-mail di risposta dim datiModulo datiModulo= "Nominativo: " & strNominativo & "
" datiModulo= datiModulo & "E-mail: " & strEmail & "
" datiModulo= datiModulo & "Messaggio: " & strMessaggio & "
" datiModulo= datiModulo & "Data Arrivo: " & strDataArrivo & "
" datiModulo= datiModulo & "Data Partenza: " & strDataPartenza & "
" datiModulo= datiModulo & "Tipo richiesta: " & strTipoRichiesta & "

" datiModulo= datiModulo & "Composizione stanze:
" datiModulo= datiModulo & "Suite:
" datiModulo= datiModulo & "Adulti:" & strAdultiSuite & "
" datiModulo= datiModulo & "Bambini:" & strBambiniSuite & "
" datiModulo= datiModulo & "Tulipano:
" datiModulo= datiModulo & "Adulti:" & strAdultiTulipano & "
" datiModulo= datiModulo & "Bambini:" & strBambiniTulipano & "
" datiModulo= datiModulo & "Lilium:
" datiModulo= datiModulo & "Adulti:" & strAdultiLilium & "
" datiModulo= datiModulo & "Bambini:" & strBambiniLilium & "
" datiModulo= datiModulo & "Margherita:
" datiModulo= datiModulo & "Adulti:" & strAdultiMargherita & "
" datiModulo= datiModulo & "Bambini:" & strBambiniMargherita & "
" datiModulo= datiModulo & "Violetta:
" datiModulo= datiModulo & "Adulti:" & strAdultiVioletta & "
" datiModulo= datiModulo & "Bambini:" & strBambiniVioletta & "
" datiModulo= datiModulo & "Dalia:
" datiModulo= datiModulo & "Adulti:" & strAdultiDalia & "
" datiModulo= datiModulo & "Bambini:" & strBambiniDalia & "
" dim testo testo="Gentile Signor/a,
" testo=testo & "La ringraziamo per l'interesse al nostro sito.
" testo=testo & "Con il presente messaggio automatico le confermiamo la ricezione
" testo=testo & "della sua e-mail, in data " testo=testo & cstr(date()) & ".
" testo=testo & "Risponderemo al più presto alla sua richiesta.
" testo=testo & "Trulli San Leonardo, Alberobello" testo=testo & "

I suoi dati:
" testo=testo & datiModulo 'invia una e-mail tramite l'oggetto Persits set Mail=Server.CreateObject("Persits.MailSender") 'da dove parte l'email Mail.Host="smtp.hostek.it" Mail.From="postmaster@trullisanleonardo.it" Mail.FromName="Trulli San Leonardo" 'a chi va l'email (indirizzo inserito dal visitatore) Mail.AddAddress strEmail 'l'email va anche a trulloantichisapori e per conoscenza a mcsoft Mail.AddAddress "info@trullisanleonardo.it" Mail.AddBcc "info@mcsoftwareitalia.it" Mail.Subject= "Richiesta prenotazione Trulli San Leonardo" Mail.Body="" & testo & "" Mail.IsHtml=true On Error Resume Next Mail.Send If Err <> 0 Then msgErrore= "Messaggio non inviato, errore: " & Err.Description else strUrl="inviato.html" Response.Redirect(strUrl) End If end if end if %> prenotazioni, preventivo Trulli San Leonardo

Recapiti

Trulli in affitto, Bed & Breakfast, Case vacanze, Alloggio in trullo

Trulli San Leonardo Contrada San Leonardo, 1
70011 Alberobello (Ba)
Tel/Fax: +39 080 4321724
Cel: +39 333 2413509
info@trullisanleonardo.it


MCsoftware Italia

Contatti
Richiesta preventivo o prenotazione
<%if msgErrore<>"" then%>
 Attenzione, errore: <%=msgErrore%>
<%end if%>
Per una richiesta di preventivo, per conoscere la disponibilità o per prenotare, compilate il seguente modulo:
 Nominativo:  
 E-mail:  
 Messaggio:  
Data arrivo:   Inserimento data Arrivo
Data partenza:   Inserimento data partenza


Richiesta preventivo Prenotazione
Struttura:     Letto mat. Letto mat. Divano mat. Posti letto
Trullo Suite N° Adulti:

N° Bambini:
Letto matrimoniale Letto matrimoniale Divano matrimoniale 6
Trullo Tulipano N° Adulti:

N° Bambini:
Letto matrimoniale Letto matrimoniale Divano matrimoniale 2
Trullo Lilium N° Adulti:

N° Bambini:
Letto matrimoniale Letto matrimoniale Divano matrimoniale 6
Trullo Margherita N° Adulti:

N° Bambini:
Letto matrimoniale Letto matrimoniale Divano matrimoniale 2
<%if strPrivacy="Privacy" then%> Consenso Privacy (leggere l'informativa riportata di seguito)
<%else%> Consenso Privacy (leggere l'informativa riportata di seguito)
<%end if%>
 

Informativa
Ai sensi del D.Lgs. 30 Giugno 2003 n°196, i Suoi dati personali saranno soggetti a trattamento in modo da garantire protezione e riservatezza, come previsto dall'articolo 11 della suddetta legge.
Per tali finalità è richiesto il Suo esplicito consenso. Selezionando "Consenso Privacy" manifesta la propria disponibilità e rilascia il proprio incondizionato consenso affinchè i dati da Lei forniti vengano trattati secondo quanto indicato nell'informativa.
Si rammenta, inoltre, che Le spetta l'esercizio dei diritti di cui all'articolo 13 della suddetta legge. (L'interessato potrà, in qualsiasi momento richiedere la modifica e/o cancellazione dei propri dati ed opporsi al trattamento degli stessi).



Home page Versione italiana English version <% Function controllaEmail(strEmail) 'controllo sintassi e-mail '==========chiamata funzione========= 'risp=CBool(controllaEmail(email)) 'if risp=False then errore=10 '==================================== 'False =errore sintassi 'True = email corretta '==================================== if len(strEmail)>6 then pos=Instr(1,strEmail,"@") if pos>len(strEmail)-3 then exit Function end if dotpos=Instr(pos+1,strEmail,".") if dotpos>len(strEmail)-2 then exit Function end if if len(Mid(strEmail,pos+1))<5 or dotpos=0 then exit Function end if controllaEmail=True else controllaEmail=False end if End function %>