Varför ökar värdet i strReplies för varje rad?

3 svar · 431 visningar · startad av bigsky 19 aug. 2007

bigskyMedlem sedan maj 2002821 inlägg

Frågan19 aug. 2007 14:21#1

Tanken är ju att strReplies ska räkna antalet poster i tabellen tblComments som hör ihop med respektive post i tblBlog. Just nu ökar bara värdet i strReplies med 1 för varje rad i For ... Next.

Set rsGetBlogs = ConnBlog.Execute("SELECT a.*, (SELECT Count(SubId) FROM tblComments AS b WHERE b.SubId = a.Id) AS strReplies FROM tblBlog a ORDER BY a.Published DESC")

Fredde MannenMedlem sedan nov. 20014 054 inlägg

19 aug. 2007 14:37#2

Så vitt jag kan se så hämtar du din bloggar och räknar antalet comments kopplat till respektiv blogg.

Då kommer den intressanta frågan, hur ser koden som används tillsammans med detta?

bigskyMedlem sedan maj 2002821 inlägg

19 aug. 2007 14:42#3

Bla. Palle's paging-script, men det är väl inte det som är problemet.

If Not rsGetBlogs.EOF Then arrRecSet = rsGetBlogs.GetRows()
    
	If IsArray(arrRecSet) Then
	intPostsPerPage = 10
    
	If Len(Trim(Request.QueryString("n"))) > 0 Then intPage = cInt(Trim(Request.QueryString("n"))) Else intPage = 1
	intFirstPost = (intPage - 1) * intPostsPerPage
	intTotalPosts = UBound(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage) + 1
    
	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
	  intLastPost = UBound(arrRecSet, 2)
	Else
	  intLastPost = intFirstPost + (intPostsPerPage - 1)
	  strNext = True
	End If

For i = intFirstPost To intLastPost
  Response.Write arrRecSet(strReplies,i)
Next
End If

bigskyMedlem sedan maj 2002821 inlägg

19 aug. 2007 18:16#4

Upptäckte att jag nog borde ha skrivit ut värdet i strReplies med:

Response.Write arrRecSet(6,i)

istället för:

Response.Write arrRecSet(strReplies,i)

Men visst borde det egentligen fungera iaf?