Meningen er at hvis ikke IPen og afstemningen findes i databasen skal afstemingen updates og derefter skal det skrives i ip_check_afstemning at den pågældende ip nu har stemt på den pågældende således at hvis de prøver at stemnne næstegang med samme ip får de = ("Du har stemt")
Uha, der var mange fejl... Prøv dette her i stedet:
<% If Request.QueryString("link") = "afstemning" And Request.QueryString("afstemningsid") <> "" And Request.QueryString("id") <> "" Then ' Der er kun grund til at åbne forbindelsen til databasen *en* gang. Set Conn = server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db.mdb")
' Find IP og afstemnings id. IP = Request.ServerVariables("REMOTE_ADDR") Afstemning = Request.QueryString("afstemningsid")
' Spørg databasen hvor mange gange det IP og det Afstemnings ID er brugt sammen. strSQL = "SELECT count(*) AS Antal FROM ip_check_afstemning WHERE ip='" & IP & "' AND afstemning='" & Afstemning & "'"; Set rs = Conn.Execute(strSQL)
If rs("Antal") <> 0 Then Response.Write ("Du har stemt") ' Mere end 0 gange! Else ' Det er brugt 0 gange.
' Opdater databasen med IP og Afstemning strSQL = "INSERT INTO ip_check_afstemning (ip, afstemning) VALUES ('" & IP & "', '" & Afstemning & "')" Conn.Execute(strSQL)
' Optæl afstemning Conn.Execute "UPDATE afstemning SET antal=antal+1 WHERE id = " & Request.QueryString("id")
' Redirect Response.Redirect "bruger.asp?link=afstemning&afstemningsid=" & Afstemning End If End If %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.