Salve,

sul mio sito Clematidi.it presente su ARUBA non riesco a incrementare il contatore delle visite 'Conta.txt' presente nella root; mi da il seguente errore:

Microsoft VBScript runtime error '800a0046'

Permission denied

/inc/visitatore.asp, line 26

Il file conta.txt è settato con permessi di lettura e scrittura (proprietario, di gruppo e pubblici)

A seguire il codice dello script


<%
Dim nomefile, filestream
nomefile = Server.MapPath("/conta.txt")
Set objFile = CreateObject("Scripting.FileSystemObject")

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

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

'creo la variabile di sesione se non è ancora presente
if Session("visiting")<>1 then
Session("visiting") = 1
visite = visite + 1
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

'visualizzo il numero totale di visite
%>

Visitatore N° <%=visite%>


Potete aiutarmi ?