Il sitoweb è stato aggiornato, verrete reindirizzati automaticamente alla nuova homepage http://www.ristorantecastellodiroppolo.com

Se il tuo browser non ti reindirizza automaticamente clicca qui Ci scusiamo per il disagio!

<% if Session("reloaded")<>"si" then percorso=Server.MapPath("fpdb") strNumero = percorso + "\contatore.txt" Set objFile = Server.CreateObject("Scripting.FileSystemObject") Set objStream = objFile.OpenTextFile(strNumero) numAttuale = objStream.ReadLine objStream.Close Set objStream = Nothing Set objFile = Nothing numSuccessivo = numAttuale + 1 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 Session("reloaded")="si" end if %>