Paging visar bara sista posten

BiasseMedlem sedan aug. 2003480 inlägg

Frågan4 apr. 2008 09:17#1

Denna kod jag har visar pagingen men den visar bara samma post hela tiden.. Tycker jag provat allt nu men den vill inte loopa ut dom som den ska.

<%
Set rsvisa = Server.CreateObject("ADODB.Recordset") 
SQL = "select * from gastbok order by datum desc" 
rsvisa.Open SQL, Connect, 3,3 
'Number of messages to show per page/ Antal meddelande per sida
rsvisa.pagesize = 5
page = Request.QueryString("page") 

If page = "" then page = 1 

if rsvisa.EOF then 
Response.write noguests
Else 

rsvisa.AbsolutePage = page 
totalPages = rsvisa.PageCount 

Do until rsvisa.EOF or fldcounter = rsvisa.pagesize 

If strBGColor = "#ffffff" then strBGColor = "#fafafa" else strBGColor = "#ffffff"
fldcounter = fldcounter + 1
%>

<%
rsvisa.movenext
loop
End If
%>

<%
i = 0 
For i = 1 to rsvisa.PageCount 

If (Int(i)) = (Int(page)) then 
Response.write "<b>"& i &"</b> &nbsp;" 
Else 
Response.write "<a href=admin.asp?page="& i &">"& i &"</a> &nbsp;" 
End If 
Next 

If page = 1 then 
Response.write "<a href=admin.asp?page=" & page + 1 &" ></a>" 

ElseIf (Int(totalPages)) = (Int(page)) then 
Response.write "<a href=admin.asp?page=" & page - 1 &" ></a>" 

Else 
Response.write "<a href=admin.asp?page=" & page - 1 &" ></a>" 
Response.write "<a href=admin.asp?page=" & page + 1 &" ></a>" 
End If 
%>
<%
rsvisa.close
set rsvisa=nothing
%>

BiasseMedlem sedan aug. 2003480 inlägg

4 apr. 2008 10:12#2

Löste det...

<%
Set rsvisa = Server.CreateObject("ADODB.Recordset") 
SQL = "select * from gastbok order by datum desc" 

rsvisa.Open SQL, Connect, 1, 3
rsvisa.PageSize = 5

  X=0

  If Request.QueryString("page") = "" OR NOT IsNumeric(Request.QueryString("page")) Then
    intPage = 1
  Else
    intPage = CInt(Request.QueryString("page"))
  End If
  
  if rsvisa.EOF then
  	response.write ""& AlfaChar
  else
  	rsvisa.AbsolutePage = intPage
  end if

  DO UNTIL rsvisa.EOF OR X = rsvisa.PageSize
%>

<%
    X=X+1
    rsvisa.MOVENEXT
  LOOP

  If rsvisa.PageCount > 1 Then
    For i = 1 To rsvisa.PageCount
      If i <> intPage Then
        Response.Write("<a href=""?page=" & i &"&ch="&AlfaChar& """>" & i & "</a> ")
      Else
        Response.Write("[" & i & "] ")
      End If
    Next
  End If

rsvisa.close
set rsvisa=nothing
%>

</table>