---
title: "Konstigt fel med paging"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46929-konstigt-fel-med-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Cactuz"
published: "2002-06-29T17:36:31.000Z"
updated: "2002-06-29T19:34:21.000Z"
replies: 7
views: 165
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/46929-konstigt-fel-med-paging"
---

# Konstigt fel med paging

## #1 — Cactuz, 2002-06-29T17:36Z

```
<%
Function DiffADate(theDate)
DiffADate = round(DateDiff("d", theDate,now())/365.25)
End Function

Set eofch = Server.CreateObject("ADODB.Connection")
eofch.Open "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

SQL = "SELECT * FROM *** WHERE Till = '"& session("id") &"'"
Set RecEof = eofch.Execute(SQL)

IF NOT RecEof.Eof THEN

Set dbNew = Server.CreateObject("ADODB.Connection")
dbNew.Open "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

no = "No"
SQL = "SELECT Count(*) FROM *** WHERE Till = '"& session("id") &"' AND Kollad = '"& no &"'"
Set RecNew = dbNew.Execute(SQL)
SQL = "SELECT Count(*) FROM *** WHERE Till = '"& session("id") &"'"
Set RecTot = dbNew.Execute(SQL)

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

Set objRs = Server.Createobject("Adodb.Recordset")
strSQL = "Select * from *** WHERE Till = '"& session("id") &"' Order by Datum DESC"

strConString = "driver=MySQL;server=localhost;uid=***;pwd=***;database=***"

intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorlocation = 3 'adUseClient
  .open strSQL, strConString 'öppnar databasen och hämtar info.
  .pagesize = 20 'bestämmer hur många poster per sida
  .absolutepage = intPageId 'bestämmer vilken sida som skall visas.
end with

intPages = cint( objRs.pagecount ) 'Kollar hur många sidor som finns i recordsettet.
intCurrentPost = 0 'Nollställer räknaren som skall hålla kolla på vilken post vi är på.

do while not objRs.eof and intCurrentPost < objRs.pagesize

fromid = objRs("ID")

SQL = "SELECT * FROM *** WHERE ID = "& fromid &""
Set RecUsr = Connect.Execute(SQL)

	color = color+1

	If color mod 2 = 0 then
		bgcolor=""& bgcolor2 & ""
	Else
		bgcolor=""
		End If

  IF objRs("Kollad") = "Yes" THEN

strcontents = "<tr bgcolor=" & bgcolor & "><td width=""1""><IMG HEIGHT=""8"" SRC=""offline.gif"" WIDTH=""8""></td><td><font face=""Verdana"" size=""1""><A href=""?id=mess&messid="& objRs("ID") &""">"& objRs("Rubrik") &"</A></td><td><font  face=""Verdana"" size=""1""><a href=""default.asp?id=userinfo&userid=" & RecUsr("ID") & """>" & RecUsr("Nick") & "</a></td><td><font face=""Verdana"" size=""1"">"& objRs("Datum") &""

IF session("snutonline") = "onlinesnut" THEN
strcontents = strcontents & " - IP: "& objRs("ip") &""
END IF

strcontents = strcontents & "</td></tr>"

ELSE
strcontents = "<tr bgcolor=" & bgcolor & "><td width=""1""><IMG HEIGHT=""8"" SRC=""online.gif"" WIDTH=""8""></td><td><font face=""Verdana"" size=""1""><A href=""?id=mess&messid=" & objRs("ID") & """>"& objRs("Rubrik") &"</a></td><td><font  face=""Verdana"" size=""1""><a href=""default.asp?id=userinfo&userid=" & RecUsr("ID") & """>" & RecUsr("Nick") & "</a></td><td><font face=""Verdana"" size=""1"">"& objRs("Datum") &""

IF session("snutonline") = "onlinesnut" THEN
strcontents = strcontents & " - IP: "& objRs("ip") &""
END IF

strcontents = strcontents & "</td></tr>"

END IF

  intCurrentPost = intCurrentPost + 1
  objRs.MoveNext
loop

function getFirstLink()
  getFirstLink = " <a href='?id=inkorg&pageid=1'>Första sidan</a> "
end function

function getPreviousLink( intPageId )
  if intPageId > 1 then
    getPreviousLink = " <a href='?id=inkorg&pageid=" & intPageId - 1 & "'>&lt;&lt;</a> "
  end if
end function

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?id=inkorg&pageid=" & i & "'>" & i & "</a>"
next

function getNextLink( intPageId, intPageCount )
  if cint( intPageId ) < cint( intPageCount ) then
    getNextLink = " <a href='?id=inkorg&pageid=" & intPageId + 1 & "'>&gt;&gt;</a> "
  end if
end function

function getLastLink( intPageCount )
  getLastLink = " <a href='?id=inkorg&pageid=" & intPageCount & "'>Sista sidan</a> "
end function

function getPageInfo( intPageId, intPageCount )
  getPageInfo = "Sida: " & intPageId & "/" & intPageCount & " "
end function

END IF
```

När objRs("ID") är annat än 1 så får jag ett felmeddelandet: Undantag inträffade.

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

## #2 — LarsG, 2002-06-29T18:13Z

```
objRs.MoveNext
if objrs.eof then exit do
```

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

## #3 — Cactuz, 2002-06-29T18:58Z

fortfarande samma fel

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

## #4 — LarsG, 2002-06-29T19:14Z

Du har ingen kontroll på att recusr innehåller något data.

```
if not recusr.eof then
strcontents = "<tr bgcolor=" & bgcolor & _
"><td width=""1""><IMG HEIGHT=""8"" SRC=""offline.gif"" WIDTH=""8""></td><td><font face=""Verdana"" size=""1""><A href=""?id=mess&messid="& _
objRs("ID") &""">"& objRs("Rubrik") &"</A></td><td><font  face=""Verdana"" size=""1""><a href=""default.asp?id=userinfo&userid=" & _
RecUsr("ID") & """>" & RecUsr("Nick") & "</a></td><td><font face=""Verdana"" size=""1"">"& objRs("Datum") 
else
'???
end if
```

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

## #5 — Cactuz, 2002-06-29T19:17Z

men d gör den ju

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

## #6 — Cactuz, 2002-06-29T19:18Z

men felet ligger där nånstans =)

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

## #7 — Cactuz, 2002-06-29T19:34Z

nu vill den inte loopa ut alla...

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

## #8 — Cactuz, 2002-06-29T19:34Z

den visar bara den med id 1

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

---

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