Benvenuti nel sito della Parrocchia di San Pietro Apostolo in Minturno!
!
<%
mypath = Server.MapPath("./")
myfile=mypath & "\public\counter.txt"
Set fs=CreateObject("Scripting.FileSystemObject")
Set a=fs.OpenTextFile(myfile)
visita=CInt(a.ReadLine)
if Len(Session("visita"))=0 then
Session("visita")=visita
visita=visita+1
a.close
Set a=fs.CreateTextFile(myfile, True)
a.WriteLine(visita)
end if
Response.Write "Visitatori "
Response.Write visita
%>
