<% Dim ip_remoto Dim cnn_conexao Set cnn_conexao = Server.CreateObject("ADODB.Connection") ip_remoto = Request.ServerVariables("REMOTE_ADDR") cnn_conexao.open("simposio_rfid") if ip_remoto <> "201.40.119.2" and ip_remoto <> "200.146.78.131" and ip_remoto <> "172.27.1.3" and ip_remoto <> "172.27.1.2" then cnn_conexao.Execute "UPDATE tb_contador SET int_inicio = int_inicio + 1 WHERE int_codigo = 1", adOpenForwardOnly, adLockOptimistic cnn_conexao.Execute "INSERT INTO tb_contagem_precisa (dt_data, tm_hora, str_ip) VALUES ('" & str_formatar_data(Date) & "','" & Time & "','" & ip_remoto & "')" end if cnn_conexao.Close set cnn_conexao = nothing %>