vaya... no funciona!
Me sale este error:
Tipo de error:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'rs'
/bikes/ejemplo.asp, línea 35
Lo que he puesto yo es:
<%
'Get the Current page
Page = Request.QueryString("Page")
'If there is no page set it to page 1
If Page = "" then Page = 1
RowCount = 0
txtCat = Request.QueryString("bici")
Select case txtCat
Case "all"
strSQLQuery = "SELECT * FROM bikes ORDER by bikeID asc"
Case else
strSQLQuery = "SELECT * FROM bikes WHERE bike_cat='"&txtCat&"' ORDER by bikeID asc"
End Select
'Need a rich cursor type to support paging
rs.CursorType = 3 'adOpenStatic
'Set the number of records in each page to 10
rs.PageSize = 12
rs.Open strSQLQuery, con
'Set the current page based on the QueryString value
'Must cast it as an integer or else it will have problems.
rs.AbsolutePage = cInt(Page)
If Response.IsClientConnected = true then
Do while not rs.eof and RowCount < rs.PageSize
%>