---
title: "Paging fel!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/72856-paging-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "clacke"
published: "2003-04-02T08:56:54.000Z"
updated: "2003-04-02T09:54:59.000Z"
replies: 4
views: 890
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/72856-paging-fel"
---

# Paging fel!

## #1 — clacke, 2003-04-02T08:56Z

Jag har lagt in ett paging script på en sida
och jag får följande felmeddelande:

```

ADODB.Recordset error '800a0cb3' 

Aktuellt Recordset stöder inte bokmärken. Det kan bero på en begränsning av providern eller den valda markörtypen. 

och raden den säger till om:
if not rsPage.eof then rsPage.AbsolutePage = cint(sida)
```

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

## #2 — @nders, 2003-04-02T09:00Z

Visa kod.

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

## #3 — Vide, 2003-04-02T09:13Z

Du måste öppna recordsettet på rätt sätt, t.ex med konstanterna adOpenStatic och adLockPessimistic.

<http://www.devguru.com/Technologies/ado/quickref/recordset_open.html>

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

## #4 — clacke, 2003-04-02T09:39Z

Ok anders här är koden:
\[kod\]
\<% option explicit %\>
\<!-- #INCLUDE FILE="../adovbs.inc" --\>
\<!--#include file="../koppling.asp" --\>
\<% if session("admin") \<\> true then
	response.redirect("logout.asp")
	end if

	dim rs2, sql2, conn, strConn, rs,sql, rumId, sql3, best_id, sql4, rs4, sql5, rs5, sql6, rs6,da,dag, sida, rad, i, rsPage
	
	rumId = cint(request.querystring("rumId"))
	sida = TRIM(Request.querystring("sida"))
   	if sida = "" then sida = 1

		
		
	sql2 = "SELECT \* FROM room;"
	set rs2 = conn.execute(sql2)
	
	if rumId \< 1 then rumId = rs2("rum_id")
	
	da=date()
	dag=Cstr(da)

	
	
	    if request.querystring("design") \<\> "" then
			best_id = cint(request.querystring("design"))
			sql3="Delete FROM tidsbest WHERE best_id="& best_id &" OR best_id2="&best_id&";"
			Conn.Execute(sql3)
        	'response.redirect("bokning.asp?rumId="& rumId)
			
				'kolla efter dubbelbokad tid...
				sql = "SELECT \* FROM dubbelbokning WHERE dubbelbokad_id = "& best_id &";"
				set rs = conn.execute(sql)
		
				if not rs.eof then
		
					if rs("bokad") = true then
						sql6 = "SELECT \* FROM allatider WHERE tider = '"& rs("tid_id") &"';"
						set rs6 = conn.execute(sql6)
			
						sql = "INSERT INTO tidsbest(anv_id,tid_id, till_id,datum,rum_id, sort_id, antal, meddelande) VALUES("& rs("anv_id")&", "& rs6("tid_id") &",  '"& rs("till_id") &"', '"& rs("datum") &"', "& rs("rum_id") &", "& rs("sort_id") &", "& rs("antal") &", '"& rs("meddelande") &"')"
						conn.execute(sql)
				
						sql5 = "SELECT \* FROM tidsbest WHERE anv_id = "& rs("anv_id") &" AND tid_id = "& rs6("tid_id")&" AND rum_id = "& rs("rum_id") &" AND datum = '"& rs("datum") &"';"
						set rs5 = conn.execute(sql5)
				
						dim b
						b = 1
				
		
						while b \< rs("antal")
							sql = "INSERT INTO tidsbest(anv_id, tid_id, best_id2, datum, rum_id) VALUES("& rs("anv_id") &", "& rs6("tid_id") + b &",  "& rs5("best_id") &", '"& rs("datum") &"', "& rs("rum_id") &")"
							conn.execute(sql)
							b = b + 1
						wend
					end if
			
					sql = "DELETE FROM dubbelbokning WHERE dubbelbokad_id = "& best_id &";"
					conn.execute(sql)
				end if
				'slut dubbelbokning...
			
        end if
		
		if request.querystring("dubbelbokning") \<\> "" then
			best_id = cint(request.querystring("dubbelbokning"))
			sql3 = "UPDATE dubbelbokning SET anv_id = " & 0 & ", bokad = "& 0 &", tid_id = '"& "" &"', till_id = '"& "" &"' WHERE best_id = "& best_id &";"
			conn.execute(sql3)
        end if
	
	'set rs = nothing
	Set rsPage = Server.CreateObject ("ADODB.Recordset")
	rsPage.CursorType = adOpenStatic
    rsPage.PageSize = 30 'ANTALET POSTER MAN VILL VISA PÅ VARJE SIDA...
	rsPage.open "SELECT \* FROM tidsbest,users,allatider,room where tidsbest.anv_id=users.anv_id AND users.anv_id=tidsbest.anv_id AND allatider.tid_id=tidsbest.tid_id AND room.rum_id= tidsbest.rum_id AND tidsbest.rum_id = "& cint(rumId) &" ORDER BY datum, tider;", conn
	'rsPage.open "SELECT \* FROM tidsbest INNER JOIN users ON tidsbest.anv_id = users.anv_id WHERE tidsbest.rum_id = "& rumId &";", conn
	if not rsPage.eof then rsPage.AbsolutePage = cint(sida)
