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