---
title: "Pagin..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12334-pagin"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "FIgg3"
published: "2001-10-28T11:43:00.000Z"
updated: "2001-10-28T15:21:00.000Z"
replies: 20
views: 362
page: 1
pages: 2
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/12334-pagin"
---

# Pagin...

_Sida 1 av 2._

## #1 — FIgg3, 2001-10-28T11:43Z

Hejsan detta är en ganska svår uppgift för er här, deet är så här att jag försöker göra ett pagin system och eftersom jag är här och skriver så fattar ni säkert att det ej går så bra...

Tror där är ganska mycket fel i koden så om någon har tid och lust att ta en titt och hitta några fel så skulle det vara jätte bra ;)

```
  <% 

DIM rsData
DIM sida
DIM totalsida
DIM fldf
DIM intrec
DIM strquote
DIM strscriptname
DIM file

strquote = Chr (34) 
file = Server.MapPath("DATABASEN.mdb")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file
 
Set rsdata = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM TABELLEN ORDER BY ID DESC"

rsdata.Pagesize = 10
rsdata.Cursorlocation = adUseClient

rsdata.Open SQL, Connect, adOpenStatic, adLockOptimistic

if Request.QueryString("sida") = "" then
sida = 1
else
if sida < 1 then
sida = 1
else
if sida > rsdata.pagecount then
sida = rsdata.pagecount
else

sida = CInt(Request.QueryString("sida"))

end if
end if
end if

rsdata.Absolutepage = sida

Response.Write "<table border='0'><thead><tr>"
For Each fldf in rsdata.fields
Response.write "<TD>" & fldf.value & "</TD>"
next
Response.Write "</TBODY></Thead></Table><p>"

For Intrec = 1  to rsdata.pagesize
if not rsdata.EOF then
Respnse.write "<TR>"
For each fldF in rsdata.fields
response.write "<TD>" & fldf.value & "</TD>"
next
Response.write "</TR>"
rsdata.movenext
end if
next
response.write "</TBODY></Thead></Table><p>"

strscriptname = request.servervariables("SCRIPT_NAME")
Response.write "&nbsp;<a href=" & strquote & strscriptname & _ "?sida=" sida - 1 & strquote & "> Sida 1 </a> 

If sida = 1 then
Response.write "&nbsp;<span>Förra sidan</spsn>"

Else
response.write "&nbsp;<a href=" & strquote & sMe & _ sida - 1 & strquote & ">Förra sidan</a>
End If

If sida = rsdata.pagecount then
response.write "&nbsp;<span>Nästa sida</spsn>"

Else
response.write "&nbsp;<a href=" & strquote & strscriptname & _ "?sida= & strquote
 & "sida=" & sida + 1  & strquote & "> Nästa sida </A>"
End If

response.write "&nbsp;<a href=" & strquote & strscriptname & _ "?sida= & rsdata.pagecount
& strquote & ">" Sista sidan</A>

Rsdata.close
set rsdata = norhing
%>
```

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

## #2 — jorgen, 2001-10-28T11:49Z

Tja!

Om inte annat är där stavfel på ord som inte får stavas fel, tex Response och Nothing ;)

mvh Jörgen :)

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

## #3 — FIgg3, 2001-10-28T11:51Z

Tjenare he he ja tror faktiskt där finns lite störe fel ;)

Men tack för du påpekade det...

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

## #4 — FIgg3, 2001-10-28T12:52Z

Ingen annan som hittade något fel?

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

## #5 — LarsG, 2001-10-28T12:56Z

Vad är det som inte fungerar?

Felmeddelanden?

Har du inkluderat adovbs.inc?

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

## #6 — FIgg3, 2001-10-28T14:16Z

Kompileringsfel i Microsoft VBScript fel '800a0408' 

Ogiltigt tecken 

/figg3/scripts/pagin.asp, rad 66 

Response.write "&nbsp;\<a href=" & strquote & strscriptname & \_ "?sida=" sida - 1 & strquote & "\> Sida 1 \</a\>
\---------------------------------------------------------------^

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

## #7 — LarsG, 2001-10-28T14:25Z

\_ använder du bara om vill kunna skriva ett statement över flera rader.

Så det är bara att ta bort dom ur din kod.

Lite fel med " och & i denna

```
Response.write " <a href=" & strquote & strscriptname &  "?sida=" & sida - 1 & strquote & "> Sida 1 </a>"
```

i denna

```
response.write " <a href=" & strquote & sMe & sida - 1 & strquote & ">Förra sidan</a>"
```

och även i den här

```
response.write " <a href=" & strquote & strscriptname & "?sida=" & rsdata.pagecount
& strquote & "> Sista sidan</A>"
```

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

## #8 — FIgg3, 2001-10-28T14:30Z

Tackar tackar men nu har jag skrevit fel på ett annat ställe med tydligen:

Kompileringsfel i Microsoft VBScript fel '800a0409' 

Oavslutad strängkonstant 

/figg3/scripts/pagin.asp, rad 80 

response.write "&nbsp;\<a href=" & strquote & strscriptname &  "?sida= & strquote
\--------------------------------------------------------------------------------^

tack för ni tar er tid // FIgg3

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

## #9 — LarsG, 2001-10-28T14:36Z

```
response.write " <a href=" & strquote & strscriptname & "?sida=" & strquote
```

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

## #10 — FIgg3, 2001-10-28T14:42Z

Tackar igen ;)

Nu tror ja att det är sista frågan:
Kompileringsfel i Microsoft VBScript fel '800a0400' 

Programsats förväntas. 

/figg3/scripts/pagin.asp, rad 84 

& strquote & "\> Sista sidan\</A\>"
^

Rad 84

