webForumDet fria alternativet

Hmm!

5 svar · 209 visningar · startad av crisse6

crisse6Medlem sedan dec. 20002 526 inlägg
#1

Paging nu igen.... ;)
kan någon se vad som är fel?

<%
nextPage = TRIM( Request( "nextPage" ) )
IF nextPage = "" THEN nextPage = 1

Set RecSet = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT * FROM add_forum Where svarid = '" & Request.Querystring("svarid") & "'"
RecSet.Open SQL, Databas

RecSet.PageSize = 10 
RecSet.AbsolutePage = nextPage

Do until RecSet.EOF OR rowCount > RecSet.PageSize
rowCount = rowCount + 1

Response.Write "<font face=Verdana size=1>AV:"& RecSet("anvandarnamn")&"</font>"

RecSet.MoveNext
Loop 

IF RecSet.PageCount > 1 THEN 

FOR a = 1 to RecSet.PageCount
IF a <> cINT( nextPage ) THEN 
Response.Write "<a href='thread.asp?nextPage="& a &"&svarid=" & Request.Querystring("svarid") & "'>"& a &"</a>"
ELSE 
Response.Write "&nbsp;"& a

END IF 
NEXT 
END IF %>

felmess:

ADODB.Recordset error '800a0cb3' 

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. 

/forum/las.asp, line 22

22:

RecSet.AbsolutePage = nextPage

skumt som zlatan! skumt är också att det ligger en knapp i ASP/VB forumet... hahahaa

LarsGMedlem sedan dec. 200012 464 inlägg
#2

recset.cursorlocation = 3
RecSet.Open SQL, Databas

crisse6Medlem sedan dec. 20002 526 inlägg
#3

funkar nu, men det är för tillfället 11 inlägg, på förstasidan blir det 11 inlägg som visas när det bara ska vara 10, men det finns paging-länk till sida 2, men där ligger enbart det elfte??? varför blir det så knepigt???

LarsGMedlem sedan dec. 200012 464 inlägg
#4
Do until RecSet.EOF OR rowCount = RecSet.PageSize
crisse6Medlem sedan dec. 20002 526 inlägg
#5

blir samma ändå.

crisse6Medlem sedan dec. 20002 526 inlägg
#6

skoja bara, tackar LarsG

134 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)