%\>
\<html\>
\<head\>
\<title\>Bokade tider\</title\>
\<link rel="stylesheet" href="../css/bokning_css.asp" type="text/css"\>
\</head\>
\<body topmargin="0" class="main"\>
\<table width="770" height="380" border="0" align="center" cellpadding="10" cellspacing="0" class="tabellram"\>
  \<tr\> 
    \<td align="center" colspan="7" height="65" valign="top"\> \<b\>Välj typ av bokning!\</b\> 
      \<p\> 
        \<%while not rs2.eof
	  	if rs2("rum_id") = rumId then
	  		response.write("\<b\>\<a href='bokning.asp?rumId="& rs2("rum_id") &"'\>"& rs2("rumsnamn") &"\</a\>\</b\>&nbsp;&nbsp;&nbsp;")
		else
			response.write("\<a href='bokning.asp?rumId="& rs2("rum_id") &"'\>"& rs2("rumsnamn") &"\</a\>&nbsp;&nbsp;&nbsp;")
		end if
		rs2.movenext
		wend
		%\>
      \</p\>
    \</td\>
  \</tr\>
\<tr valign="top"\>\<td\>
      \<table width="100%"\>
        \<%'if rumId \<\> "" then%\>
        \<tr\> 
         
          \<td align="center" width="18%"\>\<b\>Bokade datum\</b\>\</td\>
          \<td align="center" width="29%"\>\<b\>&nbsp;Namn\</b\>\</td\>
          \<td align="center" width="8%"\>\<b\>&nbsp;Platsnr\</b\>\</td\>
          \<td align="center" width="24%"\>\<b\>&nbsp;Telefon\</b\>\</td\>
          
          \<td align="center" width="21%"\>\<b\>&nbsp;Ta bort\</b\>\</td\>
        \</tr\>
        \<tr\> 
          \<td colspan="6"\>
            \<hr noshade\>
          \</td\>
        \</tr\>
        \<% rad = 0
		while not rsPage.eof and rad \< rsPage.PageSize
	   	if rsPage("rum_id") = rumId AND rsPage("best_id2") = 0 then
		rad = rad + 1
		 if rsPage("datum") = dag then %\>
        \<tr valign="top"\> 
         
          \<td align="center" class="idag" width="18%"\>&nbsp;\<%=rsPage("tider")%\> - \<%=rsPage("till_id")%\>\</td\>
          \<td align="center" class="idag" width="29%"\> &nbsp;\<%=rsPage("namn")%\>\</td\>
          \<td align="center" class="idag" width="8%"\>\<a href="mailto:\<%=rsPage("rumsnamn")%\>"\>\<%=rsPage("rumsnamn")%\>\</a\>\</td\>
          \<td align="center" class="idag" width="24%"\>&nbsp;\<%=rsPage("telenr")%\>\</td\>
          
          \<td align="center" class="idag" width="21%"\>&nbsp;\<a href="bokning.asp?design=\<%=rsPage("best_id")%\>&rumId=\<%=rumId%\>"\>Ta 
            bort\</a\>\</td\>
        \</tr\>
		\<%if rad = rsPage.PageSize then%\>
		\<tr\> 
       		\<td colspan="6"\>\<hr noshade\>\</td\>
    	\</tr\>
		\<TR\>
		\<td colspan="6" align="center"\>Sida:&nbsp;\<%=sida%\>
		\<%if not sida \< 2 then%\>
				\<A HREF="bokning.asp?sida=\<%=sida-1%\>&rumId=\<%=rumId%\>"\>Föregående\</A\>&nbsp;
		\<%end if%\>
		\<%if not sida = rsPage.PageSize then%\>
				\<A HREF="bokning.asp?sida=\<%=sida+1%\>&rumId=\<%=rumId%\>"\>Nästa\</A\>&nbsp;
		\<%end if%\>
		\</TD\>
		\</TR\>
		\<%end if%\>
		
		\<% else %\>
		  \<tr valign="top"\> 
          
          \<td align="center" width="18%"\>&nbsp;\<%=rsPage("tider")%\> - \<%=rsPage("till_id")%\>\</td\>
          \<td align="center" width="29%"\>&nbsp;\<%=rsPage("namn")%\>\</td\>
          \<td align="center" width="8%"\>\<a href="mailto:\<%=rsPage("rumsnamn")%\>"\>\<%=rsPage("rumsnamn")%\>\</a\>\</td\>
          \<td align="center" width="24%"\>&nbsp;\<%=rsPage("telenr")%\>\</td\>
          
          \<td align="center" width="21%"\>&nbsp;\<a href="bokning.asp?design=\<%=rsPage("best_id")%\>&rumId=\<%=rumId%\>"\>Ta 
            bort\</a\>\</td\>
        \</tr\>
		\<%if rad = rsPage.PageSize then%\>
		\<tr\> 
       		\<td colspan="6"\>\<hr noshade\>\</td\>
    	\</tr\>
		\<TR\>
		\<td colspan="6" align="center"\>Sida:&nbsp;\<%=sida%\>
		\<%if not sida \< 2 then%\>
				\<A HREF="bokning.asp?sida=\<%=sida-1%\>&rumId=\<%=rumId%\>"\>Föregående\</A\>&nbsp;
		\<%end if%\>
		\<%if not sida = rsPage.PageSize then%\>
				\<A HREF="bokning.asp?sida=\<%=sida+1%\>&rumId=\<%=rumId%\>"\>Nästa\</A\>&nbsp;
		\<%end if%\>
		\</TD\>
		\</TR\>
		\<%end if%\>
		
        \<% end if	
		if rsPage("antal") \> 9 then
				sql4 = "SELECT \* FROM dubbelbokning INNER JOIN users ON users.anv_id = dubbelbokning.anv_id WHERE dubbelbokad_id = "& rsPage("best_id") &";"
				set rs4 =conn.execute(sql4)
			
				if not rs4.eof then%\>
        \<tr valign="top"\> 
          
          \<td align="center" width="18%"\>&nbsp;\<%=rs4("tid_id")%\> - \<%=rs4("till_id")%\>\</td\>
          \<td align="center" width="29%"\>&nbsp;\<%=rs4("namn")%\>\</td\>
          \<td align="center" width="8%"\>\<a href="mailto:\<%=rs4("rumsnamn")%\>"\>\<%=rs4("rumsnamn")%\>\</a\>\</td\>
          \<td align="center" width="24%"\>&nbsp;\<%=rs4("telenr")%\>\</td\>
          
          \<td align="center" width="21%"\>&nbsp;\<a href="bokning.asp?dubbelbokning=\<%=rs4("best_id")%\>&rumId=\<%=rumId%\>"\>Ta 
            bort\</a\>\</td\>
        \</tr\>

        \<%	end if
			end if
       end if 
	  rsPage.movenext

		wend
	'end if %\>
	  \<%'if cint(sida) = rsPage.PageCount then%\>
		\<%if cint(sida) = rsPage.PageCount then%\>
		\<tr\> 
       		\<td colspan="6"\>\<hr noshade\>\</td\>
    	\</tr\>
		\<TR\>
		\<td colspan="6" align="center"\>Sida:&nbsp;\<%=sida%\>
				\<A HREF="bokning.asp?sida=\<%=sida-1%\>&rumId=\<%=rumId%\>"\>Föregående\</A\>&nbsp;
		\</TD\>
		\</TR\>
		\<%end if%\>
      \</table\>
	\</td\>\</tr\>
\</table\>
\<center\>
  \<br\>
  \<%'\<MM:BeginLock translatorClass="MM_SSI" type="ssi_include" depFiles="C:\\Inetpub\\wwwroot\\manmade\\camping\\myinfo.asp" orig="%3C!--#include file=%22../myinfo.asp%22 --%3E" %\>
 \<% response.write ("\<div class='myinfo' align='center'\>copyright&copy;\<a href='mailto:info@manmade.se'\>manmade.\</a\>2003\</div\>") %\>

\<MM:EndLock\>%\>
\</center\>
\</body\>
\</html\>
\<% conn.close
	set conn = nothing
	%\>

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

## #5 — @nders, 2003-04-02T09:54Z

Det är helt klart något fel som är trasigt. Men du ger oss för mycket oläsbar kod, så jag kan inte hjälpa till.

Mvh

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

---

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