Jag har ett problem med att hindra besökaren från att rösta flera gånger, får det att funka lokalt men på nätet kan man rösta hur många gånger man vill

på nätet får jag ibland felmeddelande error '80020009'
/index.asp, line 112 där rad 112 är <%'If not WebfragaIP("ip") = varIP Then%>

Här är koden jag använder:


kod:--------------------------------------------------------------------------------
Set Webfraga=objConn.Execute("SELECT * FROM tblWebfraga WHERE vecka="&cStr(52))
Set WebfragaIP=objConn.Execute("SELECT * FROM tblWebfraga_ip WHERE vecka="&cStr(52))

varIP=Request.ServerVariables("remote_addr")

<form name="webfraga" action="/save/updateWebfraga.asp">
<%=Webfraga("Fraga")%><br>
<input checked type="radio" name="val" value="1">Ja
<input type="radio" name="val" value="2">Nej
<input type="radio" name="val" value="3">Vet ej
<%If not WebfragaIP("ip") = varIP Then%>
<input type="submit" class="button" value="Rösta">
<%Else%>
<font color="#FF0000">Du har redan röstat</font>
<%End If%>
</form>

Sådana där saker kan ju vara lite knepigt. Nu går du efter IP nr ocj även om de har dynamiskt IPnr så tror jag inte att förnyas mer än en ggr per dygn(jag har för mig det).
Jag skulle nog gjort som så, att jag sätter en coockies, som är samma som IPnr, och sedan kolla om den coockes finns, då har han ju röstat.

Även om personen byter IP så förhindras spamming av röstningen vilket räcker för mig just nu......och just nu vill jag bara få detta att fungera

verkar ha lösts med
<%
Set ObjRs = objConn.Execute("SELECT * FROM tblWebfraga_ip WHERE ip='"& varIP &"'")

If(ObjRs.EOF) Then
Response.Write("<input type=""submit"" class=""button"" value=""Rösta"">")
Else
Response.Write("<font color=""#FF0000"">Du har redan röstat</font>")
End If
%>