Poängsystem

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?

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.

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

Vad ska jag lägga denna kod:

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

I aspfilen login_check.asp eller.

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,

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

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"

%>

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"
.
.
.

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

[Redigerat av @nders den 15 sep 2001]

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

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.

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

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

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

Mvh,

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html

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

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

mvh Jörgen

------------------
"Ett väl utfört arbete ger en inre tillfredsställelse och är den grund varpå samhället vilar."

det är text - sorten

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.

------------------
http://free.webforum.nu/wf/Forum1/HTML/004053.html