<%
data = date()
data_anno = year(date)
data_mese = month(date)
if len(data_mese) = 1 then data_mese= "0" & data_mese
data_giorno=day(date)
if len(data_giorno) = 1 then data_giorno = "0" & data_giorno
dataodierna = data_anno & "." & data_mese & "." & data_giorno
'inizio codice contatore generale
Response.Expires = 0
Set fs = CreateObject("Scripting.FileSystemObject")
<<<=== RIGA DELL'ERRORE
Path = server.mappath("/public/counter/counter.txt")
Set a = fs.OpenTextFile(path)
contatoretotale = a.ReadLine
'Controllo gli aggiornamenti di pagina
If Session("contatoretotale") = "" then
Session("contatoretotale") = contatoretotale
'Incremento di 1 il valore presente nel file di testo
contatoretotale = contatoretotale + 1
a.close
'Scrivo sul file di testo il nuovo valore
Set a = fs.CreateTextFile(path, True)
a.WriteLine(contatoretotale)
End If
a.Close
'fine codice contatore generale
'inizio codice contatore giornaliero
Response.Expires = 0
Set fs2 = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("/public/counter/giorno/" & dataodierna & ".txt")
'controllo esistenza file sul server
Dim FileObject
Set FileObject=CreateObject("Scripting.FileSystemObjec t")
esiste=FileObject.FileExists(path)
Set FileObject=Nothing
'fine controllo esistenza file sul server
'se non esiste creo il file con il nome della data odierna
if esiste = False or Falso then
Set FileObject=Server.CreateObject("Scripting.FileSyst emObject")
Set OutStream=FileObject.CreateTextFile(Server.MapPath ("/public/counter/giorno/" & dataodierna & ".txt"),true,0)
Outstream.WriteLine 1
OutStream.Close
Set OutStream=Nothing
Set FileObject=Nothing
end if
Set b = fs2.OpenTextFile(path)
contatoregiorno = b.ReadLine
'Controllo gli aggiornamenti di pagina
If Session("contatoregiorno") = "" then
Session("contatoregiorno") = contatoregiorno
'Incremento di 1 il valore presente nel file di testo
contatoregiorno = contatoregiorno + 1
b.close
'Scrivo sul file di testo il nuovo valore
Set b = fs2.CreateTextFile(path, True)
b.WriteLine(contatoregiorno)
End If
b.Close
'fine codice contatore giornaliero
%>