```
response.write " <a href=" & strquote & strscriptname & "?sida=" & strquote & "?sida=" & rsdata.pagecount & strquote & "> Sista sidan</A>"
```

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

## #11 — LarsG, 2001-10-28T14:45Z

Där verkar det som om du skriver ditt statement på två rader och då behöver du en \_ i slutet på varje rad för att markera att det fortsätter på nästa rad.

```
response.write " <a href=" & strquote & strscriptname & "?sida=" _
& strquote & "?sida=" & rsdata.pagecount & strquote _
 & "> Sista sidan</A>"
```

red: lite oönskade radbrytningar

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

## #12 — FIgg3, 2001-10-28T14:50Z

tack menfel igen...
Nu börjara ja bli trött på mig själv och du är säker jätte trött på mig :(

ADODB.Recordset fel '800a0bb9' 

Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt. 

/figg3/scripts/pagin.asp, rad 24 

RAD 24

```
rsdata.Cursorlocation = adUseClient
```

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

## #13 — FIgg3, 2001-10-28T14:54Z

Löste det vara bara lat och tänkte inte men nu har jag änu ett fel medelande.

```
34 text34 

Körningsfel i Microsoft VBScript fel '800a01a8' 

Objekt krävs.: '' 

/figg3/scripts/pagin.asp, rad 56
```

RAD 56

```
Respnse.write "<TR>"
For each fldF in rsdata.fields
```

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

## #14 — LarsG, 2001-10-28T14:59Z

Alla konstater som heter något med ad som adUseClient t.ex. finns definierade i en fil som heter adovbs.inc som man kan inkludera överst på sidan. 

Eller så kan man själv definiera dom som man behöver.

```
const adUseClient = 3
```

Det är nog det enklaste

red: Lite sent svar på din förra fråga.

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

## #15 — LarsG, 2001-10-28T15:02Z

Felstavning

```
Response.write "<TR>"
```

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

## #16 — FIgg3, 2001-10-28T15:07Z

hmm tack du vet inte hur mycket jag uppskatar din hjälp ;)

Men det vill inte fungera som det ska dock inga fel medelande denna gången ;)

KOlla här:
 <http://212.151.34.243/figg3/scripts/pagin.asp> 

// FIgg3

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

## #17 — @nders, 2001-10-28T15:13Z

Det är fel i din länkning. Du skickar inte med något värde i querystringen sida när du skapar länken till de övriga sidorna.

Mvh,

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

## #18 — LarsG, 2001-10-28T15:16Z

Såg att du skriver \</spsn\> istf \</span\> på flera ställen.

Hur ser koden ut nu efter dina ändringar?

Har tyvärr inte tid att titta så mycket nu (och kommer att vara borta från en dator några dagar.) Om du kommer med ett inlägg inom 10 minuter så kan jag ta en titt.

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

## #19 — FIgg3, 2001-10-28T15:17Z

Tack men det funkar inte även om jag skriver till:
pagin.asp?sida=2
Vissar samma som pagin.asp?sida=1 så om du har något förslag så har jag mina öron öppna för förslg...

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

## #20 — FIgg3, 2001-10-28T15:18Z

Efter alla ändringar

```
<title>Pagin</title>
<body bgcolor="#FFFFFF">
<!--  #include virtual="adovbs.inc" -->

  <% 

DIM rsData
DIM sida
DIM totalsida
DIM fldf
DIM intrec
DIM strquote
DIM strscriptname
DIM file

strquote = Chr (34) 
file = Server.MapPath("DATABASEN.mdb")

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file
 
Set rsdata = Server.CreateObject("ADODB.Recordset")
SQL =  "SELECT * FROM TABELLEN ORDER BY ID"

rsdata.Pagesize = 10
rsdata.Cursorlocation = adUseClient

rsdata.Open SQL, Connect, adOpenStatic, adLockOptimistic

if Request.QueryString("sida") = "" then
sida = 1
else
if sida < 1 then
sida = 1
else
if sida > rsdata.pagecount then
sida = rsdata.pagecount
else

sida = CInt(Request.QueryString("sida"))

end if
end if
end if

rsdata.Absolutepage = sida

Response.Write "<table border='0'><thead><tr>"
For Each fldf in rsdata.fields
Response.write "<TD>" & fldf.value & "</TD>"
next
Response.Write "</TBODY></Thead></Table><p>"

For Intrec = 1  to rsdata.pagesize
if not rsdata.EOF then
Response.write "<TR>"
For each fldF in rsdata.fields
response.write "<TD>" & fldf.value & "</TD>"
next
Response.write "</TR>"
rsdata.movenext
end if
next
response.write "</TBODY></Thead></Table><p>"

strscriptname = request.servervariables("SCRIPT_NAME")
Response.write " <a href=" & strquote & strscriptname & "?sida=" & sida -1 & strquote & "> Sida 1 </a>" 
 

If sida = 1 then
Response.write "&nbsp;<span>Förra sidan</spsn>"

Else
response.write " <a href=" & strquote & sMe & sida - 1 & strquote & ">Förra sidan</a>"
End If

If sida = rsdata.pagecount then
response.write "&nbsp;<span>Nästa sida</spsn>"

Else
response.write " <a href=" & strquote & strscriptname & "?sida=" & strquote & "sida=" & sida + 1  & strquote & "> Nästa sida </A>"
End If

response.write " <a href=" & strquote & strscriptname & "?sida=" _
& strquote & "?sida=" & rsdata.pagecount & strquote _
& "> Sista sidan</A>"

Rsdata.close
set rsdata = Nothing
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12334-pagin  
Nästa sida: https://www.webforum.nu/amne/asp/12334-pagin/page2.md