utenti + attivi

[yro]

ciao, volevo fare una cosa di questo genere:

nel mio guestbook visto che chi scrive bene o male sono sempre una decina, volevo fare una lista di utenti + attivi con il numero di post inserite basandomi sul nome che cmq è sempre quello.

mi potete consigliare come fare??
anche a livello di ragionamento!!

grazie!!

[fero]

se hai un db puoi , ad ogni post, incrementare il numero di post di quell'utente.

chi ha + post è il + attivo

[yro]

Originariamente inviato da fero
se hai un db puoi , ad ogni post, incrementare il numero di post di quell'utente.

chi ha + post è il + attivo

che perla!! :rollo:

ovviamente ho un db... ma il mio problema è voglio fare la lista dei 5 utenti con + post.

da dove parto e cosa prelevo prima!

[fero]

che db hai?

ti interessa sapere la query?

hai già sul db il numero di post?

[yro]

uso access

non ho un contatore... bisogna contare il numero dei record con lo stesso nome e avere i primi 5 o i primi 3 con + record...

grazie!

[Sanjet]

Non puoi usare un Distinct e un Count?
Prima usi Distinct per prelevare tutti i nomi (senza doppioni: se ci sono due messaggi di Mangione, Mangione viene scritto una volta sola). Li inserisci in un ciclo do while e per ogni utente fai un count dei suoi messaggi

[yro]

si giusto...

ho fatto così ma mi sono bloccato per un errore:

set rs10 = server.CreateObject("adodb.recordset")
strSQL10 = "SELECT DISTINCT nome FROM messaggi"
rs10.open strSQL10, objConn, 0,3

do while not rs10.eof
pippo = (rs10.Fields.Item("nome").value)
rs10.movenext
loop

set rs2 = server.CreateObject("adodb.recordset")
strSQL2 = "SELECT count(id) FROM messaggi WHERE nome = "&pippo&""
rs2.open strSQL2, objConn, 0,3

Microsoft JET Database Engine error '80040e10'

Nessun valore specificato per alcuni parametri necessari.

probabilmente in sql2 non fa il ciclo però! :master:

[Sanjet]

A quale linea ti da l'errore?
Uhm non so come prendere sql2... io mi occupo solo di MySql e talvolta di access... comunque

set rs10 = server.CreateObject("adodb.recordset")
rs10 = "SELECT DISTINCT nome FROM messaggi"
Conn.execute(rs10)

do while not rs10.eof
pippo = rs10("nome")

set rs2 = server.CreateObject("adodb.recordset")
rs2 = "SELECT count(id) AS tp FROM messaggi WHERE nome = "&pippo&""
Set giz = Conn.Execute(rs2)
numm = giz("tp")

response.write "L'utente " & pippo & " ha scritto " & numm & "messaggi"

rs10.movenext
loop

Se l'avessi fatta io (che uso MySql), l'avrei fatta così.

[yro]

set rs10 = server.CreateObject("adodb.recordset")
strSQL10 = "SELECT DISTINCT nome FROM messaggi"
rs10.open strSQL10, objConn, 0,3

do while not rs10.eof

pippo = rs10("nome")

set rs2 = server.CreateObject("adodb.recordset")
strSQL2 = "SELECT count(id) AS tp FROM messaggi WHERE nome = "&pippo&""
rs2.open strSQL2, objConn, 0,3
numm = giz("tp")
response.write "L'utente " & pippo & " ha scritto " & numm & "messaggi"
rs10.movenext
loop

sarebbe cosi ma mi da lo stesso errore nella riga in bold

Microsoft JET Database Engine error '80040e10'

Nessun valore specificato per alcuni parametri necessari.

/prove_yari/p1/muretto.asp, line 29

[Sanjet]

Non saprei dire :master: se stampassi una query e la provassi direttamente sul database?