CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

intrique Nybegynder

24. oktober 2002 - 18:01 Der er 14 kommentarer og
1 løsning

Count af Kommentarer

Jeg har et fungerende script og et nyhedsystem som jeg begge selv har kodet. Men på mange sites er der et feks:

Titel på nyhed (5)

hvor (5) angiver hvor mange comments der er til den pågældende nyhed. Altså Count.

Noget i den her stil:

select count * from comment where newsid = " & Request.Querystring("newsid")

Eller noget.

Ved bare ikke hvordan jeg får lavet det sådan at den tæller counts...

Synes godt om

neteffect Nybegynder

24. oktober 2002 - 18:03 #1

Du er tæt på:

select count(*) AS commentCount from comment where newsid = " & Request.Querystring("newsid")

...

response.write "(" & rs("commentCount") & ")"

Synes godt om

Slettet bruger

24. oktober 2002 - 18:04 #2

SELECT COUNT(id) AS antal FROM comment where newsid = " & Request.Querystring("newsid")

Nu kan du så få fat i antal som du ville udskrive ethver andet sql resultat...

Synes godt om

Slettet bruger

24. oktober 2002 - 18:06 #3

ja... :)

Hvis du ikke skal bruge indholdet fra kommentarene til andet end at tælle dem, er det mest hensigtsmæssigt kun at selecte f.eks. id, da det er spild af tid at hente det hele.

Så neteffects eksempel, bare med COUNT(id) istedet :)

Synes godt om

intrique Nybegynder

24. oktober 2002 - 18:20 #4

neteffect :

Fatter ik helt hvordan det skal gøres...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("x.mdb")
Conn.Open DSN

strSQL = "Select Top 50 * from nyheder ORDER BY x DESC;"
countSQL = "select count(*) AS commentCount from comment where x = " & Request.Querystring("newsid")
Set rs = Conn.Execute(strSQL)
set count = Conn.Execute(countSQL)
Do
%>
<a href="article.asp?newsid=<%=rs("x")%>"><%=rs("Header")%> (<% response.write "(" & rs("commentCount") & ")" %>)</a> 
Skrevet af <%=rs("Author")%>, nyheden omhandler <%=rs("kategori")%> og var skrevet <%=rs("date")%> 
<img border="0" src="images/default_stripe.jpg"> <%=rs("txt")%> 
<%
rs.MoveNext

Loop While Not rs.EOF

count.MoveNext

Loop While Not count.EOF

Conn.Close
Set Conn = Nothing
%>

Flto kode ik ? ;)

Synes godt om

intrique Nybegynder

24. oktober 2002 - 18:23 #5

Det virker ik lige :)

Synes godt om

no_doubt Nybegynder

24. oktober 2002 - 18:23 #6

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("x.mdb")
Conn.Open DSN

strSQL = "Select Top 50 * from nyheder ORDER BY x DESC;"
Set rs = Conn.Execute(strSQL)
set count = Conn.Execute(countSQL)
Do
%>
<a href="article.asp?newsid=<%=rs("x")%>"><%=rs("Header")%>

<html>

<head>
<title></title>
</head>

<body>
</a>

Skrevet af <%=rs("Author")%>, nyheden omhandler <%=rs("kategori")%> og var skrevet <%=rs("date")%> 
<img border="0" src="images/default_stripe.jpg"> 
<%=rs("txt")%> 
 


Der er <%countSQL = "select count(*) AS commentCount from comment where x = " & Request.Querystring("newsid")
%><%response.write "(" & rs("commentCount") & ")"%> nyheder i databasen
</body>
</html>

Synes godt om

intrique Nybegynder

24. oktober 2002 - 18:28 #7

noDoubt du har virkelig kodet noget helt andet :)

Ikke lige det

Det skal holdes inden for det jeg har skrevet.. der er en masse udover det.. :o

Synes godt om

neteffect Nybegynder

24. oktober 2002 - 18:30 #8

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("x.mdb")
Conn.Open DSN
strSQL = "Select Top 50 * from nyheder ORDER BY x DESC;"
Set rs = Conn.Execute(strSQL)
do while not rs.eof
countSQL = "select count(*) AS commentCount from comment where x = " & rs("x")
set count = Conn.Execute(countSQL)
%>
<a href="article.asp?newsid=<%=rs("x")%>"><%=rs("Header")%> (<% response.write "(" & rs("commentCount") & ")" %>)</a> 
Skrevet af <%=rs("Author")%>, nyheden omhandler <%=rs("kategori")%> og var skrevet <%=rs("date")%> 
<img border="0" src="images/default_stripe.jpg"> <%=rs("txt")%> 
<%
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing
%>

Synes godt om

intrique Nybegynder

24. oktober 2002 - 18:36 #9

Af en eller anden grund viser den ik det forbandede

Nyhedstitel (#)

Kun

Nyhedstitel

Synes godt om

intrique Nybegynder

24. oktober 2002 - 18:37 #10

http://skycreat.frip.dk/px/default.asp er adressen hvis du vil se...

Synes godt om

neteffect Nybegynder

24. oktober 2002 - 19:07 #11

mystisk, men der var lidt mange parenteser, og krydsede <a>

<a href="article.asp?newsid=<%=rs("x")%>"><%=rs("Header")%> (<%=rs("commentCount")%>)</a> 
Skrevet af <%=rs("Author")%>, nyheden omhandler <%=rs("kategori")%> og var skrevet <%=rs("date")%> 
<img border="0" src="images/default_stripe.jpg"> <%=rs("txt")%>

Synes godt om

intrique Nybegynder

24. oktober 2002 - 20:44 #12

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/px/default.asp, line 96

<a href="article.asp?newsid=<%=rs("x")%>"><%=rs("Header")%> (<%=rs("commentCount")%>)</a> 

Linje 96.. tror det er problemet med Commentcount

Synes godt om

dr-data Nybegynder

25. oktober 2002 - 18:03 #13

bare tjek om du har skrevet det rigtigt, med store/små bogstaver

Synes godt om

dr-data Nybegynder

26. oktober 2002 - 05:26 #14

tænker på rs("commentCount"), hvor du så skriver:
....Linje 96.. tror det er problemet med Commentcount....

altså med stort C :-)

Synes godt om

intrique Nybegynder

27. oktober 2002 - 10:29 #15

Hahah løste det :D

Wee.. Jeg fik endelig lidt tid sammen med koden og der gik det op for mig hvad fejlen var :)

<%=count("commentCount")%>

før var det:

<%=rs("commentCount")%>

Og comment proceduren var skrevet i queryen count og ikke rs.. :)

Mange tak Christian, og dr-data da du gav somehow et hint til at kigge på stavefejl :)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS