---
title: "10 inlägg per sida"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11137-10-inlägg-per-sida"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ReloadMaster"
published: "2001-08-14T19:47:00.000Z"
updated: "2001-08-16T08:37:00.000Z"
replies: 10
views: 325
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/11137-10-inlägg-per-sida"
---

# 10 inlägg per sida

## #1 — ReloadMaster, 2001-08-14T19:47Z

hur ska jag ändra denna kod så den bara visar 10 inlägg i taget...

\<html\>
\<head\>
\<title\>Gästbok - \_ \_ \_ \_ \_ \_.nu\</title\>
\</head\>
\<body\>

\<a href="gastbok.asp?gor=skriv"\>Skriv\</a\> \<a href="gastbok.asp?visa=alla"\>Alla inlägg\</a\>\<br\>

\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")

SQL = "SELECT \* FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)

If RecSet.EOF Then
%\>

Inga meddelanden hittades.

\<%
Else
Do Until RecSet.EOF
namn = RecSet("namn")
email = RecSet("email")
hemsida = RecSet("hemsida")
meddelande = RecSet("meddelande")
datum = RecSet("tid")
IP = RecSet("IP")

%\>

\<hr\>
Skrivet av: \<% =namn%\>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IP: \<% =IP%\>\<br\>
E-mail: \<a href="mailto:\<% =email%\>"\>\<% =email%\>\</a\>\<br\>
Hemsida: \<a href="http://\<% =hemsida%\>"\>\<% =hemsida%\>\</a\>\<br\>
Datum: \<% =datum%\>\<br\>
Meddelande:\<br\> \<% =meddelande%\>\<br\>

\<%

RecSet.MoveNext

Loop

End If

RecSet.Close
Set RecSet = Nothing
Connect.Close
Set Connect = Nothing
%\>

\<hr\>

Snälla skriv in det i den här koden så jag kan förstå...

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

## #2 — emission, 2001-08-14T21:28Z

<http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging>

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

## #3 — ReloadMaster, 2001-08-15T16:41Z

Jag har redan testat det men jag får det inte att funka med koden jag använder...

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

## #4 — cyprys, 2001-08-15T18:52Z

Som sagt [tidigare](http://cgi.webforum.nu/wf/Forum11/HTML/005808.html#3)
Kanske för att jag känner mig så snäll idag. :e :e

```
<html>
<head>
<title>Gästbok - _ _ _ _ _ _.nu</title>
</head>
<body>

<a href="gastbok.asp?gor=skriv">Skriv</a> <a href="gastbok.asp?visa=alla">Alla inlägg</a><br>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")
SQL = "SELECT * FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)
arr = RecSet.getrows
Set RecSet = nothing
Connect.Close
Set Connect = Nothing

' ANTAL PER SIDA
	a = 5
	site = cint(request.querystring("site"))
	beginn = lbound(arr, 2)
	ending = ubound(arr, 2)
	
	sida = site * a
	start = 0 + sida
	slut = start + a-1
	
for i = start to slut
%>

<%
namn = RecSet("namn")
email = RecSet("email")
hemsida = RecSet("hemsida")
meddelande = RecSet("meddelande")
datum = RecSet("tid")
IP = RecSet("IP")
%>
<hr>
Skrivet av: <% =namn%>      IP: <% =IP%><br>
E-mail: <a href="mailto:<% =email%>"><% =email%></a><br>
Hemsida: <a href="http://<% =hemsida%>"><% =hemsida%></a><br>
Datum: <% =datum%><br>
Meddelande:<br> <% =meddelande%><br><br>

<%
next

if ending > a then
		sidor = INT(ending / a) + 1
		response.write "&#124; "
		for x = 1 to sidor
			response.write "<a href=gastbok.asp?site="&x-1&">" & x & "</a> &#124; "
		next
		if sidor = site--1 then
			response.write " Nästa &raquo;"
		else
			response.write " <a href=gastbok.asp?site="&site--1&">Nästa &raquo;</a><br><br>"
		end if
	end if
%>

<hr>
```

Har dock inte testat koden så säg till om något inte stämmer så fixar vi det. ;)

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

## #5 — ReloadMaster, 2001-08-15T18:59Z

Skrev av koden som du skrev ovan men fick detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a000d' 

Inkompatibla typer: 'RecSet' 

/asp/scripts/kgastbok/gastbok2.asp, rad 31

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

## #6 — ReloadMaster, 2001-08-15T19:19Z

Tänkt kaankse ändra lit i koden till:
\<html\>
\<head\>
\<title\>Gästbok - \_ \_ \_ \_ \_ \_.nu\</title\>
\</head\>
\<body\> 
\<a href="gastbok.asp?gor=skriv"\>Skriv\</a\> \<a href="gastbok.asp?visa=alla"\>Alla inlägg\</a\>\<br\> 
\<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")
SQL = "SELECT \* FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)
arr = RecSet.getrows

