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
Lost focus Af bsn i ASP	0	07/11/202415:34	-
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
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

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

22/11

Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse

22/11

Vil købe tele-løsninger til det offentlige for 370 millioner kroner

22/11

Nørgaard: Det er de neuro-divergente originalers tid

22/11

Sker helt åbenlyst: Ansatte i den kinesiske stat sælger borgernes personlige data på hemmelige internet-fora

22/11

Efterspørgslen på AI-regnekraft er enorm - og det smitter af på priserne: "Vi kan sælge næsten alt, hvad vi får ind"

22/11

Derfor bliver den amerikanske tvangs-opdeling af Google nok ikke til noget

22/11

Nyt værtøj fra Microsoft: Snart kan du reparere nedbrudte Windows-enheder på distancen

22/11

Vi har fundet 10 ledige it-stillinger, som du kan søge netop nu

22/11

Politiet skriver kontrakt på 75 millioner kroner med dansk it-firma: Medarbejdere skal flytte ind hos politiet

22/11

Kombit gør klar til at købe it-konsulenter for 140 millioner kroner - her er planen

22/11

Droner i krig - sådan anvendes de mest effektivt på slagmarken

Vis flere artikler

IT-JOB

Hemmersbach Denmark ApS

IT Fieldservice Tekniker med fokus på hardware

Danske Spil A/S

Kan du finde 11 Danske Spil-produkter i dette jobopslag? Så er du måske vores nye systemadministrator

DEIF A/S

Senior Project Manager, Software & Product Development

Netcompany A/S

Data Management Consultant

ATP

ABAP-udvikler til arbejdet med et af landets vigtigste SAP-systemer

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

28 min siden	Underlig meddelelse på skærmen Af Jordegern i E-mail programmer
I dag 15:56	Navigation i Peugeot 3-2008 fra 2017 Af arnepedersen i Andet software
I dag 14:10	Outlook henter ikke mails Af TTA i Office & Kontorpakker
I dag 13:58	vise billeder i kartotek med store ikoner inklusive optagelsesdato Af Malm i Billedbehandling
I dag 13:35	Adobe Elements 2019, Organizer Crasher Af mort1 i Billedbehandling