<% strNumero = "d:\Web\Web_hosting\www.htlscoiattolo.com\contatore.txt" Set objFile = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFile.OpenTextFile(strNumero) numAttuale = objStream.ReadLine objStream.Close Set objStream = Nothing Set objFile = Nothing '*********************************************** '*** Prepara il numero successivo *** '*********************************************** numSuccessivo = numAttuale + 1 '************************************** '*** Aggiorna il file contatore.txt *** '************************************** Dim filesys, testfile Set filesys = CreateObject("Scripting.FileSystemObject") Set testfile= filesys.CreateTextFile(strNumero, True) testfile.WriteLine numSuccessivo testfile.Close Set filesys = Nothing Set testfile = Nothing %> Hotel Lo Scoiattolo - Residence Fiocco di Neve - Piccolo Residence - Gressoney La Trinité (AO)
Hotel Lo Scoiattolo - Gressoney La Trinité (AO)Hotel Lo Scoiattolo : Versione Italiana e FranceseHotel Lo Scoiattolo : English and German Version Residence Fiocco di Neve : Versione Italiana e FranceseResidence Fiocco di Neve : English and German VersionResidence Fiocco di Neve - Gressoney La Trinité (AO) Il Piccolo Residence - Gressoney La Trinité (AO)Il Piccolo Residence : Versione Italiana e FranceseIl Piccolo Residence : English and German Version

Amministrazione