Jag har läst paging artikeln här och föröker få det att funkar mend jag får felmedelande. Vad är det som är fel? Vilken vilken databas och provider använder du? Har för mig att MyODBC/MySQL inte har stöd för det t.ex. Ser heller inga fel i koden. Jag kör det på en windowsmaskin mot en Mysql server. Patrik var ska det in som du skrev?Paging
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
<code><%
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 --
%></code>Sv: Paging
Hej
Det verkar inte som att webhotellet stödjer det som du försöker att använda.
Det finns en kurs om alternativ paging, du kanske kan prova med den och se om den också felar.
/Anna-KarinSv: Paging
/JohanSv: Paging
Det jag frågar mig är vilket server os du kör asp på? om det är en Linux variant med tex chilliASP! så fungerar inte denna paging.
Kör du siten på en IIS burk mot mySQL så kan du, innan du öppnar recordsetet sätta om recordsetet ska vara server-side eller client-side. Mot mySQL måste recordsetet vara client-side (.CursorLocation = 3 '## -- adUseClient --)
cya,
PatrikBSv: Paging