Hej

Jag har ett pageing system som fungerar i Access, men nu när jag ska gå över till MySQL funkar den inte.


<code>

intPageSize = 50
intPage = Request.QueryString("page")
If intPage = "" Then intPage = 1

strSQL ="SELECT spelare.playID, spelare.lagID, spelare.landID AS spelare_landID, spelare.playFnamn,
spelare.playEnamn, spelare.playFodd, spelare.playFodelseort, spelare.playPosition,
spelare.playSkott, spelare.playAktiv, land.landID AS land_landID, land.land, land.flagga,
klubbar.lagNamn
FROM ((land INNER JOIN spelare ON land.landID = spelare.landID)LEFT JOIN klubbar ON spelare.lagID = klubbar.lagID) WHERE playAktiv = 1 ORDER BY "&order_spelare&""

Set objRS = Server.CreateObject("ADODB.Recordset")
With objRS
.ActiveConnection = objConn
.Source = strSQL
.PageSize = intPageSize
.CursorType = 3
.LockType = 1
.Open
End With




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

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

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



Call PageNavigationPlayers(intPage, intTotalPages)










Sub PageNavigationPlayers(ByVal Page, TotalPages)
Dim strScriptName

'## -- denna sidas namn --
strScriptName = "index.asp?do=players"



'## -- länk till föregående sida --
'## -- kontrollera att det inte är första sidan som visas --
If CInt(Page) > 1 Then
'## -- inte första sidan som visas så gör en länk --
Response.Write "<< Föregående "
End If

'## -- bygg upp själva pagebaren, dvs varje sidnummer ska ha en länk
'## -- så att besökaren snabbt kan ta sig till rätt sida --
For N = 1 To CInt(TotalPages)
If N <> CInt(Page) Then
'## -- ej aktuell sida, länka --
Response.Write "" & N & " "
Else
'## -- aktuell sida, länka ej --
Response.Write "<b>" & N & "</b> "
End If
Next

'## -- länk till nästa sida. om vi står på sista sidan ska den ej vara länkad --
If CInt(Page) < CInt(TotalPages) Then
'## -- vi är inte på sista sidan --
Response.Write "Nästa >>"
End If

End Sub




</code>











Sidnavigeringen vill inte komma fram, när jag hade Access så syntes den längst ner, men nu e den borta. De 50 första posterna kommer fram, men inte navigeringen

intTotalPages har -1
i access har intTotalPages 15

Hur får jag igång den även i MySQL??

Tacksam för all hjälp

.PageCount fungerar inte för MySQL.
Hur det är för de andra parametrarna vet jag inte heller, men om det endast är objRS.PageCount
som inte fungerar så gör en separat query för att få fram hur många poster det finns i tabellen.

ok, har nu ändrat följande:

<code>
Set objRS = objConn.Execute("SELECT COUNT(*) as AntalPoster FROM spelare WHERE playAktiv = 1")

antalPoster = objRS("AntalPoster")
objRS.Close
set objRS = nothing


'## -- hur många sidor består recordsetet av --
intTotalPages = antalPoster

</code>


problemet nu är att navigeringen får typ 700 sidor, ska vara 15 sidor, nu får den en sida för varje post.
samt händer det inget när man navigerar, samma poster visas

Kolla artiklar här på pellesoft. Det borde framgå att det går att använda pagesize= 25 (osäker på namnet) eller så för att säga hur många rader du skall visa per page.

intTotalPages = antalPoster?

Låter som att du tar antalet poster och sätter som antalet sidor???

/Johan

tack, men jag gjorde en ny, så nu funkar det :D