Código ASP:
Ver original
Set con = Server.CreateObject("Adodb.Connection") Set rs = Server.CreateObject("Adodb.Recordset") con.connectionstring = alias con.open rs.open"declare @PageSize int" &_ " declare @PageNumber int" &_ " set @PageSize = 5" &_ " set @PageNumber = 2" &_ " declare @PageN int" &_ " IF @pageNumber <= 1 SET @PageN = 1" &_ " IF @pageNumber > 1 SET @PageN = @pageNumber-1" &_ " declare @tampag int" &_ " set @tampag=@pageSize*@PageN" &_ " declare @ultimo int" &_ " SET ROWCOUNT @tampag" &_ " SELECT @ultimo=idMensaje FROM Tabla1 WHERE activo = 1 and idUsuarioA = 10" &_ " if @pageNumber=1" &_ " begin" &_ " SET ROWCOUNT @pageSize" &_ " SELECT *" &_ " FROM Tabla1"&_ " WHERE activo = 1 and idUsuarioA = 10" &_ " end" &_ " else" &_ " begin" &_ " SET ROWCOUNT @pageSize" &_ " SELECT *" &_ " FROM Tabla1" &_ " WHERE idMensaje > @ultimo and activo = 1 and idUsuarioA = 10" &_ " end" &_ " SET ROWCOUNT 0", con, 3, 1
...