---
title: "Rösta 1 gång.. Cookies"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/65091-rösta-1-gång-cookies"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "sin_adec"
published: "2003-01-16T16:00:29.000Z"
updated: "2003-01-23T15:43:24.000Z"
replies: 6
views: 233
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/65091-rösta-1-gång-cookies"
---

# Rösta 1 gång.. Cookies

## #1 — sin_adec, 2003-01-16T16:00Z

Tjenare alla webb-utvecklar, behöver nämnligen hjälp att utveckla min kod mer.. jag vill nämnligen att man ska endast kunna rösta en medlem en gång inte fler..

```

<% response.buffer ="true" %>
<!-- #include file="adovbs.inc" --><%Dim Con
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxx.mdb") &";pwd=xxx"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From medlemmar where id=" & request.querystring("id") & " "
RecSet.Open Addera, Con, adOpenStatic, adLockOptimistic

total = request.querystring("summa")

Recset("antal_vote") = Recset("antal_vote") +1
Recset("points") = Recset("points") +request.querystring("points")
Recset("total") = total

RecSet.Update
RecSet.Close
Con.close
Set RecSet = nothing
Set Con = nothing

response.redirect "default.asp"
%><p>&nbsp;</p>
```

Permalänk: https://www.webforum.nu/p/65091

## #2 — CatZ, 2003-01-16T16:26Z

Ojojoj jag sitter och tittar på din kod och kom på så mycket förbättringar jag skulle vilja göra att jag helt kom av mig.

Du får nog specificera frågan lite bättre om du vill ha hjälp.

Permalänk: https://www.webforum.nu/p/917034

## #3 — crisse6, 2003-01-16T17:07Z

Detta kanske?

```
<%Dim Con
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxx.mdb") &";pwd=xxx"
Dim Pnt, total, sql
Pnt = request.querystring("points")
total = request.querystring("summa")
sql = "Update medlemmar SET antal_vote = antal_vote +1, points = points + pnt, total = total where id=" & request.querystring("id") 
Con.execute sql,,128

'Satter expires till nasta dag.
'Du kollar kakan om personen har rostat med ex:
'If Request.Cookies("vote") = "Ja" then
'response.write "Du har redan rostat idag, vanta tills imorn!"
'else
Response.Cookies("vote") = "Ja"
Response.Cookies("vote").Expires = dateAdd("d",1,now()) 
'End IF
Con.close
Set Con = nothing
response.redirect "default.asp"
%><p> </p>
```

Permalänk: https://www.webforum.nu/p/917088

## #4 — sin_adec, 2003-01-16T17:23Z

jag vill liksom, om man redan har röstat på en medlem så ska man inte kunna göra det... alltså inte ge några poäng..

Permalänk: https://www.webforum.nu/p/917104

## #5 — crisse6, 2003-01-16T23:12Z

Ja, det ligger ju dar!!!
If request.cookies("vote") = "Ja" then
response.write "Du har redan rostat...."
else
'lat rostningen ga igenom!

Permalänk: https://www.webforum.nu/p/917370

## #6 — sin_adec, 2003-01-23T14:47Z

Inget som vet..

Permalänk: https://www.webforum.nu/p/925463

## #7 — cyprys, 2003-01-23T15:43Z

Gör en tabell med 2 kolumner. 
col_uservotingon  \|  col_uservotedat

I den första kolumnen sätter du ID på den som röstade, och i den andra kolumnen sätter du ID på den som han röstade på.

sen innan varje röstning sker så kollar du

```
SQL = "SELECT count(*) as antal FROM tbl_voters WHERE uservotingon = "& han_som_röstars_id &" AND uservotedat ="& han_som_blir_röstad_på &""
rs = conn.execute(SQL)

if Rs("antal") = "0" then
' Klart du får rösta på den här liraren
else
' Men inte igen!
end if
```

Permalänk: https://www.webforum.nu/p/925494

---

Tråden på webben: https://www.webforum.nu/amne/asp/65091-rösta-1-gång-cookies