Sto cercando di conteggiare le visite ad un sito rilevando l'indirizzo ip del visitatore ed inserendo la visita in un db sql solo se tale indirizzo non appartiene alla lan 172.16.0.0; per fare ciò includo all'interno della home page una pagina contenente il seguente codice:
<%
dim ip
ip = Request.ServerVariables("REMOTE_ADDR")
visita=Session("Visita")
IF not Visita="si" Then
Session("Visita")="si"
If ip < "172.16.0.0" or ip > "172.16.255.255" then
dim datavis, oravis, provenienza, pagina
provenienza = Request.ServerVariables("HTTP_REFERER")
pagina = Request.ServerVariables("PATH_TRANSLATED")
datavis = Mid(Date(),4,2) & "/" & Left(Date(),2) & "/" & Right(Date(),4)
oravis = Time()
Dim rs
SQL = "INSERT INTO visite(datavisita, oravisita, ipvisita, pagref, pagpath) VALUES ('" & datavis & "','" & oravis & "','" & ip & "','" & provenienza & "','" & pagina & "')"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, MM_comune_conn_STRING, 3, 3
End If
END IF
%>

Il problema è che non funziona e mi vengono inserite anche le visite dagli ip appartenenti alla citata lan 172.16.0.0

Chiedo se per favore qualcuno può dirmi se il codice è corretto in particolare se è giusto il modo di escludere la lan.

Grazie
Franco

Adesso funziona correttamente.

Grazie

Franco