Recordset does not support bookmarks.

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

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

.cursorlocation = 3

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

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?

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