Paging får en kedelig fejl:
Hejsa,Jeg har skitet MSSQL databasen ud med en MySQL
har flyttet data over rimeligt smertefrit og næsten alt ser ud til at spille.
Dog får jeg følgende fejlmeddelelse et enkelt sted.
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/matas/admin/admin_vejledninger_liste.asp, line 42
Nogen der ved hvad der er galt ?
Her er koden:
------------------------
strSQL = "SELECT * FROM tbl_vejledninger_mainkey INNER JOIN tbl_vejledninger ON tbl_vejledninger_mainkey.id = tbl_vejledninger.mainkeyid"
objRS.Open strSQL, objConn, 1,1
If Not (objRS.BOF Or objRS.EOF) Then
objRS.PageSize = 15
objRS.AbsolutePage = intPage
intRecCount = objRS.PageSize
intPageCount = objRS.PageCount
%>
<div id="dbheader" align="center">Side <%=intPage%> af <%=intPageCount%></div>
<table cellpadding=0 cellspacing=0 width=440>
<%
While Not objRS.EOF And intRecCount > 0
if bgcolor = "#ffffff" then
bgcolor = "#e2e2e2"
else bgcolor = "#ffffff"
end if
%>
<tr valign="top" bgcolor="<%=bgcolor%>">
<td valign=top width=430><b><a href="db_update.asp?id=<%=objRS("ID")%>" target="db_update"><%=objRS("Overskrift")%></a></b> <font face=verdana size=2 color=#009900><b><i><%=objRS("mainkey")%></i></b></font>
<br>
<font face=verdana size=1 color=#333333></i><%=objRS("doc_sti")%></i></font>
</td>
<td width=20 align=right valign=top><a href="java script:DelDocument(<%=objRS("ID")%>)"><img src="images/slet.gif" width="10" height="9" alt="slet" border="0"></a> </td>
</tr>
<%
intRecCount = intRecCount - 1
objRS.MoveNext
wend
End If
objRS.Close
%>
</table>
<div id="divCont">
<%
If Clng(intPage) > 1 Then
Response.Write "<span id=browse><a href=admin_vejledninger_liste.asp?page=" & intPage - 1 & "><<</a></span> "
Else
Response.Write "<span id=browse><<</span> "
End If
For intNum = 1 To intPageCount
Response.Write "<span id=browse><a href=admin_vejledninger_liste.asp?page=" & intNum & ">" & intNum & "</a></span> "
Next
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<span id=browse><a href=admin_vejledninger_liste.asp?page=" & intPage + 1 & ">>></a></span> "
Else
Response.Write "<span id=browse>>></span>"
End If
