il mio codice completo è questo:
codice:
Dim nomefile, filestream
nomefile = Server.MapPath("/dati/public/mercatino/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("10")
end if
'legge il numero attuale di visite
Set filestream = objFile.OpenTextFile(nomefile, 1, true)
Dim visite
visite = filestream.ReadLine()
filestream.Close
visite = visite + 1 'incrementa gli accessi al sito
'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
ho notato che se il file non cè viene creato normalmente, letto e aggiornato senza problemi.
se invece il file esiste già... non riesce ad aggiornarlo e da errore!
idee?