Antal svar på forum post

Nu ved jeg ikke hvordan du har bygget din database op men du har vel et id nummer til et indlæg og en id til dine svar med en tilknytning til indlæg.

Så kan du tælle antal svar med en count(*) hvor svarid's indlægsid passer til dit aktuelle indlæg
fx.
indlægid = postId
svarid = anwId
svar_ind = refId

Select Count(*) as answers from [tabelnavn] where postId = refId
Det tal du får ud er dine svar.

Jeg går ud fra at det er fra samme tabel ?
Prøv:
SELECT TOP 5 Emne as Antal,(select count(svarid) from Messages where Messages.id= Messages.svarid) as AntalSvar
FROM Messages 
Where SvarID = 0 Order by Dato DESC

- og så skal du jo nok rette din where-klausul til da den siger svarid =0

Hvordan laver jeg så to RS?
Altså:

do while not rs.EOF
  Response.write "- <font color='#0000FF'>" & rs("antal") & "--" & rs("svar")&"</font><br>"
  rs.movenext
loop

Eller....

Ved ikke helt hvad du menre, men hvis det er mit indlæg du svarer på så hedder den du har haft hele tiden rs("antal"), og den jeg har tilføjet rs("AntalSvar"), og du hiver dem bare ud som du selv lige har skrevet

chriscross>> Kan simpelthen ikke få det til at virke:

Vil gerne ha den skriver:
INDLÆG - ANTILSVAR

Er det muligt at jeg kunne emaile det til dig, så du kunne se på det?

Fomse:-)

Lad os lige prøve uden først - det er alligevel svært uden databasen ;-)

Kunne du ikke kopiere den sql du har lige nu ind her sammen med din udskrivning.
Og så: hvad præcist er det der ikke virker - kommer der fejl eller står det forkert eller kommer der intet ud ?

SGL'en samt udskrivning:

<%
'TOP 5 POSTER I FORUM STARTER HER
' DSNLess forbindelse til databasen
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("Forum/forum.mdb")

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN

'SQL = "SELECT TOP 5 Emne as Antal FROM Messages Where SvarID = 0 Order by Dato DESC"
SQL = "SELECT TOP 5 Emne as Antal,(SELECT Count(SvarID) FROM Messages where Messages.ID= Messages.SvarID) as AntalSvar FROM Messages Where SvarID = 0 Order by Dato DESC"

'for at udskrive antallet kan du bruger dit recordset (rs) rs("antal"):
set rs = myConn.execute(SQL)

do while not rs.EOF
  Response.write "- <font color='#0000FF'>" & rs("antal") & "</font>- " & rs("AntalSvar") & "<br>"
  rs.movenext
loop

' Rydder op efter os
myConn.Close
Set myConn = Nothing
'COUNT PÅ POSTER I FORUM SLUTTER HER
%>

FEJL:
Den skriver 0 ud for hver.

Se det på http://www.fomsgaard.com/ccc

Se databasen her:

http://www.fomsgaard.com/ccc/DB.gif

Det var dejligt - meget lettere :o)

Du spørger også stadig på de poster hvor SvarID = 0, så den gør faktisk det rigtige ;-)

Prøv at fjern: "where SvarID = 0" fra din sql

Skriver stadig 0!! Fatter det ikke....

Og viser ikke de rigtige indlæg....

Hvordan ser sql ud nu ?

SQL = "SELECT TOP 5 Emne as Antal,(SELECT Count(SvarID) FROM Messages where Messages.ID= Messages.SvarID) as AntalSvar FROM Messages Order by Dato DESC"

Ret det lige til:
SQL = "SELECT TOP 5 Dato, Emne as Antal,(SELECT Count(SvarID) FROM Messages where Messages.ID= Messages.SvarID) as AntalSvar FROM Messages Order by Dato DESC"

- og se hvordan det så ser ud

Det er jo de fem seneste datoer du vil have ud, ikke?

Jo det fem seneste poster + ved siden af skal der stå de antal svar der er pr. post....

Virker stadig ikke:
Skriver 0 og ikke de rigtige poster....

Hmm, ser det ikke ud som om den vælger de fem seneste indlæg uanset om de er *i familie* med hinanden eller ej ?

- du skulle vel kun have det første indlæg i hver tråd...har du et felt der indikerer om et indlæg er det første...

Den skal vise de 5 første hovedtråde og ud for hver det antal svar der er på tråden..

Et hovedindlæg har altid SvarID=0 og derudover et unikt ID
Svar på tråden har altid SvarID=trådens unikke ID
Og så er der naturligvis dato på dem alle

Du har altså et felt med to funktioner og det er ikke smart når vi nu skal bruge netop de to i samme sætning:
Prøv:

SQL = "SELECT TOP 5 Emne as Antal,(SELECT Count(SvarID) FROM Messages where Messages.ID= Messages.SvarID and Messages.SvarID <> 0) as AntalSvar FROM Messages Where SvarID = 0 Order by Dato DESC"

Ellers tror jeg du er nødt til at hente din top 5 ud for sig selv og derefter lave en ny sql hvor hu så henter count... ( men det er grimt at have et recordset der åbnes og lukkes i en løkke fra et andet recordset - det kan risikere at trække tænder...

Hmm den skriver stadig 0 svar!

Jeg kan ikke ændre databasen! Det er ikke mig der har lavet forummet, men kan godt se hvad du mener!!
Hvordan løser jeg det så?

Det irriterer mig nu at det ikke kan blive i én sql - men hvis det kun er de fem øverste går det nok men to.
Prøv:
SQL = "SELECT TOP 5 Emne as Antal,ID FROM Messages Where SvarID = 0 Order by Dato DESC"
'for at udskrive antallet kan du bruger dit recordset (rs) rs("antal"):
set rs = myConn.execute(SQL)
do while not rs.EOF
  ' ny sql for at finde antal
  SQL="Select count(SvarID) as antalSvar from Messages Where ID = "&rs("ID")
  set rsTmp = myConn.execute(SQL)
  ' indlæs antal i variabel
  If Not rsTmp.EOF Then
    antalsvar = rsTmp("AntalSvar")
  Else
    antalsvar = 0
  End If
  rsTmp.Close
  Set rsTmp = Nothing
  Response.write "- <font color='#0000FF'>" & rs("antal") & "</font>- " & antalsvar & "<br>"
  rs.movenext
loop

Kanon!! Der var den:-) Takker

Selv tak

- og så må du da gerne acceptere mit svar ;-)

Sorry:-)