---
title: "Flera sidor"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8556-flera-sidor"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "johang"
published: "2001-03-16T09:15:00.000Z"
updated: "2001-03-16T11:13:00.000Z"
replies: 5
views: 210
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/8556-flera-sidor"
---

# Flera sidor

## #1 — johang, 2001-03-16T09:15Z

Hur gör jag så att jag kan få bara visar 20 inlägg per sida i mitt forum koden  ser ut så här vilka ändringar behövs göras?

Jag menar så att det också kommer länkar där nere ungefär som här på Webforum??

Tacksam för svar!

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

## #2 — jonne, 2001-03-16T09:20Z

Om du tar en titt i den eminenta faq som finns för asp/vbscript så finns en ganska bra förklaring om paging.

Artikeln [här](http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging)

och sen har vi PatrikBs inlägg om ämnet [här](http://cgi.webforum.nu/wf/Forum11/HTML/003221.html)

Oh just det. Välkommen hit ;)

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

## #3 — @nders, 2001-03-16T09:21Z

den som söker finner:
 <http://cgi.webforum.nu/wf/arkiv/asp_faq.html#paging>  <http://cgi.webforum.nu/wf/Forum11/HTML/003221.html>  <http://cgi.webforum.nu/wf/Forum11/HTML/003237.html>

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

## #4 — johang, 2001-03-16T09:24Z

Skulle någon kunna vara snäll och fixa till den här koden så att det funkar??

\<!--#include file="adovbs.inc"--\>
\<html\>

\<head\>
\<meta http-equiv="Content-Language" content="sv"\>
\<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"\>
\<meta name="GENERATOR" content="Microsoft FrontPage 4.0"\>
\<meta name="ProgId" content="FrontPage.Editor.Document"\>
\<title\>GamersVision Forum\</title\>
\</head\>
\<!--Copyright 2001 Johan Gustafsson--\>
\<!--Skriptet är fritt att använda om dessa rader finns kvar.--\>
\<%
If Session("Username")="" THEN
%\>
\<%
 '\*\*\*\*\* Skapar Connection-objektet \*\*\*\*\*'
 Set Databas = Server.CreateObject("ADODB.Connection")
 '\*\*\*\*\* Specifierar sökvägen \*\*\*\*\*'
 MdbFilePath = Server.MapPath("forum.mdb")
 '\*\*\*\*\* öppnar databasen \*\*\*\*\*'
 Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";"
 %\>
	\<% Set rs=Databas.Execute("Select \* From Meddelanden Order by Datum DESC")	
	%\>
	\<body text="#FFFFFF" bgcolor="#1056BE" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"\>

 \<!--webbot bot="Include" U-Include="../meny.asp" TAG="BODY" startspan --\>

\<p align="center"\>\<font color="#000000"\>\[\<a href="../default.asp"\>INDEX\</a\>\] \[\<a href="../artiklar.asp"\>ARTIKLAR\</a\>\]
\[\<a href="forum.asp"\>FORUM\]\</a\> \[\<a href="http://redaktionen.asp"\>REDAKTIONEN\</a\>\]\</font\>\</p\>

\<!--webbot bot="Include" endspan i-checksum="47740" --\>

\<div align="center"\>
  \<center\>
  \<table border="1" width="761" height="139" bordercolor="#000000" cellspacing="0" cellpadding="0"\>
    \<tr\>
      \<td width="901" height="55" colspan="5" bgcolor="#FFFFFF"\>\<font color="#000000"\>\<img border="0" src="../images/gv_logo_def.jpg" align="left"\>\</font\>
        \<form method="POST" action="login.asp"\>
          \<p\>\<input type="text" name="Username" size="13" value="ANVÄNDARNAMN"\>\<font color="#000000"\>\<input type="password" name="Password" size="13" value="LÖSENORD"\>\</font\>\<br\>
          \<input type="submit" value="Logga in" name="Login"\>\</p\>
        \</form\>
      \</td\>
    \</tr\>
    \<tr\>
      \<td width="901" height="19" colspan="5" bgcolor="#1056BE"\>\<font size="2"\>&nbsp;\<a href="create.asp"\>BLI
        MEDLEM\</a\>\</font\>\</td\>
    \</tr\>
    \<tr\>
      \<td width="20" height="18" bgcolor="#003366"\>&nbsp;\</td\>
      \<td width="172" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Rubrik:\</font\>\</td\>
      \<td width="271" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Postat av:\</font\>\</td\>
      \<td width="114" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Antal svar:\</font\>\</td\>
      \<td width="258" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Senaste
        svar:\</font\>\</td\>
    \</tr\>
    \<% Do Until rs.eof %\>
    \<tr\>
	     \<td width="20" height="12" bgcolor="#006699"\>\<img border="0" src="\<%=rs("Ikon")%\>.gif"\>\</td\>
      \<td width="172" height="12" bgcolor="#006699"\>\<a href="vforum.asp?id=\<%=rs("ID")%\>"\>\<%=rs("Rubrik")%\>\</td\>
      \<td width="271" height="12" bgcolor="#006699"\>\<%=rs("Namn")%\>\</td\>
      \<td width="114" height="12" bgcolor="#006699"\>\<%=rs("Antalsvar")%\>\</td\>
      \<td width="258" height="12" bgcolor="#006699"\>\<%=rs("Datum")%\>\</td\>
    \</tr\>
    \<% rs.movenext
    Loop
    RS.Close
 %\>
    \<tr\>
      \<td width="865" height="26" colspan="5" bgcolor="#336699"\>\<font color="#000000"\>Copyright
        © 2001-2002 GamersVision\</font\>\</td\>
    \</tr\>
  \</table\>
  \</center\>
