<% sql = ("SELECT visitas FROM visitas") set rse = Server.Createobject("adodb.recordset") ip = Request.ServerVariables("REMOTE_ADDR") data = date() visitas = visitas +1 IF visitas = 0 THEN conexao.execute("INSERT INTO visitas (visitas,data,ip) VALUES ('"&visitas&"','"&data&"','"&ip&"')") ELSE conexao.execute("UPDATE visitas SET visitas = CINT(visitas + 1) WHERE id = "&Request.Querystring("id")&"") END IF set rse = nothing %>
bom não sei se isso ta no caminho certo, se alguem poder me ajudar a continuar agradeço. e tipo faze pra contar uma vez por IP