---
title: "paging fel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/43398-paging-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2002-05-08T20:25:26.000Z"
updated: "2002-05-08T21:04:36.000Z"
replies: 10
views: 301
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/43398-paging-fel"
---

# paging fel

## #1 — jboy_87, 2002-05-08T20:25Z

fattar inte varför jag får felmess??

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0411)
Namnet har omdefinierats.
/krypin_main.asp, line 347, column 6
Const perSida = 10
\-----^

\<%

if request.querystring("visa") = "dagbok" then
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select \* From Dagbok Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

Const perSida = 10
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If 

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%\>

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

## #2 — @nders, 2002-05-08T20:27Z

Har du någon includefil där du definierar konstanter?

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

## #3 — jboy_87, 2002-05-08T20:28Z

nej !!

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

## #4 — jboy_87, 2002-05-08T20:29Z

\<%

if request.querystring("visa") = "dagbok" then
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select \* From Dagbok Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

Const perSida = 10
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If 

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
end if
%\>
\<%

if request.querystring("visa") = "gastbok" then
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select \* From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

Const perSida = 10
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If 

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
end if
%\>

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

## #5 — @nders, 2002-05-08T20:29Z

Har du definierat konstanten tidigare i koden då? CTRL-F... ;)

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

## #6 — @nders, 2002-05-08T20:31Z

Läs felmeddelandet...

En konstant har *ett* värde, och kan inte omdefinieras. Det är det som gör det till en konstant. Ska det inte vara en konstant, ta bort Const.

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

## #7 — jboy_87, 2002-05-08T20:34Z

nu funkar inte paging scriptet?

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

## #8 — @nders, 2002-05-08T20:36Z

Du tog bara bort Const?

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

## #9 — jboy_87, 2002-05-08T20:42Z

gjorde såhär nu funkar det

\<%
Const perSida = 10
If Request.QueryString("page") = "" then 
page = 1 
Else 
page = Request.QueryString("page") 
End If 

if request.querystring("visa") = "dagbok" then
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/Dagbok.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select \* From Dagbok Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
end if
%\>
\<%

if request.querystring("visa") = "gastbok" then
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&""
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select \* From gb Where tillID = "&Request.QueryString("tillid") &" Order By Datum DESC"

RecSet.CursorLocation = 3
RecSet.CacheSize = perSida

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
end if
%\>

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

## #10 — jboy_87, 2002-05-08T21:02Z

men nu går det inte och ändra const perSida = 20 till const perSida = 30 posten blir fortfarnade 10 från den andra querystringen?

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

## #11 — jboy_87, 2002-05-08T21:04Z

fan vad dum jag e har två stycken persida ju !! :)

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

---

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