Brug af count i SQL

strSQL = "SELECT count(id) FROM tabel1 WHERE Thread = 'Sand'"

//akj

strSQL = "SELECT count(id)as mycount FROM tabel1 WHERE Thread = 'Sand'"
set rs = conn.execute (strSQL)
if not rs.eof then
  response.write rs("mycount")
else
  response.write "Ingen rækker"
end if

Hej akj
Det er desværre ikke det. Jeg kan lige vise dig koden:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db2.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM tabel1 WHERE Thread = 'Sand'"
strSQL_C = "SELECT COUNT(Reply_Id) AS antal FROM Tabel1 WHERE Reply_Id ='Id'"
SET rs = Conn.EXECUTE(strSQL)
SET rscount = Conn.EXECUTE(strSQL_C)
%>
I body'en laver jeg et loop:
<%
IF NOT (rs.BOF OR rs.EOF) THEN
Response.Write "<table width='100%' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td  width='60%'><b>Subject</b></td>"
Response.Write "<td width='20%' align='center'><b>Replies</b></td>"
Response.Write "</tr>"
Response.Write "<tr><td><hr></td><td><hr></td></tr>"
    DO WHILE NOT rs.EOF
    Response.Write "<tr>"
    Response.Write "<td>" & "<a href=view.asp?strId=" & rs("Id") &  ">" & rs("Emne")  & "</a>" & "<br>" & "Startet by: " & rs("Navn") &  "&nbsp;" & " d. " & rs("Dato") & "</td>"
    Response.Write "<td  align='center'>" & rscount("antal") & "</td>"
    Response.Write "</tr>"
    Response.Write "<tr><td><hr></td><td><hr></td></tr>"
    rs.MoveNext
    Loop
Response.Write "</table>"
End If
Conn.Close
Set Conn = Nothing
%>
det har noget med det loop jeg laver. Jeg kan godt få den til at udskrive de forkellige poster, men desværre ikke med hvor mange indlæg der er i hver post.

Jeg tror det går galt fordi du prøver at tælle hvor mange indlæg der er i tråden inden du kender id på tråden.

prøv dette script.

//akj

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db2.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM tabel1 WHERE Thread = 'Sand'"
SET rs = Conn.EXECUTE(strSQL)
%>
I body'en laver jeg et loop:
<%
IF NOT (rs.BOF OR rs.EOF) THEN
Response.Write "<table width='100%' cellspacing='0' cellpadding='0'>"
Response.Write "<tr>"
Response.Write "<td  width='60%'><b>Subject</b></td>"
Response.Write "<td width='20%' align='center'><b>Replies</b></td>"
Response.Write "</tr>"
Response.Write "<tr><td><hr></td><td><hr></td></tr>"
    DO WHILE NOT rs.EOF
    Response.Write "<tr>"
    Response.Write "<td>" & "<a href=view.asp?strId=" & rs("Id") &  ">" & rs("Emne")  & "</a>" & "<br>" & "Startet by: " & rs("Navn") &  "&nbsp;" & " d. " & rs("Dato") & "</td>"

    strSQL_C = "SELECT COUNT(Reply_Id) AS antal FROM Tabel1 WHERE Reply_Id ='"&rs("ID")&"'"
    SET rscount = Conn.EXECUTE(strSQL_C)

    Response.Write "<td  align='center'>" & rscount("antal") & "</td>"
    Response.Write "</tr>"
    Response.Write "<tr><td><hr></td><td><hr></td></tr>"
    rs.MoveNext
    Loop
Response.Write "</table>"
End If
Conn.Close
Set Conn = Nothing
%>

Hej akj
Du er jo kanon - det virker. 1000 tak
jeg håber du får mine point ellers må du lige skrive tilbage på henriksc@yahoo.com så skal jeg nok finde ud af noget.

Hej akj
UPPPS jeg kom lige til at give mig selv de 100 p.
Jeg kan stille et nyt sp.m. som kun du svare på?

God ide :o)