<% Dim inizio, fine inizio=timer 'conta.txt 'file=Server.MapPath("/ricette/conta_pagine.txt") 'Set fs=CreateObject("Scripting.FileSystemObject") 'Set a=fs.OpenTextFile(file) 'visita=CLng(a.ReadLine) 'visita=visita+1 'a.close 'Set a=fs.CreateTextFile(file, True) 'a.WriteLine(visita) 'a.Close %> <% if session("id_sessione")="" then%> <%end if%> Buonissimo Web Magazine - Le ricette di cucina di Buonissimo
 

Per accedere al sito clicca qui.