---
title: "dela resultat på sidor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10206-dela-resultat-på-sidor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "pellsäter"
published: "2001-06-23T15:07:00.000Z"
updated: "2001-06-23T16:39:00.000Z"
replies: 3
views: 300
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/10206-dela-resultat-på-sidor"
---

# dela resultat på sidor

## #1 — pellsäter, 2001-06-23T15:07Z

Har en databas med bilder. En bild ska visas per sida. Var för funkar inte koden nedan. Alla de 3 bilder som finns nu visas på första sidan. På andra sidan visas bild 2 och 3 och på den tredje sidan visas bild 3

\<%
'## -- hur många inlägg ska visas per sida --
intPageSize = 1

'## -- vilken sida ska visas --
intPage = Request.QueryString("page")

'## -- om ingen querystring med sidvärde hittas, visa då första sidan --
If intPage = "" Then intPage = 1
%\>
\</head\>

\<body bgcolor="#FFCC66"\>
\<table width="550" border="0" cellspacing="1" cellpadding="1" align="center"\>
  \<tr\> 
    \<td\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#663300"\>Här 
      ser du medlemmarnas egna bilder!!\</font\>\</td\>
  \</tr\>
  \<tr valign="middle"\> 
    \<td height="400"\> \<%
		
 		Set conn = Server.CreateObject("ADODB.Connection")
				sql = "SELECT \* FROM egnabilder"
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.PageSize = intPageSize
		rs.Open sql, conn,3,1
	%\> \<%
If rs.EOF Then
Response.Write "Det finns inga bilder än."
Else

'## -- vilken sida i recordset uppdelningen ska visas --
rs.AbsolutePage = intPage

'## -- hur många sidor finns i recordset uppdelningen --
intTotalPages = rs.PageCount

%\> 
\<%
Do Until rs.EOF or intRecordCount \>= intPageSize
%\> 
\<div align="center"\>\<img src="image_egnabilder/\<%=rs("bild")%\>"\>

\<% rs.MoveNext
Loop%\> 
\</div\>
    \</td\>
  \</tr\>
\<tr\>
	    \<td\>
		\<b\>\<font size="1"\>\<%
		Call PageNavigation(intPage, intTotalPages)
		%\>\</font\>\</b\>
		\<%
		End If
		rs.close
		conn.close
		%\>
		\</td\>
\</tr\>
\</table\>
\</body\>
\<%
'## -- skapa sid-navigering --
Sub PageNavigation(ByVal WichPage, ByVal HowManyPages)
Dim strScriptName
Dim I

'## -- vilken sida ska navigeringen länka till --
strScriptName = Request.ServerVariables("SCRIPT_NAME")

'## -- visa föregående, länkat eller olänkat beroende på vilken sida som visas --
If CInt(WichPage) \> 1 Then
Response.Write "\<A href='" & strScriptName & "?" & \_
"page=" & WichPage - 1 & "&search=" & search & "'\>\<\< Förra\</A\>  "
Else
Response.Write "\<font size=1\>\<\< Förra \</font\>"
End If

'## -- lista ut alla sidnummer --
For I = 1 To HowManyPages
If CInt(WichPage) \<\> I Then
Response.Write "\<A href='" & strScriptName & "?" & \_
"page=" & I & "&search=" &search &"'\>" & I & "\</A\> "
Else
Response.Write "\[ \<B\>\<font size=1\>" & I & "\</font\>\</B\> \] "
End If
Next

'## -- visa Nästa, länkad eller olänkad beroende på vilken sida som visas --
If CInt(WichPage) \< CInt(HowManyPages) Then
Response.Write "\<A href='" & strScriptName & "?" & \_
"page=" & WichPage + 1 & "&search=" & search &"'\> Nästa \>\>"
Else
Response.Write "\<font size=1\> Nästa\</font\>"
End If

End Sub
%\>

\[Redigerat av pellsäter den 29 nov 2001\]

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

## #2 — Lukaspojken, 2001-06-23T15:26Z

Testa detta scriptet istället som PatrikB lagt upp
 <http://script.webforum.nu/wf/Forum1/HTML/000063.html>

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

## #3 — pellsäter, 2001-06-23T15:32Z

Nja!

Vill använda detta då jag har det på en annan del av siten och där funkar det. Det är därför jag undrar varför detta inte funkar

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

## #4 — PatrikB, 2001-06-23T16:39Z

Hello,

som sagt, har nog gjort detta oxå \*ler\* en gång i tiden.

Pellsäter, du räknar aldrig upp intRecordCount det är därför som den först visar alla bilder, sedan bild 2 o 3 och på sista sidan bild 3.

Ändra till detta:

```
<%
Do Until rs.EOF or intRecordCount >= intPageSize
[b]intRecordCount = intRecordCount + 1[/b]
%>
```

cya,
PatrikB

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10206-dela-resultat-på-sidor