fejl ved paging
Får denne fejl i mit script:Fejltype:
ADODB.Recordset (0x800A0CB3)
Det aktuelle postsæt understøtter ikke bogmærker. Det kan skyldes en begrænsning af provideren eller af den valgte markørtype.
/shop/inc_liste.asp, line 72
Scriptet her under:
***************************************************************
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
strVareliste = "select * from varer where KategoriID = " & Request.QueryString("KatID") & " AND aktiv = true AND synlig = true order by sortering,vareoverskrift"
Set RSVareliste = conn.Execute(strVareliste)
if rsVareListe.EOF then
response.write "Der er endnu ikke oprettet nogle produkter i denne kategori."
else
'paging
RSVareliste.PageSize = 10
' ************** LINIE 72 HER UNDER
RSVareliste.AbsolutePage = intPage
intRecCount = RSVareliste.PageSize
intPageCount = RSVareliste.PageCount
' /paging
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
%>
<table border="0" cellpadding="0" cellspacing="0" width="423">
<tr>
<%
While Not RSVareliste.EOF And intRecCount > 0
ivare=ivare+1
%>
<td width="284">
<%Select Case ivare
Case 1,3,5,7,9,11,13,15,17,19,21,23,25,27,29,31,33,35,37
%>
<td width="9" background="images/prod_doty.gif"> </td>
<%
End Select
%>
<%
Select Case ivare
Case 2,4,6,8,10,12,14,16,18,20,22,24,26,28
%>
</tr>
<tr>
<td width="284" height="9" background="images/prod_dotx.gif"></td>
<td width="9" height="9">
<img border="0" src="images/prod_x.gif" width="9" height="9"></td>
<td width="284" height="9" background="images/prod_dotx.gif"></td>
</tr>
<%
Response.Write "<tr>"
End Select
intRecCount = intRecCount - 1
RSVareliste.MoveNext
Wend
Set RSVareliste=Nothing
%>
</table>
***************************************************************
Nogen som lige kan se fejlen ?
