pagingproblem vid tom inbox

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?

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

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

ingen som vet hur man skriver om????

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

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

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

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