Analizando Um Código!

[mkboy]

No meu contador de visualizações eu preciso fazer uma verificação de ip do usuario, para ele não ficar dando reload e aumentando as visitas.

Peguei este codigo pronto de uma enquete, mas num entendi, vamos explora-lo?

<%
'VERIFICA O IP PARA VER SE O USUÁRIO já VOTOU
ip = Request.ServerVariables("REMOTE_ADDR")
data = date
hora = time

SQLx = "SELECT horario as thora,MAX(datavoto) as tdata FROM tvoto WHERE ip = '"&ip&"' "
SQLx = SQLx &"GROUP BY horario HAVING horario = "
SQLx = SQLx &"(SELECT MAX(horario) FROM tvoto WHERE datavoto in "
SQLx = SQLx &"(SELECT max(datavoto) as tdata FROM tvoto))"
Set rsx = db.execute(SQLx)

if not rsx.eof then
	tdata = rsx("tdata")
	thora = rsx("thora")
	if trim(data) = trim(tdata) then
  if (horaatual  < horario + rsadm("tempoespera")) then
  	Response.redirect("resultado.asp?codperg="&codperg&"")  'REDIRECIONAMENTO
  end if
	end if
end if
%>

Tem alguma forma mais simples?

[bareta]

esse codigo compara a data atual

data = date

com uma data pega do bd do seu voto que é verificado pelo ip

SQLx = "SELECT horario as thora,MAX(datavoto) as tdata FROM tvoto WHERE ip = '"&ip&"' "

tdata = rsx("tdata")

se a data for a mesma:

if trim(data) = trim(tdata) then

verifica as horas:

if (hora  < thora(q veio do bd) + rsadm("tempoespera")(rsadmin deve ser outro select de outra tabela que contem o tempo entre um voto e outro) then

se for menor mostra os resultados e se for maior conta um clique:

else
faz a função
end if