---
title: "Paging"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/83848-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2003-08-09T02:19:01.000Z"
updated: "2003-08-09T07:03:30.000Z"
replies: 1
views: 238
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/83848-paging"
---

# Paging

## #1 — WebbisNet, 2003-08-09T02:19Z

varför får jag felmeddelanet 
Microsoft VBScript compilation error '800a0400' 

Expected statement 

/Gastbok/default.asp, line 199 

with objRs 

med

```
<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from gastbok"
strConString = ("Driver={mySQL};Server=localhost;Port=3306;Option=131072;Stmt=;Database=mydatabase;Uid=myusername;Pwd=xxxxxxxxxx;")

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3
  .open strSQL, strConString
  .pagesize = 10
  .absolutepage = intPageId
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
  strContents = strContents &_
    "<tr><td>" & objRs( "fält1" ) & "</td>" &_
    "<td>" & objRs( "fält2" ) & "</td></tr>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td>" & strNavigation & "</td></tr></table>" 
%>
```

**det är chilliasp på servern**

 <info@webbisen.com>

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

## #2 — @nders, 2003-08-09T07:03Z

Re: Paging

> **WebbisNet skrev:**
>
> **det är chilliasp på servern**

Där tror jag du har svaret.

Mvh

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/83848-paging