Avatar billede shang Nybegynder
08. maj 2007 - 13:17 Der er 4 kommentarer og
1 løsning

link count, udskrive antal links

Jeg har 2 tabeller en med kategorier og en med links.
I links tabellen er kategori med navn på den kategori linket høre til, samt en beskrivelse af kategorien.
Hvordan laver jeg en count, så man kan se hvor mange link der er i hver kategori ?

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

strSQL = "Select * From Categories Where ParentCategoryID = 0 Order By CategoryTitle"
Set rs = Conn.Execute(strSQL)

Do

response.write "<fieldset style='padding: 2'>"
response.write "<legend><a href=""link.asp?id="&RS("CategoryID")&""">"& RS("CategoryTitle")  & "</a>- her skal tælleren være</FONT>"
response.write "</legend>"
response.write "<font face='Verdana' size='1'>"
response.write RS("Description")&"<br>"
response.write "</FONT></div>"
response.write "</fieldset>"
response.write ""

rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

i db'en er der

Links:
LinkID          auto
LinkTitle        Tekst
LinkURL          Tekst
LinkDescription  Notat
LinkVisits      Tal
LinkDateAdded    Dato og klokkeslæt
CategoryID      Tal
Live            Tal
Email            Tekst

Categories:
CategoryID        auto
CategoryTitle    Tekst
ParentCategoryID  Tal
Description      Notat
Avatar billede goose Nybegynder
08. maj 2007 - 13:26 #1
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("db/links2.mdb")
Conn.Open DSN

strSQL = "Select * From Categories Where ParentCategoryID = 0 Order By CategoryTitle"
Set rs = Conn.Execute(strSQL)

Do

SQLcount = "select count(*) as antal From Categories Where ParentCategoryID = 0"
set rscount = conn.execute(SQLcount)
antalialt = rscount("antal")
rscount.close
set rscount = nothing



response.write "<fieldset style='padding: 2'>"
response.write "<legend><a href=""link.asp?id="&RS("CategoryID")&""">"& RS("CategoryTitle")  & "</a>-" & antalialt &"</FONT>"
response.write "</legend>"
response.write "<font face='Verdana' size='1'>"
response.write RS("Description")&"<br>"
response.write "</FONT></div>"
response.write "</fieldset>"
response.write ""

rs.MoveNext
Loop While Not rs.EOF

Conn.Close
Set Conn = Nothing
%>

/Goose
Avatar billede shang Nybegynder
08. maj 2007 - 17:44 #2
Det virker fint nok.... men scriptet tæller blot hvor mange kategorier der er, og ikke hvor mange links der er i den enkelte kategori. :-)
Avatar billede goose Nybegynder
08. maj 2007 - 18:48 #3
Det skulle vel så være

SQLcount = "select count(*) as antal From links Where CategoryID =" & rs("CategoryID")
set rscount = conn.execute(SQLcount)
antalialt = rscount("antal")
rscount.close
set rscount = nothing

/Goose
Avatar billede shang Nybegynder
08. maj 2007 - 18:58 #4
Så virker det. Tak for hjælpen :)
Avatar billede goose Nybegynder
08. maj 2007 - 19:02 #5
Det var godt - og tak for point.

/Goose
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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