Paging
Jeg har noget eksisterende paging fra en accesdb som jeg er ved at omskrive til mySql - og det kan åbenbart ikke bruges når det er mysql - som så meget andet *S*Jeg har noget kode:
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Åbning og visning af data...
sql = \"SELECT * FROM users WHERE username Like \'\" & startletter & \"%\' and visprofil=1 ORDER BY username\"
Set rsUsers = Server.CreateObject(\"ADODB.Recordset\")
rsUsers.PageSize = PageSize
rsUsers.CacheSize = PageSize
rsUsers.Open sql, conn, adOpenStatic, adLockReadOnly,adCmdText
reccount = rsUsers.recordcount
iPageCount = rsUsers.PageCount
<%if not (rsUsers.bof or rsUsers.EOF) then
rsUsers.PageSize = 10
rsUsers.AbsolutePage = intPage
intRecCount = rsUsers.PageSize
intPageCount = rsUsers.PageCount%>
tableheadere osv.
Do While not rsUsers.EOF And intRecCount > 0
tabeldata her:
intRecCount = intRecCount - 1
rsUsers.Movenext
loop
Visning af sidenumre:
<%If Not (rsUsers.BOF Or rsUsers.EOF) Then
Response.Write \"<font size=\'1\' color=\'#239993\' face=\'arial\'>Side \"& intPage &\" af \"& intPageCount &\"<br>\"
End if %>
<%
With Response
.Write \"</td>\"
.Write \"</tr>\"
.Write \"<TR>\"
.Write \"<TD align=\"\"center\"\">\"
End With%>
<%If Clng(intPage) > 1 Then
Response.Write \"<input type=\"\"button\"\" name=\"\"button\"\" value=\"\"<< Side \" & (intpage-1) & \" \"\" onClick=\"\"self.location=\'userview.asp?page=\" & intPage - 1 & \"\'\"\" style=\"\"width: 50pt;\"\">\"
%>
<% Else
Response.Write \" \"
End If%>
<% With Response
.Write \"</TD>\"
.Write \" <TD align=\"\"center\"\">\"
End With%>
<%If Clng(intPage) < Clng(intPageCount) Then
Response.Write \" <input type=\"\"button\"\" name=\"\"button\"\" value=\"\"Side \" & (intpage+1) & \" >>\"\" onClick=\"\"self.location=\'userview.asp?page=\" & intPage + 1 & \"\'\"\" style=\"\"width: 50pt;\"\">\"
slut...
Det virker med access, men den skriver at:Den ønskede handling understøttes ikke af objektet eller provideren. linie 137:
rsUsers.AbsolutePage = intPage
Nogen der kan gennemskue hvad jeg så gør?
