paging-prob

använder denna kod:

<%

till = Session("nick")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\community\data\db.mdb"
iPoster_Sida=10
If Request.QueryString("page") = "" Then
	iPageCurrent = 1
Else
	iPageCurrent = CInt(Request.QueryString("page"))
End If

SQL = "SELECT * FROM Meddelanden WHERE f_Till='Chrille-Boy' ORDER BY f_Read DESC"
Set RS= Server.CreateObject("ADODB.Recordset")

RS.PageSize = iPoster_Sida

RS.CacheSize = iPoster_Sida
RS.Open SQL, Connect

iPageCount = RS.PageCount
Response.Write RS.PageCount
If iPageCurrent > iPoster_Sida Then iPageCurrent = iPoster_Sida
If iPageCurrent < 1 Then iPageCurrent = 1

If iPageCount = 0 Then
	Response.Write "Du har inga meddelanden!"
Else
 RS.AbsolutePage = iPageCurrent

        %>
visa meddelanden koden (onödig här)
<%

RS.Close
Set RS=nothing
 Connect.Close
Set Connect=nothing
End If
If iPageCurrent > 1 Then
%>
	<a href="testa.asp?page=<%= iPageCurrent - 1 %>">[&lt;&lt; Föregående]</a>
	<%
End If

' You can also show page numbers:
For I = 1 To iPageCount
	If I = iPageCurrent Then
		%>
		<%= I %>
		<%
	Else
		%>
		<a href="testa.asp?page=<%= I %>"><%= I %></a>
		<%
	End If
Next 'I

If iPageCurrent < iPageCount Then
	%>
	<a href="testa.asp?page=<%= iPageCurrent + 1 %>">[Nästa &gt;&gt;]</a>
	<%
End If

%>

får felmeddelandet:
ADODB.Recordset fel '800a0cb3'

The operation requested by the application is not supported by the provider.

/paging/testa.asp, rad 35

och jag testa skriva ut RS.PageCount, den blir -1 hela tiden

RS.Open SQL, Connect, 3, 3

jo, du hade än en gång rätt @nders..... TACK!