Poängsystem

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.

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,

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

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.

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,

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

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.