| <%
Dim obj_File, obj_FSO, obj_Cartella
Percorso_Cartella = Server.MapPath("img/random")
Set obj_FSO = Server.CreateObject("Scripting.FileSystemObject")
Set obj_Cartella = obj_FSO.GetFolder(Percorso_Cartella)
Dim Numero_Banner, Stringa_Nomi_Banner_Completi
Numero_Banner = 0
Stringa_Nomi_Banner_Completi = ""
FOR EACH obj_File IN obj_Cartella.Files
Numero_Banner = Numero_Banner + 1
Stringa_Nomi_Banner_Completi = Stringa_Nomi_Banner_Completi & cstr(obj_File.Name) & "?"
NEXT
Set obj_Cartella = Nothing
Set obj_FSO = Nothing
Stringa_Nomi_File_Completi = Left(Stringa_Nomi_Banner_Completi,(Len(Stringa_Nomi_Banner_Completi)-1)) ' elimino l'ultimo punto interrogativo
Dim Codice_Articolo_Array, Immagine_Pagina_Array
Banner_Array = Split(Stringa_Nomi_Banner_Completi, "?")
if (Request.Cookies("Mediterraneo")("numero_banner")= "" )then
' Genero il numero_casuale nell'intervallo del numero file presenti
Randomize()
Numero_Scelto = int(fototop * (Numero_Banner))
Response.Cookies("Mediterraneo")("numero_banner") = Numero_Scelto
else
Response.Cookies("Mediterraneo")("numero_banner") = (Cint(Request.Cookies("Mediterraneo")("numero_banner")) + 1) mod numero_banner
end if
Banner = Banner_Array(Cint(Request.Cookies("Mediterraneo")("numero_banner")))
%>
|
|
|
|
|
 |
Il
MEDITERRANEO IMMERSION CLUB per il 2009 offre ai suoi
ospiti nuovi punti d’immersione in tutto l’arcipelago
delle Pelagie: dalle coloratissime grotte e pareti
calcaree di Lampedusa , ai salti mozzafiato della
vulcanica Linosa, non ultimo l’isolotto di Lampione
con i suoi segreti custoditi gelosamente da grosse
cernie e squali grigi…
Ti aspettiamo per vivere insieme l'emozione di un
mare diverso e un modo tutto nuovo di fare subacquea,
slegato dai ritmi e dai tempi veloci a cui eri abituato
. Qui troverai tranquillità, relax e un e un
gruppo di amici che saprà sorprenderti ogni
giorno con professionalità, allegria e passione.
|
|
 |
 |
|
 |
|
|
|
|
|
|
Il
Mediterraneo Immersion Club, al suo 15° anno di
attività, si trova alle spalle dell'Hotel Martello,
a 50 metri dal Porto Nuovo, punto d'imbarco per le
escursioni. Gestito da personale
dinamico e qualificato, il Diving è un Centro
Padi n°799021 e
dispone di 25 attrezzature complete, 90
bombole biattacco, 2 compressori Bauer da 16.000 litri.
Gli ampi locali del Diving offrono un'aula attrezzata
per i corsi: sub, biologia, fotografia.
|
|
|
|
|
|
|
|
|
Giada
è la barca che ci porterà alla scoperta
del Mediterraneo. Comoda e veloce, disegnata
per le attività subacquee, è ideale
per una navigazione rilassante e divertente. Attrezzata
con
GPS, ecoscandaglio, stazione decompressiva e kit ossigeno
è in grado di soddisfare
subacquei di tutti i livelli, anche i più esigenti. |
|
|
 |
|
|
