<%
Dim FSO, FileContatore, PercorsoFile, Visite
PercorsoFile = Server.MapPath("contatore.txt")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If Not FSO.FileExists(PercorsoFile) Then
Set FileContatore = FSO.CreateTextFile(PercorsoFile, True)
FileContatore.Write "0"
FileContatore.Close
End If
Set FileContatore = FSO.OpenTextFile(PercorsoFile, 1)
Visite = CLng(FileContatore.ReadAll)
FileContatore.Close
Visite = Visite + 1
Set FileContatore = FSO.OpenTextFile(PercorsoFile, 2)
FileContatore.Write Visite
FileContatore.Close
Set FileContatore = Nothing
Set FSO = Nothing
%>
Labstudio.it - Software Personalizzato e Stampa3D
Per informazioni scrivere a:
info@labstudio.it