ciao ho questo contatore che scrive su un txt.

codice:
'-------------------contatore visite----------------------------------------------------------
Dim nomefile, filestream
nomefile = Server.MapPath("/dati/public/immobiliare/contatore/"&rs("id")&".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("20")
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 + 3  'incrementa  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("<tr><td colspan='3'>Visitatori che hanno valutato il tuo articolo: "&visite&"
")
vorrei che se io faccio il refresh il contatore continuasse ad incrementare il numero... è possibile?

grazie!