<%@ language="VBScript" %>
<%
if )="0" visitas session( or ip )<>Request.ServerVariables("REMOTE_ADDR") or session("id")="" or session("id")=0 or session("id")<>session.SessionID then ' Verifica se o usuário já foi contado, evita que seja contado com um refresh
set conn = server.createObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Visitas.mdb") & ";"
sql="select Top 1 from Contador order by Visitas desc" 'Seleciona o ultimo visitante
Set Contador = server.CreateObject("ADODB.RecordSet")
Contador.Open sql,conn,adOpenDynamic,adLockOptimistic,adCmdTable
Visitas=cint(cint(Contador("Visitas"))+1)
session("Visitas")=Visitas
Session("UltimaVisita")=Contador("Ultimo_visitante")
session("IP")=Request.ServerVariables("REMOTE_ADDR")
session("ID")=session.SessionID
Contador.addnew
Contador("Visitas")=cint(Visitas)
Contador("Ultimo_visitante")=cdate(Now())
Contador("IP")=session("IP")
Contador("ID")=session("ID")
Contador.update
Contador.Close
set Contador= nothing
conn.Close
set conn= nothing
end if
%>
Visitas= <% )%="visitas" session(>
Ultima Visita= <% )%="session(" ultimavisita>
Ultimo IP= <% )%="session(" ip>
Ultimo ID= <% id="session(" )%>%>%>%>%>%
if>%@>