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")
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.