---
title: "Poängsystem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11629-poängsystem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2001-09-15T07:10:00.000Z"
updated: "2001-09-15T16:06:00.000Z"
replies: 13
views: 277
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/11629-poängsystem"
---

# Poängsystem

## #1 — ampy, 2001-09-15T07:10Z

Jag håller på med ett community och jag vill att varje gång någon loggar in så ska den medlemmen få en poäng. Hur gör man det. Ska man skapa  en ny tabell i databasen eller?

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

## #2 — @nders, 2001-09-15T07:29Z

Jag hade lagt till ett fält i medlemstabellen, intInloggningar.

Jag hade vid varje inloggning kört en update-fråga likt denna:

```
strSQL="UPDATE tblMedlemmar SET intInloggningar = intInloggningar + 1 WHERE intUserID = " & ID
```

På ett ungefär.

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

## #3 — ampy, 2001-09-15T07:34Z

Vad ska jag lägga denna kod:

strSQL="UPDATE tblMedlemmar SET intInloggningar = intInloggningar + 1 WHERE intUserID = " & ID

I aspfilen login_check.asp eller.

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

## #4 — @nders, 2001-09-15T07:41Z

Ja, det blir väl bra. Du måste dock anpassa den efter din tabellstruktur och sida i övrigt, men generellt:

1) Du kollar inloggningen mha en select-query. Se till att du får ut ID i den frågan.
2) Använd det ID:t som variabel i din update-query som du kör direkt efter.

Mvh,

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

## #5 — ampy, 2001-09-15T07:46Z

Jag förstår inte vart jag ska lägga in den koden som jag fick i login_check.asp

Hela filen ser ut så här:

\<!-- #include file="adovbs.inc" --\>

\<%

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

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

Addera = "Select \* From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'----- Rensar bort sånna som inte loggat ut korrekt.. -------

Do Until RecSet.EOF

	If RecSet("status") = "online" AND DateDiff("n", RecSet("datum"), Now) \> 45 Then
		RecSet("status") = "offline"
		RecSet.Update
	End If
	
RecSet.MoveNext
Loop
	
RecSet.Close
	
'---------------- SLUT PÅ UTRENSNINGEN ------------------
	
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

	If RecSet("username") = Request.Form("username") AND RecSet("losen") = Request.Form("losen") Then
	
		RecSet("datum") = Now
		RecSet("status") = "online"
		
		RecSet.Update
		
		Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
		Session("fnamn") = RecSet("fnamn")
		Session("enamn") = RecSet("enamn")
		Session("username") = RecSet("username")
		Session("login") = "ok"
		Session("id") = RecSet("id")
		Session("status") = "online"
		Session("epost") = RecSet("epost")

		Session.TimeOut = 40 '\<-- Kontrollera

		RecSet.Close
		Connect.Close
		Set RecSet = nothing
		Set Connect = nothing
		
		Response.Redirect "index2.html"

	End If

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Tyvärr! Fel användarnamn eller lösenord. Försök igen!"
Response.Redirect "index.html"

%\>

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

## #6 — @nders, 2001-09-15T07:52Z

Utan att rota för mycket i din kod,

```
.
.
.
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "online"
Session("epost") = RecSet("epost")

Session.TimeOut = 40 '<-- Kontrollera

[b]strSQL="UPDATE members SET intInloggningar = intInloggningar + 1 WHERE intUserID = " & RecSet("id")
Connect.execute (strSQL)[/b]

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "index2.html"
.
.
.
```

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

## #7 — ampy, 2001-09-15T07:58Z

Nu funkar det inte att logga in, det blir detta felmeddelande:

Microsoft OLE DB Provider for ODBC Drivers fel '80040e10' 

\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] För få parametrar angavs. 2 förväntades. 

/community/login_check.asp, rad 52

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

## #8 — @nders, 2001-09-15T08:32Z

Vad heter ditt inloggningsräkningsfält? Datatyp?

Du får se till att ändra så fältnamnen stämmer i frågan, jag kollade inte så noga.

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

## #9 — ampy, 2001-09-15T11:56Z

Jag får det inte att fungera, kan ingen hjälpa mig?

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

## #10 — @nders, 2001-09-15T14:31Z

Om du svarar på mina två frågor i mitt inlägg ovan, så är det en bra början.

Mvh,

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

## #11 — ampy, 2001-09-15T15:32Z

mitt fält heter poang och jag använder access.

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

## #12 — jorgen, 2001-09-15T15:48Z

@nders menar nog datatypen på fältet poang, är det ett fält av numerisk sort eller text?

mvh Jörgen

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

## #13 — ampy, 2001-09-15T15:50Z

det är text - sorten

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

## #14 — @nders, 2001-09-15T16:06Z

Den skall vara av typen tal.

Ändra det, och se till att du skriver poang i stället för intInloggningar, så bör det fungera.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11629-poängsystem