---
title: "pagingproblem vid tom inbox"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/121716-pagingproblem-vid-tom-inbox"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-02-04T12:24:07.000Z"
updated: "2005-02-04T21:27:14.000Z"
replies: 7
views: 273
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/121716-pagingproblem-vid-tom-inbox"
---

# pagingproblem vid tom inbox

## #1 — WebbisNet, 2005-02-04T12:24Z

På mitt community så får jag följande meddelande när inboxen inte innehåller några poster.

```
ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/mail/paging.asp, line 51
```

Min kod är

```
<%
Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "SELECT mailRead, username, mailDate, mailTime, sender, Headline, message, mailID,Reciever "&_
"FROM tblUsers INNER JOIN tblUsers_imail ON tblUsers.userID = tblUsers_imail.sender "&_
"WHERE Reciever=" & Session("userID")&" order by mailID desc"
strConString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= "& server.MapPath("min databas.mdb") & ";"

'================================================================================================
function getPreviousLink( intp )
  if intp > 1 then
    getPreviousLink = " <a class=""menu"" href='?p=" & intp - 1 & "'> &laquo; Föregående</a> "
    else
        If intp < 2 then
              response.write "&nbsp;"
        end if  
  end if
end function
'================================================================================================

'================================================================================================
function getNextLink( intPageId, intPageCount )
  if cint( intpageId ) <> cint( intPageCount ) then
    getNextLink = " <a class=""menu"" href='?p=" & intp + 1 & "'> Nästa &raquo;</a> "
        else
    getNextLink = " Nästa »"
  end if
end function
'================================================================================================

'================================================================================================
function getLastLink( intPageCount )
  getLastLink = " <a class=""menu"" href='?p=" & intPageCount & "'>Sista sidan</a> "
end function
'================================================================================================

'================================================================================================
function getPageInfo( intp, intPageCount )
  getPageInfo = "<a class=""menu""> Sida: " & intp & " </a>"
end function
'================================================================================================

intp = request.querystring( "p" )
if intp = "" then intp = 1

with objRs
  .cursorlocation = 3
  .open strSQL, strConString
  .pagesize = 15
  .absolutepage = intp
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0

do while not objRs.eof and intCurrentPost < objRs.pagesize
nummer = nummer + 1
If nummer Mod 2 = 0 Then
color = "#FFFFFF" 
Else
color = "#EEEEEE"
end if
  strContents = strContents  

%>
```

Rad 51 är   .absolutepage = intp

kan nån hitta felet?

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

## #2 — yohpops, 2005-02-04T13:44Z

Du kan inte sätta absolutepage om objRs är eof.
Kolla det innan du sätter absolutepage.

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

## #3 — WebbisNet, 2005-02-04T14:00Z

> **yohpops skrev:**
>
> Du kan inte sätta absolutepage om objRs är eof.
> Kolla det innan du sätter absolutepage.

Hur ska jag skriva om, är inte bra på pagingscript

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

## #4 — WebbisNet, 2005-02-04T19:49Z

ingen som vet hur man skriver om????

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

## #5 — Jesper T, 2005-02-04T20:04Z

```
with objRs
	.cursorlocation = 3
  	.open strSQL, strConString
  	.pagesize = 15
end with

If objRs.EOF Then
	Response.Write "Ingkenting hääär!"
Else
	intPages = cint(objRs.pagecount)
	intCurrentPost = 0
	objRs.absolutepage = intp
	
	
	Do while not objRs.eof and intCurrentPost < objRs.pagesize
	nummer = nummer + 1
	If nummer Mod 2 = 0 Then color = "#FFFFFF" Else color = "#EEEEEE"
	 
	'.... Annan kod
	
	objRs.movenext
	loop
End if
```

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

## #6 — WebbisNet, 2005-02-04T20:56Z

tack, funkar bra.....nu är bara problemet varför jag får med föregående och nästa när inga poster finns

Denna kod ligger efter pagingen 

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " \<a class=""menu"" href='?p=" & i & "'\>" & i & "\</a\> "
next

intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop
End If

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

## #7 — Jesper T, 2005-02-04T21:14Z

Du har inte med delen där du anropar funktionerna: getNextLink() och getPreviousLink()

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

## #8 — WebbisNet, 2005-02-04T21:27Z

> **Jesper T skrev:**
>
> Du har inte med delen där du anropar funktionerna: getNextLink() och getPreviousLink()

de ligger i en annan fil
\_____________________________\_
paging.asp

själva mailsidan

endPaging.asp (där föregående och nästa finns)

Detta ser inte riktigt rätt ut med pagingen
kola nedanstående länk

<Http://images.webbisen.com/upload/paging>(1).jpg

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/121716-pagingproblem-vid-tom-inbox