paging fel

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

nej !!

<%

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
%>

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

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.

nu funkar inte paging scriptet?

Du tog bara bort Const?

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
%>

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

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