Ciao a tutti, solitamente nell' home page inserisco questo codice come contatore di accessi, solo che questa volta vorrei non venga visualizzato a tutti il numero di visitatori ma solamente accedendo ad una pagina protetta....sapreste dirmi come modificare il codice o se conoscete magari qualche alternativa ?
codice:
<%
Dim nomefile, filestream
nomefile = Server.MapPath("/public/visite.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")

'se il file non esiste, crealo
if not objFile.FileExists(nomefile) then
  Set filestream = objFile.OpenTextFile(nomefile, 2, true)
  filestream.WriteLine("0")
end if

'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close

'se non è ancora presente la variabile di sessione
if Session("visiting")<>1 then
  Session("visiting") = 1  'crea la variabile di sessione
  visite = visite + 1  'incrementa di uno gli accessi al sito
end if

'scrive nel file il valore aggiornato di visite
Set filestream = objFile.CreateTextFile(nomefile, true)
filestream.WriteLine(visite)
filestream.Close

Set filestream = Nothing
Set objFile = Nothing

'visualizza sul browser il numero totale di visite
Response.Write "Numero visite: " &visite
%>
Grazie !