\</div\>

\<% Elseif Session("Username")\>"" THEN %\>

\<%
 '\*\*\*\*\* Skapar Connection-objektet \*\*\*\*\*'
 Set Databas = Server.CreateObject("ADODB.Connection")
 '\*\*\*\*\* Specifierar sökvägen \*\*\*\*\*'
 MdbFilePath = Server.MapPath("forum.mdb")
 '\*\*\*\*\* öppnar databasen \*\*\*\*\*'
 Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";"
 %\>
	\<% Set rs=Databas.Execute("Select \* From Meddelanden Order by Datum DESC")	
	%\>

 \<!--webbot bot="Include" U-Include="../meny.asp" TAG="BODY" startspan --\>

\<p align="center"\>\<font color="#000000"\>\[\<a href="../default.asp"\>INDEX\</a\>\] \[\<a href="../artiklar.asp"\>ARTIKLAR\</a\>\]
\[\<a href="forum.asp"\>FORUM\]\</a\> \[\<a href="http://redaktionen.asp"\>REDAKTIONEN\</a\>\]\</font\>\</p\>

\<!--webbot bot="Include" endspan i-checksum="47740" --\>

\<div align="center"\>
  \<center\>
  \<table border="1" width="761" height="139" bordercolor="#000000" cellspacing="0" cellpadding="0"\>
    \<tr\>
      \<td width="901" height="55" colspan="5" bgcolor="#FFFFFF"\>\<font color="#000000"\>\<img border="0" src="../images/gv_logo_def.jpg" align="left"\>\</font\>
      \</td\>
    \</tr\>
    \<tr\>
      \<td width="901" height="19" colspan="5" bgcolor="#1056BE"\>\<img border="0" src="post.gif"\>\<font size="2"\>\<a href="post.asp"\>POSTA
        INLÄGG\</a\>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \<a href="loggout.asp"\>LOGGA
        UT\</a\>\</font\>\</td\>
    \</tr\>
    \<tr\>
      \<td width="20" height="18" bgcolor="#003366"\>&nbsp;\</td\>
      \<td width="172" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Rubrik:\</font\>\</td\>
      \<td width="271" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Postat av:\</font\>\</td\>
      \<td width="114" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Antal svar:\</font\>\</td\>
      \<td width="258" height="18" bgcolor="#003366"\>\<font color="#FFFFFF"\>Senaste
        svar:\</font\>\</td\>
    \</tr\>
    \<% Do Until rs.eof %\>
    \<tr\>
	     \<td width="20" height="12" bgcolor="#006699"\>\<img border="0" src="\<%=rs("Ikon")%\>.gif"\>\</td\>
      \<td width="172" height="12" bgcolor="#006699"\>\<a href="vforum.asp?id=\<%=rs("ID")%\>"\>\<%=rs("Rubrik")%\>\</td\>
      \<td width="271" height="12" bgcolor="#006699"\>\<%=rs("Namn")%\>\</td\>
      \<td width="114" height="12" bgcolor="#006699"\>\<%=rs("Antalsvar")%\>\</td\>
      \<td width="258" height="12" bgcolor="#006699"\>\<%=rs("Datum")%\>\</td\>
    \</tr\>
    \<% rs.movenext
    Loop
    RS.Close
 %\>
    \<tr\>
      \<td width="865" height="26" colspan="5" bgcolor="#336699"\>\<font color="#000000"\>Copyright
        © 2001-2002 GamersVision\</font\>\</td\>
    \</tr\>
  \</table\>
  \</center\>
\</div\>
\<% End If %\>
\</body\>

\</html\>
\<% Databas.close%\>

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

## #5 — @nders, 2001-03-16T09:25Z

om du läser ovan länkar klarar du av det själv.

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

## #6 — Nickemannen, 2001-03-16T11:13Z

Om man inte gör det själv så lär man sig ju inte.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8556-flera-sidor
