Como Fazer.

[mariofdf]

tenho um sistema de top, e gostaria de guando a pessoa clicar em um link o sistema verificasse se ela já votou naquele site , so pode votar uma vez no site por dia.

No bd eu gravo tres informações, ip, iddosite e data, teria como selecionar a a data e verificar se o ip já votou no site naquela data e se votou não gravar o voto e se não votou seguir o procedimento normalmente.

Caso não tenha sido claro, me falem que eu explico melhor.

É pra amanha e só falta esta parte.

[O_Coleci0nadoR]

cara, tipo, entra nesse site: www.scriptfacil.com.br

Lá, tem uma parada que se a pessoa num votar, ela num pode entrar no site ou nakela determinada região.

falou!

[nostrinkes]

E fácil, crie uma session com o nome do site votado e com o valor true logo após o voto.

Depois

cada vez que for votar em um site antes de inserir mais um voto ao banco verifique o session se está como true senão....

[Reginaldo ASP]

Capturar ip do usuário

Request.ServerVariables("REMOTE_ADDR")

Isso ajuda?

[mariofdf]

os dados o ip e tudo mais eu já sei recuperar o que não estou conseguindo é comparar os dados com os do bd e verificar se aquele ip naquele dia já votou naquele site, se sim não gravar novamente...

Me ajudem....

[ursolouco]

os dados o ip e tudo mais eu já sei recuperar o que não estou conseguindo é comparar os dados com os do bd e verificar se aquele ip naquele dia já votou naquele site, se sim não gravar novamente...

Me ajudem....

Brother!!

Vamos tentar inventar uma lógica interessante:

1 - Pegamos o IP e a Data Atual

2 - Conectamos e Selecionamos toda tabela onde os dados forem igual a data ou IP

3 - Se não achar nada, você põe no banco de dados e atualiza a tabela de votos, caso contrario, você diz q o menino já votou hoje...

O que acha ?

Abraços!!!

[urso]

[mariofdf]

mas a pessoa pode votar em outro site, teria de comparar o seguinte,

Para não computar o voto ip = ip data = data e idsite = idsite, so que não sei como compara,

se puder me mostrar como se faz isso:

segue meu codigo abaixo.

<!-- #include file="conexao.asp" -->

<!-- #include file="lib.asp" -->

<%

if request.form("idsite") = "" then

response.redirect("ranking.asp")

end if

set rs = server.CreateObject("ADODB.Recordset")

vSQL1 = "select * from tbranking where ip = '"&request.ServerVariables("remote_addr")&"' "

vSQL1 = vSQL1 &"and dateAccess = #"&formatadatauniversal(cdate(date), fdbrazilian)&"# "

vSQL1 = vSQL1 &"and idsite = "&request.form("idsite")&" "

rs.open vSQL1, con

if rs.eof then

if request.form("idsite") = 83 then

vSQL = "insert into tbranking(idsite, AccessIN, IP)values("&request.form("idsite")&", 1, '"&request.ServerVariables("remote_addr")&"')"

con.execute(vSQL)

end if

vSQL = "insert into tbranking(idsite, AccessIN, IP)values("&request.form("idsite")&", 1, '"&request.ServerVariables("remote_addr")&"')"

con.execute(vSQL)

response.redirect("ranking.asp")

else

response.redirect("ranking.asp")

end if

%>

[mariofdf]

gente preciso de ajuda...

[ursolouco]

<%  
	Session.LCID=1046
	IpCliente = Request.ServerVariables("REMOTE_ADDR")
	IdSite = Request.Form("idSite")
	mData = Date()

	Function Votar(IdSite)
  votoSQL = "INSERT INTO tbranking(IdSite, Data, Ip)VALUES('"& IdSite &"',"& mData &",'"& IpCliente &"');"
  Set RsVoto = Server.CreateObject("adodb.recordset")
  Set RsVoto = Conexao.Execute(votoSQL)
  RsVoto.Close
  Set RsVoto = Nothing
	End Function

	MontaSQL = "SELECT * FROM tbranking Where Ip="& IpCliente &" And idSite="& IdSite&" And mData="& mData &";"	
	Set Rs = Server.CreateObject("adodb.recordset")	
	Rs.Open MontaSQL, Conexao, 3, 3
	If Not Rs.Eof Then
  'Não deve votar, porque achou o IdSite do dida de hoje, juntamente com o IpAtual
  Response.Redirect("ranking.asp")
	Else
  Call Votar(IdSite)
	End If	
%>

[mariofdf]

esta dando o seguinte erro:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/gravaacesso.asp, line 20

[ursolouco]

Editado, viajei grandão. Desculpe-me. Editado Fevereiro 16, 2004 por ursolouco

[mariofdf]

Urso, não entendi o porque de seu ultimo post...

[mariofdf]

preciso de ajuda urgente...

[mariofdf]

ajudas????

[ursolouco]

Mario!!!

Desculpe-me, acho que estou trabalhando muito. Confundi seu tópico, com um sobre o tema de 'paginação'.

Foi muito MaL

estou até com vergonha.... desculpe.

[mariofdf]

Já consegui arrumar, pode encerrar o tópico...

amigo Urso obrigado pela ajuda....