4 svar · 522 visningar · startad av WebbisNet
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:
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>
<%
Dim varIP
varIP = Request.ServerVariables("remote_addr")
If WebfragaIP("ip") <> varIP Then
%>
<input type="submit" class="button" value="Rösta">
<%
Else
%>
<font color="#FF0000">Du har redan röstat</font>
<%
End If
%>
Borde funka, så länge personen har samma IP som de hade när de röstade.
Samt kolla in detta:
http://support.microsoft.com/default.aspx?scid=kb;en-us;175239
verkade 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
%>
Du bör nog lägga till vecka i WHERE-klasulen för annars kan en dator (ip-adress) bara rösta en gång. Någonsin.
Pace skrev:
Du bör nog lägga till vecka i WHERE-klasulen för annars kan en dator (ip-adress) bara rösta en gång. Någonsin.
det kan du nog ha rätt i
