---
title: "Paging visar bara sista posten"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/170529-paging-visar-bara-sista-posten"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Biasse"
published: "2008-04-04T09:17:04.000Z"
updated: "2008-04-04T10:12:39.000Z"
replies: 1
views: 314
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/170529-paging-visar-bara-sista-posten"
---

# Paging visar bara sista posten

## #1 — Biasse, 2008-04-04T09:17Z

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
%>
```

\<tr\> 
\<td\>\<font size="1"\>\<strong\>\<%=rsgast("Namn") %\>\</strong\>\</font\>\</td\>
\<td\>\<font size="1"\>\<strong\>\<%=rsgast("datum") %\>\</strong\>\</font\>\</td\>
\<td\>\<p align="center"\>\<a href="del.asp?action=answer&id=\<%=rsgast("id")%\>"\>\<img src="bilder/edit.gif" border="0" alt="Ändra"\>\</a\>\</p\>\</td\>
\<td\>\<p align="center"\>\<a href="del.asp?action=tabort&id=\<%=rsgast("id")%\>"\>\<img src="bilder/radera.gif" border="0" alt="Ta Bort"\>\</a\>\</p\>\</td\>
\</tr\>

```
<%
rsvisa.movenext
loop
End If
%>
```

\<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0"\>

```
<%
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
%>
```

Permalänk: https://www.webforum.nu/p/170529

## #2 — Biasse, 2008-04-04T10:12Z

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
%>
```

\<tr\> 
\<td\>\<font size="1"\>\<strong\>\<%=rsvisa("Namn") %\>\</strong\>\</font\>\</td\>
\<td\>\<font size="1"\>\<strong\>\<%=rsvisa("datum") %\>\</strong\>\</font\>\</td\>
\<td\>\<p align="center"\>\<a href="del.asp?action=answer&id=\<%=rsvisa("id")%\>"\>\<img src="bilder/edit.gif" border="0" alt="Ändra"\>\</a\>\</p\>\</td\>
\<td\>\<p align="center"\>\<a href="del.asp?action=tabort&id=\<%=rsvisa("id")%\>"\>\<img src="bilder/radera.gif" border="0" alt="Ta Bort"\>\</a\>\</p\>\</td\>
\</tr\>

```
<%
    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\>

Permalänk: https://www.webforum.nu/p/2095719

---

Tråden på webben: https://www.webforum.nu/amne/asp/170529-paging-visar-bara-sista-posten