Avatar billede Lund Praktikant
30. maj 2003 - 22:19 Der er 1 kommentar

Counter på news kommentar

Hey jeg har nedstående kode..

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM nyheder Order By dato DESC "
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("/news.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 5
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount


' Besked start
Do While Not rs.EOF And intRecCount > 0

strSQL = "select count(*) as antal from kommentarer WHERE nyhedsId = " & rs("id")



______
Jeg vil gerne have en counter, så den tæller hvor mange kommentarer der er skrevet .. hvordan klarer jeg lige det ?
Avatar billede soes Nybegynder
30. maj 2003 - 22:24 #1
Hvad er det lige du taenker paa? Du har vel det meste af det allerede.
Do While Not rs.EOF And intRecCount > 0

strSQL = "select count(*) as antal from kommentarer WHERE nyhedsId = " & rs
("id")
Set tmpRs = Conn.Execute(strSql)
Response.Write(tmpRs("antal"))
intCount = intCount + tmpRs("antal")
tmpRs.Close
Set tmpRs = Nothing
Rs.MoveNext
Loop

Response.write("Der er skrevet: "& intCount &" kommentarer")

ved ikke om jeg har forstaaet det rigtigt
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