Paging

Jag har läst paging artikel av Patrik B här och föröker få det att funka men jag får felmedelande. Vad är det som är fel? Jag använder mig av Mysql.

ADODB.Recordset error '800a0cb3'

Object or provider is not capable of performing requested operation.

/dweb/fotoalbum/bild.asp, line 75

Detta är rad 75: objRS.AbsolutePage = intPage

<% 
dim namn 
namn=request.querystring("namn") 

'## -- hur många poster ska visas per sida -- 
intPageSize = 1 '## -- byt ut till hur många poster du vill ska visas per sida -- 

'## -- vilken sida ska visas -- 
intPage = Request.QueryString("page") 

'## -- kontrollera så att inte intPage variabeln är tom -- 
If intPage = "" Then intPage = 1 '## -- visa första sidan som default -- 

'## -- sql-fråga för att hämta data från databasen -- 
strSQL = "SELECT * FROM album where namn='"& namn & "'order by id" 

'## -- skapa och öppna recordsetet -- 
Set objRS = Server.CreateObject("ADODB.Recordset") 
   With objRS 
       .ActiveConnection = Conn 
       .Source = strSQL 

       '## -- bestämmer hur många poster som varje sida ska bestå av i recordsetet -- 
       .PageSize = intPageSize 
       .CursorType = 3 
       .LockType = 1 
       .Open 
   End With 

   '## -- kontrollera om några poster har returnerats eller inte -- 
   If Not objRS.EOF Then 
       '## -- poster har returnerats -- 

       '## -- visa rätt sida i recordsetet -- 
       objRS.AbsolutePage = intPage 

       '## -- hur många sidor består recordsetet av -- 
       intTotalPages = objRS.PageCount 

       '## -- visa sidnavigeringen -- 
       Call PageNavigation(intPage, intTotalPages) 

       '## -- loopa igenom recordsetet och visa posterna för besökaren/användaren -- 
       Do Until objRS.EOF OR intCounter >= intPageSize 
           intCounter = intCounter + 1 

           '## -- printa ut informationen till besökare/användaren -- 
       responsee.write "<img src='http://www.mindoman.com"& objRS("bild")& "'>" 
           objRS.MoveNext 
       Loop 
   Else 
       '## -- inga poster returnerades -- 
       '## -- visa meddelande att inga poster hittades för användaren -- 
   End If 

   '## -- rensa up -- 
   objRS.Close 
Set objRS = Nothing 

   Conn.Close 
Set conn = Nothing 

       '## -- visa sidnavigeringen -- 
       Call PageNavigation(intPage, intTotalPages) 

'## -- include filen nedan innehåller själva subrutinen för sidnavigeringen -- 
%>

Skumt. Har du rätt databasanslutning?

Japp använder samma till alla sidor. så här ser den ut:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Databas = Server.CreateObject("ADODB.Recordset")

Conn.Open "driver=MySQL;server=******;uid=****;pwd=****;database=best_nu"

%>

Du har givetvis sökt på paging AND mysql för att läsa om andra som haft samma problem?

Jag hittade exempelvis detta.

mvh

Nej det hade jag natruligtvis glömt. :r Tack @nders. Nu kommer det massa ny felmdelanden men de ska jag ing klara av lösa,.

Bra @nders. Så löste det sig också.. :D