<% 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 %>
 
 
 

 
 
 

PARTIRE POOL7 di Pool7 srl
via Isonzo 23, 15100 Alessandria.
Tel. 0131 232898
Fax: 0131 234277
pool7@pool7.com

 
 
 
 

 

 
Visita l'area dedicata ai nostri autopullman e scopri tutti i comfort studiati per chi viaggia con la nostra organizzazione.
 
L'elenco delle agenzie di viaggio dove effettuare le tue prenotazioni.
 
Partire Pool mette a disposizione della clientela l'area riservata del sito per effettuare pagamenti.
 
Tutte le località da cui partono abitualmente i nostri viaggi di gruppo e le informazioni per l'adesione anche da tutte le altre città.