---

Jeg har lavet dette stykke kode til mit forum. Jeg skal have så man kan se
hvor mange svar der er til hvor forum post. Men når jeg køre den kode
nedenunder viser den kun 1 post, og det er den antal kode der gør det, men
kan ikke finde fejlen. Håber i forstår.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("databaseforum2003.mdb")
Conn.Open DSN

strSQL = "Select * from forum where kategoriid = " &
Request.Querystring("id") & " order by id desc"
Set rs = Conn.Execute(strSQL)

If rs.EOF Then
Response.write "Ingen poster fundet"
Else
' løkken fra før
End if

Do While Not rs.EOF

strLink = rs("overskrift")
strLink = "<a href='seforum.asp?id=" & rs("Id") & "'>»" & strLink & "</a>"
%>
<table border="1" cellpadding="0"
cellspacing="0" style="border-collapse: collapse" bordercolor="#32AEEE"
width="100%">
<tr>
<td width="43%" valign="top"><font face="verdana"
size="2"><%response.write "" & strlink & ""%></font>&nbsp;</td>
<td width="26%" valign="top"><font face="verdana"
size="2"><%response.write "" & rs("navn") & ""%></font>&nbsp;</td>
<td width="22%" valign="top"><font face="verdana"
size="2"><%response.write "" & rs("dato") & ""%></font>&nbsp;</td>
<td width="9%" valign="top"><font face="verdana" size="2">
<%
SQL1 = "SELECT COUNT(*) AS antal FROM forumsvar where forumid = " & rs("id")
Set rs = conn.Execute (SQL1)
Response.write "" & rs("antal") & ""
%>
</font>&nbsp;</td>
</tr>
</table><br>
<%
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>

---

On Sun, 31 Aug 2003 17:51:53 +0200, "Thomas Brejner"
<thomasb@postbilen.dk> wrote:

>Jeg har lavet dette stykke kode til mit forum. Jeg skal have så man kan se
>hvor mange svar der er til hvor forum post. Men når jeg køre den kode
>nedenunder viser den kun 1 post, og det er den antal kode der gør det, men
>kan ikke finde fejlen. Håber i forstår.

Hmmm, ikke helt, da det er svært at vide, hvordan din database er
opbygget.

>strSQL = "Select * from forum where kategoriid = " &
>Request.Querystring("id") & " order by id desc"
>Set rs = Conn.Execute(strSQL)

<snip>

>SQL1 = "SELECT COUNT(*) AS antal FROM forumsvar where forumid = " & rs("id")
>Set rs = conn.Execute (SQL1)
>Response.write "" & rs("antal") & ""

Har du prøvet med:
SELECT COUNT(forumid) AS Antal ...
- ?

--
Jørn Andersen,
Brønshøj

---

Jamen den kan fint tælle hvor mange poster der er på den første record i
databasen, men den gider ikke vise mere end en. Og det er den kode antal
kode der stopper den anden kode. Men kan ikke finde ud af hvorfor. Min
database er bygget op så alle forum beskeder kommer i en tabel der hedde
forum og alle forum svar kommer i forumsvar.
"Jørn Andersen" <jorn@jorna.dk> skrev i en meddelelse
news:hg74lvo1s7omtc4dp2kh3p5u7vulr7n6q2@4ax.com...
> On Sun, 31 Aug 2003 17:51:53 +0200, "Thomas Brejner"
> <thomasb@postbilen.dk> wrote:
>
> >Jeg har lavet dette stykke kode til mit forum. Jeg skal have så man kan
se
> >hvor mange svar der er til hvor forum post. Men når jeg køre den kode
> >nedenunder viser den kun 1 post, og det er den antal kode der gør det,
men
> >kan ikke finde fejlen. Håber i forstår.
>
> Hmmm, ikke helt, da det er svært at vide, hvordan din database er
> opbygget.
>
> >strSQL = "Select * from forum where kategoriid = " &
> >Request.Querystring("id") & " order by id desc"
> >Set rs = Conn.Execute(strSQL)
>
> <snip>
>
> >SQL1 = "SELECT COUNT(*) AS antal FROM forumsvar where forumid = " &
rs("id")
> >Set rs = conn.Execute (SQL1)
> >Response.write "" & rs("antal") & ""
>
> Har du prøvet med:
> SELECT COUNT(forumid) AS Antal ...
> - ?
>
> --
> Jørn Andersen,
> Brønshøj