Fel person får poängen!

7 svar · 344 visningar · startad av PappaMuppen 4 okt. 2003

PappaMuppenMedlem sedan aug. 200343 inlägg

Frågan4 okt. 2003 21:52#1

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

LR^evil.sidMedlem sedan maj 2002560 inlägg

4 okt. 2003 21:55#2

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

LR^evil.sidMedlem sedan maj 2002560 inlägg

4 okt. 2003 21:59#3

[r]Sorry! missade redigeringskanppen[/r]

Jesper TMedlem sedan nov. 20017 144 inlägg

4 okt. 2003 23:03#4

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

@ndersMedlem sedan juni 200032 967 inlägg

5 okt. 2003 07:32#5

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

PappaMuppenMedlem sedan aug. 200343 inlägg

5 okt. 2003 15:09#6

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

QimenMedlem sedan juni 20015 009 inlägg

5 okt. 2003 15:22#7

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

PappaMuppenMedlem sedan aug. 200343 inlägg

5 okt. 2003 15:24#8

<%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