---
title: "Begränsa antalet rader"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/61505-begränsa-antalet-rader"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Karamell"
published: "2002-12-08T02:26:08.000Z"
updated: "2002-12-08T11:39:20.000Z"
replies: 5
views: 205
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/61505-begränsa-antalet-rader"
---

# Begränsa antalet rader

## #1 — Karamell, 2002-12-08T02:26Z

Jag har ett skript som kollar i mitt forum efter senaste trådarna.  På mainsidan visas detta skript, vill dock inte se alla trådar utan bara de fem första.

Såhär ser skriptet ut:

                          \<%
Dim rsLastestPosts
Dim strPosts
Dim adoCon
Dim strCon
Dim strSQL

'Create a connection odject
Set adoCon = Server.CreateObject("ADODB.Connection")

'Database connection info and driver
strCon = "DRIVER={Microsoft Access Driver (\*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath("forum\\admin\\wwForum.mdb")

'Set an active connection to the Connection object
adoCon.Open strCon

Set rsLastestPosts = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT Top 6 tblTopic.\*, tblForum.\* "
strSQL = strSQL & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID "
strSQL = strSQL & "WHERE ((tblForum.Password) Is Null) "
strSQL = strSQL & "ORDER BY tblTopic.Last_entry_date DESC;"

rsLastestPosts.Open strSQL, strCon

If rsLastestPosts.EOF Then Response.Write "\<span class=""smltext""\>No Forum Posts Made\</span\>" 

Do while NOT rsLastestPosts.EOF

If len(rsLastestPosts("Subject"))\>25 then
	strPosts = left(rsLastestPosts("Subject"),3) & "...&nbsp;"
Else
	strPosts = rsLastestPosts("Subject")
End If

%\>

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

## #2 — crisse6, 2002-12-08T05:08Z

vilken sql ska gora det da?

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

## #3 — Eitraz, 2002-12-08T07:58Z

Såhär du menar?

```
n=0
Do while NOT rsLastestPosts.EOF And n < 5

If len(rsLastestPosts("Subject"))>25 then 
strPosts = left(rsLastestPosts("Subject"),3) & "... " 
Else 
strPosts = rsLastestPosts("Subject") 
End If

n = n + 1
rsLastestPosts.MoveNext
Loop
```

\-Eitraz

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

## #4 — SilvioF, 2002-12-08T08:16Z

Re: Begränsa antalet rader

> **Karamell skrev:**
>
> vill dock inte se alla trådar utan bara de fem första.
> 
> strSQL = "SELECT **Top 6** tblTopic.\*, tblForum.\* "
> strSQL = strSQL & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID "
> strSQL = strSQL & "WHERE ((tblForum.Password) Is Null) "
> strSQL = strSQL & "ORDER BY tblTopic.Last_entry_date DESC;"

Eeh... Det är ju bara att ändra **Top 6**  till **Top 5** om du bara vill se de fem översta inläggen. :OO

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

## #5 — Eitraz, 2002-12-08T08:25Z

Hoho, missade det :)

Men han såg Alla sa han innan.. kanske bara hade 6 st poster i databasen iofs..

\-Eitraz

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

## #6 — Karamell, 2002-12-08T11:39Z

tack för hjälpen, asså var ybertrött igår missade den där strängen...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/61505-begränsa-antalet-rader