<%@ LANGUAGE="vbscript"%>
<%
Dim strIndirizzoIP
If Request.ServerVariables("REMOTE_ADDR") = "87.29.179.157" Then
strIndirizzoIP = "192.168.0.25"
Else
strIndirizzoIP = "87.29.179.157"
if session("entrato")<>"si" then
Dim objFSO, objTextFile
Dim sRead, sReadLine, sReadAll
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath("public/ipvisitatorichevengonosulsito.txt"), ForAppending)
objTextFile.WriteLine(Request.ServerVariables("REMOTE_ADDR") & " " & date & " " & time )
objTextFile.close
session("entrato")="si"
end if
End If
%>
OXJHO ITALIA