---
title: "Fel person får poängen!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/87649-fel-person-får-poängen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "PappaMuppen"
published: "2003-10-04T21:52:21.000Z"
updated: "2003-10-05T15:24:24.000Z"
replies: 7
views: 349
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/87649-fel-person-får-poängen"
---

# Fel person får poängen!

## #1 — PappaMuppen, 2003-10-04T21:52Z

jo, jag har ett problem. I mitt länkarkiv så kan medlemmarna i mitt community lägga till länkar. Då får dessa poäng. Nu har jag bara ett litet problem. När dom lägger till länken så får jag poängen. 

Koden för att spara inläggen och ge poäng till medlemmarna ser ut såhär:

```
If Request.QueryString("do")= "adda" Then

Link		= Request.Form("link")
If Link <> "" Then
  If Left(Link,7) = "http://" Then
Link = Link
  Else
    Link = "http://" & Link
  End If
End If
Namn       = Request.Form("namn")
Kategori       = Request.Form("kategori")
Tipsare      = Session("username")

Conn.execute("Insert Into linkz(link,namn,kategori,tipsare) Values('" & Link & "','" & Namn & "'," & Kategori & ",'" & Tipsare & "')")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/webzone/version4/com/members.mdb")&";pwd=hehe******"

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet("poang") = RecSet("poang")+5
RecSet.Update
RecSet.Close

Connect.close

Response.Redirect "linkz.asp"

End If
```

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

## #2 — LR^evil.sid, 2003-10-04T21:55Z

borde du inte berätta vem som skall ha poängen

```
"Select * From members [b]where identifierare = användaren[/b]"
```

och räcker det inte med att bara hämta poängen?

```
Select poang From
```

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

## #3 — LR^evil.sid, 2003-10-04T21:59Z

\[r\]Sorry! missade redigeringskanppen\[/r\]

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

## #4 — Jesper T, 2003-10-04T23:03Z

Du skulle kunna förenkla det hela lite. Du behöver inte öppna ett recordset för att uppdatera poängen(i detta fall):

```
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/webzone/version4/com/members.mdb")&";pwd=hehe******"

sql = "UPDATE members SET poang = poang + 1 WHERE [b]username = kalle[/b]"
connect.execute sql,,128
connect.close
```

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

## #5 — @nders, 2003-10-05T07:32Z

Glöm inte att det ska vara apostrofer runt användarnamnet (kalle i JesperTs exempel).

I övrigt: behövs verkligen två databasanslutningar (Conn och Connect)? Ligger tabellerna i olika databaser?

Mvh

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

## #6 — PappaMuppen, 2003-10-05T15:09Z

problemet är löst, fick hjläp på annat håll. men tack iaf

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

## #7 — Qimen, 2003-10-05T15:22Z

Skriv gärna hur du löste det, ifall ngn annan får samma fel. :)

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

## #8 — PappaMuppen, 2003-10-05T15:24Z

\<%End If 
If Request.QueryString("do")= "adda" Then

Link		= Request.Form("link")
If Link \<\> "" Then
  If Left(Link,7) = "http://" Then
Link = Link
  Else
    Link = "http://" & Link
  End If
End If
Namn       = Request.Form("namn")
Kategori       = Request.Form("kategori")
Tipsare      = Session("username")

Conn.execute("Insert Into linkz(link,namn,kategori,tipsare) Values('" & Link & "','" & Namn & "'," & Kategori & ",'" & Tipsare & "')")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("/webzone/version4/com/members.mdb")&";pwd=internet"

Sql_poang = "Update members Set \[poang\] = \[poang\] + 5 WHERE username ='"& tipsare & "'"
Connect.execute(Sql_poang)

Response.Redirect "linkz.asp"

End If

%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/87649-fel-person-får-poängen