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 ?
Rispondi quotando
