Panificio Romico

<% ' Graphical Hit Counter Example By www.PowerASP.com Dim ObjCounterFile, ReadCounterFile, WriteCounterFile Dim CounterFile Dim CounterHits Dim FixedDigitCount Dim DigitCount Dim DigitCountLength Dim DigitZerosToAdd Dim DigitZeroCount Dim ShowDigits Dim DigitPath FixedDigitCount = 5 DigitPath = "image" On Error Resume Next Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject") CounterFile = Server.MapPath ("counter.txt") Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True) If Not ReadCounterFile.AtEndOfStream Then CounterHits = Trim(ReadCounterFile.ReadLine) If CounterHits = "" Then CounterHits = 0 Else CounterHits = 0 End If ReadCounterFile.Close Set ReadCounterFile = Nothing CounterHits = CounterHits + 1 Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True) WriteCounterFile.WriteLine(CounterHits) WriteCounterFile.Close Set WriteCounterFile = Nothing Set ObjCounterFile = Nothing DigitCountLength = Len(CounterHits) If DigitCountLength < FixedDigitCount Then DigitZerosToAdd= FixedDigitCount - DigitCountLength DigitZeroCount = 1 For DigitZeroCount = DigitZeroCount to DigitZerosToAdd ShowDigits = ShowDigits & "" Next End If DigitCount = 1 For DigitCount = DigitCount to DigitCountLength ShowDigits = ShowDigits & "" Next %>

Numero visite:
<% =ShowDigits %>

a Romico S.n.c. nasce nel lontano 1898 (oggi 100 anni) con il nonno Matteo. Nel 1940 inizia la seconda generazione con papà Emanuele nel 1972 (via Avola - Siracusa), la terza con i figli Giuseppe e Salvatore. Nel 1995 (Capannone) inserimento nell'azienda della quarta generazione con il figlio di Giuseppe, Emanuele.

Offerte del mese

..........................