<% set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\Y_Databases\pool7.com\pool797.mdb" numeroviaggi = 0 sql = "select * from VIAGGI order by RIFERIMENTO" set rs = OBJdbConnection.Execute(sql) if not rs.eof then do numeroviaggi = numeroviaggi + 1 rs.movenext loop while not rs.eof rs.movefirst end if dim arr_imm(24) secondo = second(now) minuto = minute(now) ora = hour(now) coeff = secondo mod 5 if coeff = 0 then arr_imm(1) = "gruppo18.jpg" arr_imm(4) = "gruppo1.jpg" arr_imm(9) = "gruppo2.jpg" arr_imm(13) = "gruppo6.jpg" end if if coeff = 1 then arr_imm(1) = "gruppo1.jpg" arr_imm(4) = "gruppo2.jpg" arr_imm(9) = "gruppo6.jpg" arr_imm(13) = "gruppo24.jpg" end if if coeff = 2 then arr_imm(1) = "gruppo2.jpg" arr_imm(4) = "gruppo6.jpg" arr_imm(9) = "gruppo24.jpg" arr_imm(13) = "gruppo18.jpg" end if if coeff = 3 then arr_imm(1) = "gruppo6.jpg" arr_imm(4) = "gruppo24.jpg" arr_imm(9) = "gruppo18.jpg" arr_imm(13) = "gruppo1.jpg" end if if coeff = 4 then arr_imm(1) = "gruppo24.jpg" arr_imm(4) = "gruppo18.jpg" arr_imm(9) = "gruppo1.jpg" arr_imm(13) = "gruppo2.jpg" end if coeff2 = minuto mod 4 if coeff2 = 0 then arr_imm(2) = "gruppo3.jpg" arr_imm(8) = "gruppo19.jpg" arr_imm(12) = "gruppo4.jpg" end if if coeff2 = 1 then arr_imm(2) = "gruppo9.jpg" arr_imm(8) = "gruppo3.jpg" arr_imm(12) = "gruppo19.jpg" end if if coeff2 = 2 then arr_imm(2) = "gruppo4.jpg" arr_imm(8) = "gruppo9.jpg" arr_imm(12) = "gruppo3.jpg" end if if coeff2 = 3 then arr_imm(2) = "gruppo19.jpg" arr_imm(8) = "gruppo4.jpg" arr_imm(12) = "gruppo9.jpg" end if coeff3 = minuto + secondo if coeff3 mod 2 = 0 then arr_imm(3) = "gruppo7.jpg" else: arr_imm(3) = "gruppo23.jpg" end if coeff4 = (coeff3 + coeff2) if coeff4 mod 2 = 0 then arr_imm(5) = "gruppo17.jpg" else: arr_imm(5) = "gruppo13.jpg" end if coeff5 = secondo mod 3 if coeff5 = 0 then arr_imm(6) = "gruppo11.jpg" arr_imm(11) = "gruppo21.jpg" end if if coeff5 = 1 then arr_imm(6) = "gruppo22.jpg" arr_imm(11) = "gruppo11.jpg" end if if coeff5 = 2 then arr_imm(6) = "gruppo21.jpg" arr_imm(11) = "gruppo22.jpg" end if coeff6 = ora + minuto + secondo if coeff6 mod 2 = 0 then arr_imm(7) = "gruppo10.jpg" else: arr_imm(7) = "gruppo16.jpg" end if coeff6 = minuto + ora if coeff6 mod 2 = 0 then arr_imm(10) = "gruppo14.jpg" else: arr_imm(10) = "gruppo5.jpg" end if %>
 
 
 
 

 
 
Per chi vuole visitare le più belle città del nostro continente in piena libertà senza programmi prestabiliti e orari da rispettare, Pool7 è in grado di prenotare una selezione di hotel per tutte le esigenze da 2 stelle a 5 stelle.
 

 
 
 

Per informazioni preventivi o prenotazioni, non esitate a contattarci indicando:
- le località prescelte
- date precise e numero di notti
- tipologia di camera singola/doppia/tripla ecc..
- cognome di riferimento

Vi risponderemo al più presto cercando di soddisfare le vostre esigenze.

 

 
 

 

Gli hotel che abbiamo selezionato per voi sono nelle seguenti città:

  • Parigi e la Francia
  • Londra e la Gran Bretagna
  • Amsterdam e i Paesi Bassi
  • Madrid e la Spagna
  • Lisbona e il Portogallo
  • Vienna e l’Austria
  • Praga e la Repubblica Ceca
  • Budapest e l’Ungheria
  • Bruxelles e il Belgio
  • Atene e la Grecia
  • Copenhagen e Paesi Scandinavi
  • Berlino e la Germania
  • Varsavia e la Polonia
  • Lubiana e la Slovenia
  • Zagabria e la Croazia
  • Roma

 

L’accordo con le catene alberghiere del gruppo Envergure (Kyriad/Campanile/Blue Marine) e il gruppo Accor (Novotel) ci permette di poter soddisfare le vostre richieste nel caso vogliate costruire a vostro piacimento eventuali tours programmati per soggiorni in hotel di una o più notti.

Prenotiamo anche servizi di trasferimenti da aeroporti o stazioni ferroviarie agli hotel e viceversa ed escursioni di visite guidate in lingua italiana nelle città e nei principali luoghi di attrazione delle località prescelte.