---
title: "Paging Problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/160170-paging-problem/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "_2ejon"
published: "2007-05-11T10:01:04.000Z"
updated: "2007-05-14T06:59:55.000Z"
replies: 56
views: 1446
page: 3
pages: 3
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/160170-paging-problem"
---
# Paging Problem
_Sida 3 av 3._
## #41 — _2ejon, 2007-05-13T16:49Z
```
set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date < #" & v_date & "# ORDER BY date DESC")
```
Det är Nästa SQL satsen
:P Jag har lagt in det lite bakot vänt bara, men eftersom man börjar på den nyaste posten när man kommer in på sidan så blir juh den koden här över en nästa funktion och inte den funktionen man backar med
För Föregående funktionen fungerar juh :)
Det är bara Nästa som strular lite och vill hoppa till det nyaste id;t
Hittar du något btw? :) Jag ska sätta mig och kolla med men med mina väldigt begränsade kunskaper så får du inte hoppas på ett under ifrån min sida :D hehe
Permalänk: https://www.webforum.nu/p/1977219
## #42 — andyoumaydie, 2007-05-13T16:51Z
Och då borde det ju vara så enkelt som att ändra '\<' till '\>' och DESC till ASC här:
```
set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date DESC")
```
Permalänk: https://www.webforum.nu/p/1977222
## #43 — _2ejon, 2007-05-13T17:17Z
Det verkar tyvär inte så :/ Efter jag ändrade det till så som du sa så stod bara sidan å laddade och laddade
```
set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date ASC")
```
och när jag testade denna
```
set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date DESC")
```
så får jag upp detta felmedelande:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/blogg/default.asp, line 60
som är denna kod
```
vPrevPost = rsPrev("id")
```
Permalänk: https://www.webforum.nu/p/1977241
## #44 — andyoumaydie, 2007-05-13T17:23Z
Det var därför du skulle ha en kontroll så att inte recordsetet är eof eller bof.
För visas det senaste inlägget så finns det ju inget senare att länka till.
Permalänk: https://www.webforum.nu/p/1977243
## #45 — _2ejon, 2007-05-13T17:49Z
hum, jag gjorde såhär nu:
```
Do While NOT rsWeblog.EOF
if gotPost = false Then
Set rsComments = objConn.Execute("SELECT Count(comments.blogID) AS antal FROM comments WHERE comments.blogID = " & rsWeblog("id") & ";")
Set rsCategory = ObjConn.Execute("SELECT * FROM category WHERE cat_id = " & rsWeblog("cat_id") & "")
v_id = rsWeblog("id")
v_weblog = rsWeblog("weblog")
v_headline = rsWeblog("headline")
v_date = rsWeblog("date")
[B] set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date ASC")
Do While NOT rsPrev.BOF
vPrevPost = rsPrev("id")
loop[/B]
else
vNextPost = rsWeblog("id")
end if
```
Nu startar sidan å allt men den ger mig inget ID värde på nästa knappen nu, det måste vara nått med SQL frågan då va ?
Det ger bara ?nextpost= vilken sida man än är på nu /nästa knappen alltså
Känns som det börja närma sig nu :) Lite surt bara att det aldrig vill fungera asså
Permalänk: https://www.webforum.nu/p/1977250
## #46 — andyoumaydie, 2007-05-13T18:09Z
ja, det är nåt fel på sql:en.
Men jag har svårt att se vad. Ska prova lite...
Men den if-satsen du kontrollerar med där är inget jag rekommenderar. :)
Prova istället nåt liknande:
```
if not rsPrev.eof then
vPrevPost = rsPrev("id")
else
vPrevPost = "Du tittar antagligen på senaste inlägget, eller det blev fel" 'Det behöver ju inte stå så, men det kan hjälpa dig i felsökningen
end if
```
Permalänk: https://www.webforum.nu/p/1977262
## #47 — _2ejon, 2007-05-13T18:27Z
Så nu har jag ändrat if-satsen :P och det fungerar fint :) Så länge man inte trycker nästa då vill säga ;) För då kommer den texten upp i ID rutan.
Asså jag har vridit å vänt på sql satsen nu och inget verkar vilja fungera
kan det ha med hur datumen lagras i access eller är det alltid på samma sätt ?
för så här lagras som i min tabell
id 39´s "date" värde: 2007-05-08 19:38:00
id 41´s "date" värde: 2007-05-09 22:31:00
etc.
Permalänk: https://www.webforum.nu/p/1977267
## #48 — andyoumaydie, 2007-05-13T18:42Z
Det här fungerar alldeles utmärkt för mig.
```
set rsPrev = DB.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date DESC")
if not rsPrev.eof then
vPrevPost = rsPrev("id")
else
vPrevPost = ""
end if
```
Och jag kan inte se varför det inte skulle fungera för dig.
Kan du inte posta hela din nuvarande kod.
Permalänk: https://www.webforum.nu/p/1977275
## #49 — _2ejon, 2007-05-13T18:57Z
nä inte jag heller :/
här kommer den:
```
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsWeblog
Dim rsComments
Dim rsCat
Dim rsCategory
Dim rsPrev
Dim v_id
Dim v_weblog
Dim v_headline
Dim v_date
%>
<%=title2%>
<% if request.querystring("nextpost") = "" Then
set rsWeblog = ObjConn.execute("SELECT TOP 2 * FROM weblog ORDER BY date DESC")
else
set rsWeblog = ObjConn.execute("SELECT TOP 2 * FROM weblog where id<=" & request.querystring("nextpost") & " ORDER BY date DESC")
end if
if rsWeblog.EOF Then
Response.Write(""&emptyPosts&"")
Else
gotPost = false
Do While NOT rsWeblog.EOF
if gotPost = false Then
Set rsComments = objConn.Execute("SELECT Count(comments.blogID) AS antal FROM comments WHERE comments.blogID = " & rsWeblog("id") & ";")
Set rsCategory = ObjConn.Execute("SELECT * FROM category WHERE cat_id = " & rsWeblog("cat_id") & "")
v_id = rsWeblog("id")
v_weblog = rsWeblog("weblog")
v_headline = rsWeblog("headline")
v_date = rsWeblog("date")
set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date ASC")
if not rsPrev.eof then
vPrevPost = rsPrev("id")
else
vPrevPost = "Du tittar antagligen på senaste inlägget, eller det blev fel" 'Det behöver ju inte stå så, men det kan hjälpa dig i felsökningen
end if
else
vNextPost = rsWeblog("id")
end if
gotPost = true
rsWeblog.MoveNext
loop
rsWeblog.Close
Set rsWeblog = Nothing
End If
%>
<%
Call CloseDatabase
%>
```
Permalänk: https://www.webforum.nu/p/1977285
## #50 — andyoumaydie, 2007-05-13T19:07Z
Din sql ska se ut såhär: (DESC istället för ASC)
```
set rsPrev = DB.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date DESC")
```
och så tar du bort den där texten som jag la till.
```
if not rsPrev.eof then
vPrevPost = rsPrev("id")
else
vPrevPost = ""
end if
```
Fungerar det inte då?
Permalänk: https://www.webforum.nu/p/1977293
## #51 — _2ejon, 2007-05-13T19:15Z
åhh blir man tokig eller ?
då kommer denna fel kod upp :/
Microsoft VBScript runtime error '800a01a8'
Object required: 'DB'
/blogg/default.asp, line 58
Vad menar den med att den behöver DB ?
Permalänk: https://www.webforum.nu/p/1977299
## #52 — andyoumaydie, 2007-05-13T19:17Z
Sorry, det var jag som glömde ändra från min kod. :)
byt DB på rad 58 mot ObjConn
Permalänk: https://www.webforum.nu/p/1977300
## #53 — _2ejon, 2007-05-13T19:34Z
så nu har jag ändrat det me men det är fortfaradne inget id nr på nästa knappen :/
Men allt annat fungerar :S Det funkade för dig sa du. Det kan inte ha med hur datumen lagras som jag beskrev innan ?
Permalänk: https://www.webforum.nu/p/1977305
## #54 — andyoumaydie, 2007-05-13T19:41Z
Det tror jag inte. De är ju fortfarande antingen större eller mindre.
PM:a mig msn så löser vi det här väldigt enkelt.
Permalänk: https://www.webforum.nu/p/1977307
## #55 — _2ejon, 2007-05-13T19:47Z
Så har addat dig nu :)
Permalänk: https://www.webforum.nu/p/1977308
## #56 — _2ejon, 2007-05-13T23:42Z
så nu har vi äntligen löst detta :D Det tog sin lilla tid å komma på vad det va men med --\> andyoumaydie \<--´s fulla hjälp så fixade det sig, plus att han har lärt mig mkt. Tack och åter tack :D
Men här kommer iaf den slutliga koden
```
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<% Session.lcid = 1053 %>
<%
Dim meta, css, logo, title2, BadWords, Domain, newFolder, RSScomment, RSStitle, RSSlink, RSSdescription, poweredby, title, comments, bloglinks, calendar, search, slogan
Dim posted, category, recentPosts, recentComments, posted_by, info, category2, weblogArchive, archive, addComment, noBadword, menu, default, about, admin
Dim comment_name, comment_email, comment_email_noshow, comment_url, comment_msg, strCatError, searchString_false, searchString_true, searchStringEmpty, emptyCalendar
Dim emptyComments, emptyPosts, dato, tid, strSQL, SQL, rs, strAntal, strSQLupdate, desc
Dim gotPost
Dim rsWeblog
Dim rsComments
Dim rsCat
Dim rsCategory
Dim rsPrev
Dim v_id
Dim v_weblog
Dim v_headline
Dim v_date
Dim vPrevPost
Dim vNextPost
%>
<%=title2%>
<% if request.querystring("showimage") = "" Then
set rsWeblog = ObjConn.execute("SELECT TOP 2 * FROM weblog ORDER BY date DESC")
else
set rsWeblog = ObjConn.execute("SELECT TOP 2 * FROM weblog where id<=" & request.querystring("showimage") & " ORDER BY date DESC")
end if
if rsWeblog.EOF Then
Response.Write(""&emptyPosts&"")
Else
gotPost = false
Do While NOT rsWeblog.EOF
if gotPost = false Then
Set rsComments = objConn.Execute("SELECT Count(comments.blogID) AS antal FROM comments WHERE comments.blogID = " & rsWeblog("id") & ";")
Set rsCategory = ObjConn.Execute("SELECT * FROM category WHERE cat_id = " & rsWeblog("cat_id") & "")
v_id = rsWeblog("id")
v_weblog = rsWeblog("weblog")
v_headline = rsWeblog("headline")
v_date = rsWeblog("date")
set rsPrev = ObjConn.execute("SELECT TOP 1 * FROM weblog WHERE date > #" & v_date & "# ORDER BY date ASC")
if not rsPrev.eof then
vPrevPost = rsPrev("id")
else
vPrevPost = ""
end if
else
vNextPost = rsWeblog("id")
end if
gotPost = true
rsWeblog.MoveNext
loop
rsWeblog.Close
Set rsWeblog = Nothing
End If
%>
