Le vapeur HIRONDELLE, juste avant qu'il ne coule Le vapeur RHÔNE, juste avant qu'il ne sombre petite animation de wagons !... nouvelles images 11.12.08 1 sous-marin dans le Léman la caisse au trésor spectaculaire 15.10.05 EMPREINTE dernière modification 06.10.09 4 BATEAUX à VAPEUR dernière modification 30.05.08 9 BATEAUX à VOILE dernière modification 06.06.10 9 BATEAUX à MOTEUR dernière modification . .00 AVIONS dernière modification 14.03.06 4 WAGONS (+ 2) dernière modification 03.06.08 PILOTIS, TENEVIERE et un 'BRICK' dernière modification 25.02.10 chaland, caisson, BALEINIÈRE, divers ceux qui nous aident/qui nous ont aidés... dernière modification 23.01.09 quelques images de RÉCUPÉRATIONS dernière modification 25.06.06 ou le 'COMMENT' dernière modification 31.12.08 le LÉMAN en quelques chiffres et sa FAUNE nos liens réciproques observations, projets d'études, de mesures dernière modification 23.07.09 presse, télévision, radio 10 asf, 1 ppt, 5 vidéos de la TV Points approximatifs... Ceux marquant les vapeurs 'Rhône' et 'Hirondelle' sont "SENSIBLES" Points approximatifs. Ceux marquant les vapeurs 'Rhône' et 'Hirondelle' sont "sensibles" Explorez vous-même les fonds du lac Léman
Vous désirez nous faire part de quelque chose ? Veuillez faire copier/coller de l'adresse qui suit :
         mail@sub-rec.ch        (l'ancienne va être annulée)

exploration par robot (ou "ROV" Remote Operated Vehicle)
lac Léman leman
epave épave de vapeur voilier avion bateau moteur épaves epaves
Rhône - Cygne - Hirondelle - Aigle II / Simplon - Nemo
wagons de chemin de fer, wagon
...des Compagnies de la Ligne d'Italie, Ligne du Simplon, Ligne du Tonkin.
limnologie: etude du poisson, de la sédimentation
patrimoine lacustre lemanique
et ferroviaire
.
Copyright Sub-rec © 1998-2010
PAILLEX Gilbert
CH Lausanne
compteur : 100'000 + <% ' Compteur ASP de hits ' Création de l'objet Set FSO=CreateObject("Scripting.FileSystemObject") Set FSO=Server.CreateObject("Scripting.FileSystemObject") fichier=Server.MapPath("/data") & "\compteur.txt" fichier=Server.MapPath("/_private/cgi-bin") & "\hitcounter.txt" fichier=Server.MapPath("\_private") & "\cgi-bin" & "\hitcounter.txt" fichier=Server.MapPath("\_private\cgi-bin") & "\hitcounter.txt" fichier=Server.MapPath("/_private") & "\compteur.txt" ' Lecture du fichier s'il existe et incrémente cpt = 1 if FSO.FileExists(fichier) then set inF = FSO.OpenTextFile(fichier,1,false) cpt = cLng(inF.readLine) + 1 ' jusqu'à 2 milliards inF.close end if ' Sauvegarde du compteur set inF = FSO.createTextFile(fichier) inF.writeLine(cpt) inF.close cpt = 111 %> Visite n° <%=cpt%> +