---
title: "Recordset does not support bookmarks."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/82202-recordset-does-not-support-bookmarks"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SteveP"
published: "2003-07-17T09:02:43.000Z"
updated: "2003-07-17T09:41:52.000Z"
replies: 3
views: 215
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/82202-recordset-does-not-support-bookmarks"
---

# Recordset does not support bookmarks.

## #1 — SteveP, 2003-07-17T09:02Z

Får felet
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype. 

på Line 139 vilket är 

.AbsolutePage = VarSerial

```

VarContactID = Request.QueryString("ID")
VarSerial = Request.QueryString("Serial")

If VarSerial = "" Then VarSerial = 1

Sub PageNavigation(nPage, nTotPages)
	Dim strScriptName	' AS String
	Dim I				' AS Integer
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	' If not first page, then show previous
	
	If CInt(nPage) <> 1 Then
	
	
	
		Response.Write("<td align=""right"" width=""29""><a href=""" & strScriptName & "?" & _
				"Serial=" & nPage - 1 & """><img src=""images/main/dartleft.jpg"" border=""0"" WIDTH=""19"" HEIGHT=""21""></a></td>")
				
	End If	' end previous

	If CInt(nPage) <> CInt(nTotPages) Then
		Response.Write("<td align=""right"" width=""25""><a href=""" & strScriptName & "?" & _
				"Serial=" & nPage + 1 & """><img src=""images/main/dartright.jpg"" border=""0"" WIDTH=""19"" HEIGHT=""21""></a></td>")
	End If	' end next page
End Sub

Function DisplayData()
Dim ObjConn
Dim ObjRs

Set ObjConn = Server.CreateObject("ADODB.Connection")
Set ObjRs = Server.CreateObject("ADODB.RecordSet")
	ObjConn.Open Connect_String()
	
If VarSerial = "" then
VarSerial = "0"
End If

If VarContactID = "" then
VarContactID = "0"
End If
	
		With objRS
		
		.CacheSize = 5
		.PageSize = 1
		.Open "spPostlistUser_Data " & VarContactID & "," & VarSerial, ObjConn, 3, 1
		.AbsolutePage = VarSerial
		.PageSize = 1
		
		End With
		intCount = objRS.RecordCount
		intTotPages = objRS.PageCount

IF Not ObjRs.EOF then

VarClient = Trim(ObjRs("OrgShortName"))
VarSerialNumber = Trim(ObjRs("SerialNumber"))
VarReceivedDate = Trim(ObjRs("ReceivedDate"))
VarSentDate = Trim(ObjRs("SentDate"))
VarSender = Trim(ObjRs("Sender"))
VarSentFrom = Trim(ObjRs("SentFrom"))
VarSentTitle = Trim(ObjRs("SentTitle"))
VarNotes = Trim(ObjRs("Notes"))
VarDescription = Trim(ObjRs("Description"))

If VarReceivedDate = "" then
VarReceivedDate = ""
Else
VarReceivedDate = Formatdatetime(VarReceivedDate,1)
end if

If VarSentDate = "" then
VarSentDate = ""
Else
VarSentDate = Formatdatetime(VarSentDate,1)
end if

Do Until objRS.EOF or nRecCount >= objRS.PageSize

nRecCount = nRecCount + 1

ObjRs.MoveNext
Loop
End IF
End Function
```

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

## #2 — SteveP, 2003-07-17T09:08Z

Mycket man kan hitta när man söker.
Löste sig med

.cursorlocation = 3

Kan nån förklara vad detta gör?

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

## #3 — SteveP, 2003-07-17T09:34Z

En grej till,
När den kommer till Sista recordet så är den fortfarande länkad till nästa ID som inte finns.
Det sista ID't är 1131 men den fortsätter att länka till 1132 osv..
Hur gör jag så länken blir död när den nått sista ID't?

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

## #4 — Engine^, 2003-07-17T09:41Z

CursorLocation = 3 innebär att du använder dig av en "datapekare", som ligger på klienten. Det finns två olika *adUseServer (=2)* och *adUseClient (=3)*. Klientsidespekaren är normalt mer mångsidig.

[CursorLocationEnum](http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdaenumac_13.asp)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/82202-recordset-does-not-support-bookmarks