Paging problem

Hejsan!

Jag har ett problem med ett paging system som jag hittade här på wF...

När jag t.ex. gör så den ska skriva ut 15 poster så funkar bra förutom att om jag har t.ex. 8 poster i databasen som loopas så skrivs Sida: 1 2 3 ut ändå även om det är färre poster än den ska visa.

Så här ser koden ut:

<%
Dim objCon, sSql, iRecords, iPageSize, iPages, iPage, iStart, myArray, i, RecSet

sSql = "SELECT COUNT(*) AS recordCount "
sSql = sSql & "FROM message "

Set RecSet = objCon.Execute(sSql)
iRecords = RecSet("recordCount")

RecSet.Close
Set RecSet = Nothing

iPageSize = 15

iPages = int(iRecords / iPageSize) +1

iPage = Request.QueryString("pg")
If iPage = "" Or Not isNumeric(iPage) Then
	 iPage = 1
Else
	 iPage = int(iPage)
End If

iStart = iPage * iPageSize
iStart = iStart - iPageSize

sSql = "SELECT * "
sSql = sSql & "FROM message where userTO = '" & Session("username") & "' OR userTO = 'tillallaanvandare' order by id desc "
sSql = sSql & "LIMIT " & iStart & " ," & iPageSize & " "
Set RecSet = objCon.Execute(sSql)

Do Until RecSet.EOF%>

mm DETTA LOOPAS

<%
RecSet.Movenext
Loop
%>

<%
If iPages > 1 Then

	For i = 1 To iPages
		 If i = iPage Then
			  Response.Write("<B>[" & i & "]</B>")
		 Else
			  Response.Write("&nbsp;<A href=""?message=list&pg=" & i & """>")
			  Response.Write(i)
			  Response.Write("</A>&nbsp;")
		 End If
	next

End If
%>

Vore väldigt tacksam om ngn kunde kolla koden åt mig :)

MVH Mellow

Du måste ha samma WHERE sats i båda frågorna, för som det är nu så räknar du hur många meddelanden det finns i databasen fast du bara hämtar vissa.

sSql = "SELECT COUNT(*) AS recordCount FROM message "&_
WHERE userTO = '" & Session("username") & "' OR userTO = 'tillallaanvandare'"

Okej, det funkar :D Tack så hemskt mkt!