|
Immagini di vita comunitaria
Alcune immagini della nostra comunità durante
tutta la giornata.
|
Contatore
Visite |
<%
Response.Expires = 0
Set fs = CreateObject("Scripting.FileSystemObject")
Path = server.mappath("/public/conta.txt")
Set a = fs.OpenTextFile(path)
conta = CLng(a.ReadLine)
If Session("conta")="" then
Session("conta") = conta
conta = conta + 1
a.close
Set a = fs.CreateTextFile(path, True)
a.WriteLine(conta)
End If
a.Close
response.write("Sei il Visitatore n. " & conta)
%> |
|
<%
Dim ip
ip = Request.ServerVariables("REMOTE_ADDR")
Response.write " Ind.IP: " &ip
%> |
|
<%
response.write "On-line " & Application("collegati") & " Visitatore."
%> |
|
|
|
|
|