Pointregnskab

Det kan gøre med Count og Group By i SQL, hvis du laver den sådan her så får du en list med den som har flet points først:

SQL = "SELECT sum(point) as antal, id FROM tabel GROUP BY id ORDER BY sum(point) DESC;"


udskriv fra recordset:
do while not rs.EOF
  Response.write "Totalt antal point : " & rs("antal")
  Response.write "  id : " & rs("id") & "<br>"
  rs.movenext
loop

Jeg har nu prøvet følgende:
set Con = server.createobject ("ADODB.connection")
Con.open strConnect

set objrec = server.createobject ("ADODB.recordset")
SQL = "SELECT sum(Point) as antal, forfatter FROM pointsystem GROUP BY forfatter ORDER BY sum(Point) DESC;"

do while not objrec.EOF
  Response.write "Totalt antal point : " & objrec("antal")
  Response.write "  id : " & objrec("forfatter") & "<br>"
  objrec.movenext
loop

Den siger så:

ADODB.Recordset (0x800A0E78)
Operation is not allowed when the object is closed.

Nogle forslag? strconnect virker, fordi jeg bruger den et andet sted på samme side uden nogle problemer.

Efter SQL = "SELE... linien skal der åbnes for recortdet...

Set rs = Conn.Execute(SQL)

Flovt... Jeg takker mange gange, er du i nærheden i Sønderborg ville jeg give en kvajebajer...

arh det recordset hedder så objrec og ikke rs som jeg lige skrev:

Set objrec = Conn.Execute(SQL)

Mange tak... jeg bor lidt nord for Århus så der er lidt langt :)