' ANTAL PER SIDA
a = 5
site = cint(request.querystring("site"))
beginn = lbound(arr, 2)
ending = ubound(arr, 2)

sida = site \* a
start = 0 + sida
slut = start + a-1

for i = start to slut
 
If RecSet.EOF Then
%\>
 
Inga meddelanden hittades.

\<%
Else
Do Until RecSet.EOF
namn = RecSet("namn")
email = RecSet("email")
hemsida = RecSet("hemsida")
meddelande = RecSet("meddelande")
datum = RecSet("tid")
IP = RecSet("IP")
%\>
\<hr\>
Skrivet av: \<% =namn%\> IP: \<% =IP%\>\<br\>
E-mail: \<a href="mailto:\<% =email%\>"\>\<% =email%\>\</a\>\<br\>
Hemsida: \<a href="http://\<% =hemsida%\>"\>\<% =hemsida%\>\</a\>\<br\>
Datum: \<% =datum%\>\<br\>
Meddelande:\<br\> \<% =meddelande%\>\<br\>\<br\> 
\<%
next 
if ending \> a then
sidor = INT(ending / a) + 1
response.write "&#0124; "
for x = 1 to sidor
response.write "\<a href=gastbok.asp?site="&x-1&"\>" & x & "\</a\> &#0124; "
next
if sidor = site--1 then
response.write " Nästa »"
else
response.write " \<a href=gastbok.asp?site="&site--1&"\>Nästa »\</a\>\<br\>\<br\>"
end if
end if

RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = Nothing 

%\> 
\<hr\>

Men då fick jag felmeddelandet oväntad "nex" på rad 49

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

## #7 — Lina, 2001-08-16T06:15Z

Hmmm....
Du måste kolla den koden....
Du har en Do until-loop som inte är avslutad... Den ska avslutas med Loop...
Där saknas också RecSet.movenext...

Dessutom har du nån oavslutad if-sats...

Sen är det lite lättare för oss andra att kolla felet om du berättar vad som finns på raden som felmeddelandet pekar på...
I ditt fall här rad 49

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

## #8 — jorgen, 2001-08-16T06:54Z

Hej!

Använd PatrikB:s pagingscript som finns under wF-script. Fungerar kanon på både Chill!ASP och "vanlig" ASP.

Du hittar det här:
 <http://script.webforum.nu/wf/Forum1/HTML/000063.html> 

mvh Jörgen

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

## #9 — cyprys, 2001-08-16T08:30Z

Ehh. Jag vet inte hur det gick tillbaka till do until ? 
Jag gjorde om det till en array istället och där behövs ingen movenext. En for-sats duger fint.

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

## #10 — ReloadMaster, 2001-08-16T08:35Z

Om jag använder mig av din så får jag felmeddelandet inkompitabla typer hur ändrar jag det då?

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

## #11 — cyprys, 2001-08-16T08:37Z

Vilken rad är det i koden?

\[r\] Förlåt. Det här borde nog funka lite bättre i alla fall :r

```
<html>
<head>
<title>Gästbok - _ _ _ _ _ _.nu</title>
</head>
<body>
<a href="gastbok.asp?gor=skriv">Skriv</a> <a href="gastbok.asp?visa=alla">Alla inlägg</a><br>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("gbdb.mdb")
SQL = "SELECT namn, email, hemsida, meddelande, tid, IP FROM gastbok ORDER BY ID DESC"
Set RecSet = Connect.Execute(SQL)
arr = RecSet.getrows
Set RecSet = nothing
Connect.Close
Set Connect = Nothing

' ANTAL PER SIDA
a = 5
site = cint(request.querystring("site"))
beginn = lbound(arr, 2)
ending = ubound(arr, 2)

sida = site * a
start = 0 + sida
slut = start + a-1

for i = start to slut
%>
<hr>
Skrivet av: <% =arr(0, i)%> IP: <% =arr(5, i)%><br>
E-mail: <a href="mailto:<% =arr(1, i)%>"><% =arr(1, i)%></a><br>
Hemsida: <a href="http://<% =arr(2, i)%>"><% =arr(2, i)%></a><br>
Datum: <% =arr(4, i)%><br>
Meddelande:<br> <% =arr(3, i)%><br><br>
<%
next

if ending > a then
sidor = INT(ending / a) + 1
response.write "&#0124; "
for x = 1 to sidor
response.write "<a href=gastbok.asp?site="&x-1&">" & x & "</a> &#0124; "
next
if sidor = site--1 then
response.write " Nästa »"
else
response.write " <a href=gastbok.asp?site="&site--1&">Nästa »</a><br><br>"
end if
end if
%>
<hr>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11137-10-inlägg-per-sida