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

23/12

Historisk million-bøde får Region Syddanmarks it-direktør til at efterlyse nye GDPR-retningslinjer

23/12

Til næste år kommer iPhone 17 – og ifølge rygtestrømmene vil den byde på tre nyheder

23/12

En af verdens største it-distributører dropper samarbejdet med Broadcom: Kunne ikke nå til enighed

23/12

Ser med 'stor alvor' på problemer med vand, varme og manglende kontrol i politiets datacenter

23/12

Brugere rammes af Microsoft-fejl: M365-produkter er på mystisk vis blevet deaktiveret

23/12

Her er dommen: Region Syddanmark skal betale historisk stor bøde for grove overtrædelser af GDPR

23/12

Vores vidensindsamling og demokratiske samtale påvirkes af helt lukkede beslutninger i en enkelt privat virksomhed

23/12

Overblik: Danske it-selskaber strømmer ind mod den centrale storby - og det handler ikke om penge

23/12

Banebrydende ChatGPT-opdatering er lige på trapperne: “Denne model vil være helt fantastisk til programmering”

23/12

Tivoli søger ny CIO: Kenneth Hartvig stopper efter tre år på posten

23/12

Vi ender med at bo i en taber-region, hvis ikke vi gør noget drastisk - her er digitaliseringsministerens plan

Vis flere artikler

IT-JOB

Capgemini Danmark A/S

Cloud Architect

DSV

Business Relationship Manager

Capgemini Danmark A/S

SAP Project Manager

Jyske Bank

RPA- og softwareudvikler til Kernebank

DSV

Manager for IT Technical Project Managers and Business Analysts

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

24 min siden	Korrupt CF kort Af Mozcan i Foto & video
I går 21:34	install.esd og boot.wim Af sjass i Windows
I går 18:52	Nyt tekstdokument er forsvundet. Af valby i Windows
I går 16:48	"Defragmentering" af Windows 11 ? Af Ikke-ekspert i Windows
25/1219:53	CD Burner XP (Sætte den til at optage nogle numre fra en CD - Men ikke alle ? Af Ikke-ekspert i Musik & videoafspillere