Paging

[Magnus Thorén1]

Jag håller på att skapa en pagingfunktion i asp och får upp följande felmeddelande:

 

ADODB.Connection error '800a0e79'

 

The operation requested by the application is not allowed if the object is closed.

 

Och syftar då på RS.Absolutepage = CurrPage

 

Jag antar att det inte har så mycket med själva Pagingfunktionen att göra men jag har även försökt att lösa det på andra sett och då fått upp andra felmeddelanden. Jag antar att det är där RecordSetet skapas som felet ligger, men jag vet inte var...

 

<%

Set Connection = Server.CreateObject("ADODB.Connection")

Connection.Open ("databas")

 

 

 

SQLStmt = "SELECT * FROM tabell1 Order by id Desc"

Set RS= Server.CreateObject("ADODB.Recordset")

RS.CursorType = adOpenStatic

 

MyPageSize=1

 

If Request.QueryString("next") = "" OR Request.QueryString("next") = 0 Then

CurrPage = 1

Else CurrPage = CInt(Request.QueryString("next"))

End If

 

RS.PageSize = MyPageSize

RS.AbsolutePage = CurrPage

Curr = 0

 

%>

 

<%

Do While Not RS.EOF And Curr < MyPageSize

%>

 

<%=RS("cell1")%>

 

<% RS.MoveNext

Curr = Curr + 1

Loop

%>

 

<% If CurrPage > 1 Then%>

<a href="index.asp"?next=<%= CurrPage - 1%>">Bakåt</a> <% End If %>

 

<% If RS.EOF Then %>

Nästa 

 

<% ElseIf CurrPage < RS.PageCount Then %>

 

<a href="index.asp"?next=<%= CurrPage + 1%>">Nästa</a> 

 

<% End If %>

 

Tacksam frö hjälp!!!

[inlägget ändrat 2000-07-13 17:18:46 av Magnus Thorén1]

[G Johansson]

skapat två recordset vilket kan vara fel

 

Ändra till att:

set rs=connection.execute(SQLStmt)

 

Det kan jag tänka mig...

 

//*'Fantomen'*\cgaj@hotmail.com